Re: HOD

[Timothy Sipples]

Vignesh wrote:
>Say there are 'n' servers that have HOD installed, and all
>of them are under a load balancer, so there's a single target.
>Would it work if the product was just installed and setup in
>1 server, and then cloned 'n-1' times?
>Let's say the 'servers' are Windows VMs. Would this be an
>acceptable approach if it were a different server OS, by
>any chance?

As background, there are several HOD "servers." Here's a reasonably
complete list:

1. The HTTP/HTTPS server (Web server) that delivers the Host On-Demand
applets to the user, at least in the first instance and for subsequent HOD
release updates. In principle, the HTTP/HTTPS server for HOD can be
*anything* -- it's just a set of files. Just for fun, I once tried hosting
HOD on an Apple Macintosh Quadra 700 running Linux and the Apache HTTP
Server. It worked, although that wasn't the speediest HTTP server. (It
doesn't have to be particularly speedy, though, as long as you're using the
so-called HOD "cached client.") IBM publishes a list of tested HTTP/HTTPS
servers.

2A. The Host On-Demand Service Manager, a.k.a. Host On-Demand Configuration
Server. In principle, the HOD SM/CS can run on any machine with a JVM of at
least relatively recent vintage. IBM publishes a list of tested HOD SM/CS
platforms, and for certain platforms (e.g. Windows) IBM includes an
installation program that installs an IBM-supplied JVM and sets up the HOD
SM/CS on it.

2B. The HOD Configuration Servlet, which can only be used in conjunction
with #2A. The HOD Configuration Servlet is not relevant on its own. This
servlet can, in principle, run on any application server with Java servlet
support. IBM WebSphere Application Server is an excellent choice.

3A. The target "server" system to which you're establishing a HOD terminal
emulation session or file transfer session. This target system can be
anything that supports TN3270, TN3270E, TN5250, TN5250E, Telnet, SSH, FTP,
etc., etc. Target systems span everything from z/OS mainframes to embedded
"Internet of Things" devices, and just about everything in between.

3B. HOD can connect to target systems via a proxy server. Supported proxy
server protocols include HTTP, HTTPS, SOCKS4, and SOCKS5.

4. The Host Access Client Package (HACP) Extended Edition server, recently
introduced. HACP EE provides a subset of HOD end-user functionality without
any Java on the client. HACP EE should be compatible with Apple iPads, for
example.

Now here's the really interesting fact: *all* of these HOD servers except
#3A are optional, although I'd argue that #1 is important (but not strictly
mandatory). As general "best practices" advice, you shouldn't use the HOD
servers that you don't actually need -- shouldn't even bother with them.
Moreover, when you do run particular HOD servers, the "best" place to
install/run them is generally on the same system as #3A. In particular, if
you're primarily or exclusively connecting to z/OS, then the preferred/best
place to run HOD servers, such as #1 (notably), is right on z/OS itself.
"Keep it simple" for robustness, and yet-another-distributed-server ain't
simple.

I believe your question refers primarily or entirely to #2A, the Host
On-Demand Service Manager (a.k.a. Configuration Server). If my assumption
is correct, and with that background information, here are the two answers
to your questions:

A1: Don't run the HOD SM/CS at all. If you don't run the HOD SM/CS, then
you don't have to move it, and HOD clients will store their
settings/preferences in user home directories. Those user home directories
can be on shared network drives, if desired -- and if you'd like to support
"roaming users" just as you do for other desktop/laptop applications, for
example. The HOD documentation refers to this mode of operations as the
"HTML-based model," meaning that the initial session information (default
sessions, initial keyboard layouts, etc.) is defined within the HTML
startup file(s) delivered to the client rather than fetched from the HOD
SM/CS over a separate connection. Please note that "HTML-based model" is
not the same thing as HACP EE (#4 above). In fact, the HOD HTML-based model
is the very first HOD deployment mode, tracing its roots all the way back
to the first version of HOD.

The "HTML-based model" is still my favorite way to run HOD in most
environments, as it happens. To configure the HTML-based model, use the
Deployment Wizard to generate the correct HOD startup file(s) (HTML, for
Java Web Start). Deploy that startup fileset to the HOD HTTP/HTTPS server.
Then access that Web URL from the client, and away you go.

While it's not necessarily recommended to copy the HOD directory -- the
directory that your HTTP/HTTPS server can deliver to clients -- it is
*possible* to do that, even across platforms. If you're using a z/OS
HTTP/HTTPS server then just be a little extra careful to get the
EBCDIC/ASCII configuration settings in the Web server correct, per the HOD
documentation. Or, if you don't know 

Re: Heretic alert: I really detest TSO REXX (the language)

[David Crayford]

On 15/05/2018 12:52 PM, Paul Gilmartin wrote:

On Mon, 14 May 2018 13:52:53 -0400, Phil Smith III wrote:

This strongly suggests being rigorous with tail naming: I use leading
underscores for non-variable tails:

G._Logging

and then never use any local variables with leading underscores (yes,
_Logging is a valid variable name). An easy convention to follow, and makes
it easy to tell the difference between:

U.settings

(which will substitute the tail, and

U._settings


In order to avoid that hazard I begin a constant symbol with a digit, e.g.
G.9Logging, which tail is not a legal variable name.



That's ugly AF!! While it may be safer I would rather stick to 
underscores and reserve the namespace like C/C++ does for the standard 
library.




-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Paul Gilmartin]

On Mon, 14 May 2018 13:52:53 -0400, Phil Smith III wrote:
>
>This strongly suggests being rigorous with tail naming: I use leading
>underscores for non-variable tails:
>
>G._Logging
>
>and then never use any local variables with leading underscores (yes,
>_Logging is a valid variable name). An easy convention to follow, and makes
>it easy to tell the difference between:
>
>U.settings
>
>(which will substitute the tail, and
>
>U._settings
> 
In order to avoid that hazard I begin a constant symbol with a digit, e.g.
G.9Logging, which tail is not a legal variable name.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Paul Gilmartin]

On Mon, 14 May 2018 20:21:49 +, Seymour J Metz wrote:
>
>> And if BAR || '2' is an assigned variable 
>
>The statement in question was
>
> x =value('foo.'bar'2')
>
>It has nothing to do with a variable called BAR2, but rather a variable called 
>BAR.
>
Read what I wrote.  Not the variable called "BAR2", but the variable called 
"value
(not name) of BAR with digit 2 appended.  We had this discussion several years
ago; you were wrong then; you remain wrong now.

Sample Rexx code:
trace R
signal on novalue
BAR = 'Wombat'

drop WOMBAT2
say '==>' value( 'foo.'bar'2' )

WOMBAT2 = 'XYZZY'
say '==>' value( 'foo.'bar'2' )

And output, traced:
 2 *-* signal on novalue
 3 *-* BAR = 'Wombat'

 5 *-* drop WOMBAT2
 6 *-* say '==>' value( 'foo.'bar'2' )
   >V>   "Wombat"
==> FOO.WOMBAT2

 8 *-* WOMBAT2 = 'XYZZY'
 9 *-* say '==>' value( 'foo.'bar'2' )
   >V>   "Wombat"
==> FOO.XYZZY

>> For safety, you need to:
>> TAIL = bar'2'
>> X = foo.TAIL
>
>ITYM for safety you need to use the value() BIF.
> 
No, I meant what I said.

-- gil

>> How about in JCL?
>
>Yes, I use inline data in JCL, but a lot less than when I was dealing with 
>cards. Most of the inline data that I've seen in the last few decades 
>shouldn't have been inline.
>
???

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[David Crayford]

On 15/05/2018 1:52 AM, Phil Smith III wrote:

Charles wrote, in part:


I wrote a large set of applications in Rexx once. I put all of my "intended
to be global" variable names into a single Rexx variable and exposed it

with


Procedure Expose (Rexx_Globals)
  


Yep. That's one of the approaches; I've used that, also used a set of stems:

G.

U.

D.

(whatever, but often segmented that way-for example, G. might be global
configuration settings; U. be user data; D. might be, well, data data!).
This strongly suggests being rigorous with tail naming: I use leading
underscores for non-variable tails:

G._Logging

and then never use any local variables with leading underscores (yes,
_Logging is a valid variable name). An easy convention to follow, and makes
it easy to tell the difference between:

U.settings

(which will substitute the tail, and

U._settings

  



A common technique with the use of the underscore to reserve the 
namespace. Inadvertently clobbering a stem identifier with a local 
variable is a common and confusing error.


Unfortunately, it doesn't take long before those expose lists start to 
telescope. A case in point is the ISPF DTL compiler which is 40,000 
lines of REXX code.

It's not uncommon to see functions like this:

SL_STag:
Procedure Expose Global. Panel. Globalw. Help. Info. olist. ,
obuf orec i m Logbuff.

And variables like "Global.PS_lclvar.jk.jl.jz.H".

Urrgghh, someone hand me a bucket!


  


A final note: a friend commented to me re this thread, "Nobody will change
anyone's mind, so it's all just wind."



Yep. Our opinions have been forged over decades and the majority of us 
are too long in the tooth to change.




Well, sorta. But it's useful,
perhaps, to discuss these issues and at least understand the other folks'
perspective. Rexx isn't perfect, isn't the right hammer for all nails. But
for what it was designed to do, it's pretty darned good. Perl is (arguably?)
one step along the track toward a "real" programming language, but it's also
not as well suited for what Rexx was designed to do - be an interface for
operating system commands.




Perl was displaced well over a decade ago by Python and Ruby which are 
currently used to write the back-ends of the likes of Instagram, 
Spotify, Dropbox and Github. Python has
become the language de jour for data scientists for machine learning.  
Streaming behemoths like Netflix are swapping out racks of Java 
application servers and
replacing them with single Node.js instances. That's right JavaScript! 
Scripting languages have come a long way since Perl and are in a 
completely different universe

now to when classic REXX was the new kid on the block.

The good news is that those languages are starting to arrive on z/OS. 
Maybe not for the oldies but definitely the next generation who will be 
supporting the old dog in the decades to come.




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

[Steve Horein]

 First suggestion: Read and understand the documents found at the links
provided earlier:

Specifics to NetView Rexx can be found here:
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm

Specifics to NetView Automation can be found here:
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm

Next suggestion, join the Tivoli NetView Yahoo group:
https://groups.yahoo.com/neo/groups/NetView/info

There is a complimentary System Automation Yahoo group as well (but SA
hasn't entered the conversation):
https://groups.yahoo.com/neo/groups/SAUsers/info


Now, about your post...

The Automation Table (AT) entry will likely not fire due to the second
condition looking for literal text "END OF":

IF MSGID = 'IEF878I'
&  TEXT = 'END OF'
&  TEXT = MTXT
THEN
  EXEC(CMD('FDIREXX' MTXT))
  NETLOG(Y) SYSLOG(Y)
;

The test as written is looking for the entirety of the TEXT value to be
'END OF' and nothing more.
This is impossible because TEXT also includes MSGID.

You need to use placeholders described here to allow 'END OF' to be found
anywhere in the message:
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm


This however is about as useful of testing condition IF "1" = "1", since
message IEF878I always includes 'END OF' as part of the message text,
according to MVS System Messages documentation.

The other condition, resulting in the variable MTXT containing the value of
TEXT is fine as written, but ultimately not required.
An automation procedure called from the AT has access to the default SAFE
named "*", which contains all attributes of the message triggering the
action.
The information contained in the SAFE can be accessed either through a PIPE
SAFE stage or message functions, such as MSGID(), JOBNAME(), JOBNUM()

PIPE information:
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm


Message functions:
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm


I would likely construct FDIREXX to include:

'PIPE SAFE *',
'|VAR MTXT'

...or if a MLWTO:

'PIPE SAFE *',
'|STEM MTXT.'

Which leads to the contents of FDIREXX -
As written, I don't see much happening there, either:

ARG MSGTXT
PARSE VAR MSGTXT MSGID 'TO 'DSET
DSET = STRIP(DSET)
MSGTX = DSET
SAY 'DATASET NAME IS' DSET
MVS "SEND 'MSGTX ' USER(OP117) NOW"

The PARSE VAR statement will likely not produce the desire results, due to
explicit delimiter of the literal 'TO '.
I do not see the word (or string ending in) 'TO' anywhere in the
IEF878I message.

If you want to isolate a specific word or token of the message, that can be
done in the AT, such as a condition that sets a variable that is passed to
your procedure (similar to your existing MTXT processing):
&  TOKEN(8) = DSET

Or if using the default SAFE inside FDIREXX,
DSET = MSGITEM(7)

(TOKEN counts the MSGID as word 1, MSGITEM counts the MSGID as word 0)

I don't believe your final message to the user will be as expected either.
After parsing MSGTXT to obtain DSET, you set the variable name MSGTX to the
value of DSET, and (attempt) to pass that to the user.

Due to the initial opening quote is double quote, everything inside is
interpreted by Rexx as a literal, including the presumed variable 'MSGTX',
until a closing double quote is encountered.
To correct that, you need to place a double quote after the first single
quote to expose the variable to Rexx, followed by a double quote to resume
literal processing, followed by single quote and the remainder of the
string:

MVS "SEND '"MSGTX"' USER(OP117) NOW"

(double, single, double,, double, single, double)

However, since MSGTX was set to DSET, which was set to the literal
following 'TO ' in the IEF878I  message, it is more than likely DSET will
be a null value, which I believe will return a SEND syntax error should all
the above be "corrected".

I'll give you this one:
To make FDIREXX more flexible relating to the target of the SEND command,
PIPE EDIT can be used to extract the ID of the job "owner":

'PIPE EDIT AUTHUSER 1',
'|VAR USERID'

I encourage you to take the time and READ the documentation provided by the
vendor. They provide it for a reason.
You will undoubtedly encounter discrepancies between documentation and
reality from time to time, but most vendors have support portals or
feedback forms that you use to identify such discrepancies.



On Mon, May 14, 2018 at 11:29 AM, saurabh khandelwal <
venkatkulkarn...@gmail.com> wrote:

> Hello Lucas,
>
> This code worked for me
>
> but I had to remove Address TSO from this rexx code to make it work .
>
> MVS  "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW"
>
> I am really thankful to you and other group member to help me to solve this
> issue.
>
> Now, I setup my netview auto table
>
> IF MSGID = 'IEF878I' & TEXT = 'END OF' & TEXT = 

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Paul Gilmartin]

On Mon, 14 May 2018 16:50:41 -0400, Phil Smith III wrote:

>The funny part is, find the most rabid Unix-head you know, and ask why it's
>A Good Thing that filenames are case-sensitive. In my reasonably extensive
>experience at playing this game (including 5 years at Linuxcare, with lots
>of victims), several things were always true:
>
>1) They would assert vehemently that it was A Good Thing
>
>2) They could not articulate why
> 
OK.  I'll try.  Simplicity of specification.  Simplicity of implementation.
Filenames are strings.  Different strings should refer to different files.

Consistency.  With Binder it's easy enough to create a load module:
CASE(M)

NAME  FooBar(R)

Should //STEP EXEC PGM=FOOBAR  invoke that program?  Why not"
How about //STEP EXEC PGM='FooBar'?  Why not?  How about
TSO:  EXEC *(FooBar)?

Would you submit or vote for an RFE that LOAD/LINK/ATTACH, BLDL, ...
be made case-insensitive?

Why not?  I suspect you supplied the answer:

>So it fits the definition of "tradition": The same stupid old way we've
>always done it!
>  
"Stupid" indeed.  And z/OS is worse than most for inconsistency.  Some
interfaces are case-sensitive; others enforce case-insensitivity.

And ethnic diversity.  Should files named in Cyrillic, Greek, ... be treated
in a case-insensitive fashion?  Imagine the implementation complexity
and documentation complexity.  Should it be locale-sensitive?  Should
Cyrillic filenames be case-insensitive in the Russia locale and Latin
filenames be case sensitive?  And vice-versa in a Latin locale?

Suppose another language is newly added to the Unicode CECP.  Should
characters previously considered distinct suddenly be considered equivalent
because they are upper-lower case pairs?

(Don't be Anglocentric in your answer.)

Others have argued here that the filesystem should ignore diacritical marks.
But a Hispanophone sees "año" and "ano" as two very different nouns and
would probably not approve of using them interchangably as a filename.

Peter Relson, among others, has written here of "invalid" names, implying
GIGO.  I disagree with quiet GIGO -- a programmer should be provided at
least a warning message on use of an "invalid" construct.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Steve Smith]

​Two smart guys, two smart opinions, no doubt, on a moot point.

I'd like to offer that English is not case-sensitive (to any degree
comparable to computing use), for what that's worth (imho, a lot).  Many
language scripts have no such concept as "case" at all.  You can argue that
"John" and "john" mean different things, but that's specious.  Context
matters much more than case, especially in programming.

Most intelligent uses of case-sensitivity in naming are related cases that
could easily be handled in other ways, say by prefixes or suffixes.

sas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Clark Morris]

[Default] On 14 May 2018 12:33:35 -0700, in bit.listserv.ibm-main
sme...@gmu.edu (Seymour J Metz) wrote:

>There's enough interest in the PC world to support multiple PC 
>implementations, to say nothing of OOREXX. Does anybody remember what the 
>scripting language was for Amiga?

From what I vaguely recall reading I think it was AREXX.  Iè am fairly
certain it was a variant of REXX not from ever having used an Amiga
but because what I believe I read made a strong impression on me.

Clark Morris
>
>I don't like Perl syntax, but I use it from choice because it has named 
>captures in regexen and an awesome library (CPAN) of useful packages.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Seymour J Metz]

>  CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

Both. The Devil is in the detail, and some of the details are diabolical.

I'm one of those who spell Unix as Eunix, with malice aforethought, and who 
grumbles "When the only tool you have is a pipe, everything looks like a 
filter!", and I grew up on upper case names, but IMHO the case sensitivity is 
one of the things they got right. And yes, I have created two files whose names 
differed only in case, when there was a sound reason for so doing.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Phil Smith III 
Sent: Monday, May 14, 2018 4:50 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the 
Devil?

The funny part is, find the most rabid Unix-head you know, and ask why it's
A Good Thing that filenames are case-sensitive. In my reasonably extensive
experience at playing this game (including 5 years at Linuxcare, with lots
of victims), several things were always true:

1) They would assert vehemently that it was A Good Thing

2) They could not articulate why

3) When asked if they would ever create two files, "foo" and "FOO" (or
any two combinations of upper/lower), they would agree that would be stupid



So it fits the definition of "tradition": The same stupid old way we've
always done it!



I suspect that a Linux filesystem that was case-insensitive would not break
anything, and might lead to sanity.



Now, spaces in filenames is another matter, and harder to fix. My time at
Linuxcare cured me of ever creating such deliberately, at least!



.phsiii


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Phil Smith III]

The funny part is, find the most rabid Unix-head you know, and ask why it's
A Good Thing that filenames are case-sensitive. In my reasonably extensive
experience at playing this game (including 5 years at Linuxcare, with lots
of victims), several things were always true:

1) They would assert vehemently that it was A Good Thing

2) They could not articulate why

3) When asked if they would ever create two files, "foo" and "FOO" (or
any two combinations of upper/lower), they would agree that would be stupid

 

So it fits the definition of "tradition": The same stupid old way we've
always done it!

 

I suspect that a Linux filesystem that was case-insensitive would not break
anything, and might lead to sanity.

 

Now, spaces in filenames is another matter, and harder to fix. My time at
Linuxcare cured me of ever creating such deliberately, at least!

 

.phsiii


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Phil Smith III]

>Does anybody remember what the scripting language was for Amiga?

 

AmigaRexx, yes?

 


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Seymour J Metz]

I know that you think you know what circuitous means, but ...

>  Why can't a command (ADDRESS) environment be implemented in Rexx?

Because REXX isn't PL/I? Because REXX isn't a scripting language?

> Circuitous. 

Not even close; it was a counterexample to your claim about case insensitivity.

> And if BAR || '2' is an assigned variable 

The statement in question was

 x =value('foo.'bar'2')

It has nothing to do with a variable called BAR2, but rather a variable called 
BAR.

> For safety, you need to:
> TAIL = bar'2'
> X = foo.TAIL

ITYM for safety you need to use the value() BIF.

> How about in JCL?

Yes, I use inline data in JCL, but a lot less than when I was dealing with 
cards. Most of the inline data that I've seen in the last few decades shouldn't 
have been inline.

> Idiosyncratic neologism by analogy to "longjump".  Imagine ITERATE X
> or LEAVE X where X is not local but EXPOSEd from an enclosing procedure.

I think I'm going to be sick!

> Circuitous.  

Again, no.

>  Why not some sort of IMPORT list or EXPOSE list so the names
> could just be used as variables.  As in POSIX shell.

Because it's the right answer to the wrong question, and has nothing to do with 
the need for GLOBALV. Google for "persistent data".

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Sunday, May 13, 2018 4:45 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Heretic alert: I really detest TSO REXX (the language)

On Sun, 13 May 2018 19:16:36 +, Seymour J Metz  wrote:

>OOREXX solves many of the problems in classic REXX.
>
>I never found writing REXX function packages to be difficult.
>
THere's a lack of closure.  Why can't a command (ADDRESS) environment
be implemented in Rexx?

On Sun, 13 May 2018 19:59:59 +, Seymour J Metz  wrote:

>All symbols are case insensitive. Talis are case sensivtive:
>
>bar='baz'
>   say f.bar
>   say foo.BAR
>   say FOO.bar
>   say FOO.BAR
>
>will give 4 identical outputs, but change that first line to bar='BAZ' and 
>you're talking about a different variable.
>
>You can use the value BIF to get expressions in tails: x =value('foo.'bar'2')
>
Circuitous.  And if BAR || '2' is an assigned variable you may get undesired 
results.
(Try it; I think we had this discusion long ago.)  For safety, you need to:
TAIL = bar'2'
X = foo.TAIL

>WTF is a "longITERATE" or a "longLEAVE"?
>
Idiosyncratic neologism by analogy to "longjump".  Imagine ITERATE X
or LEAVE X where X is not local but EXPOSEd from an enclosing procedure.

>Admittedly I use here documents in Perl, but I'm not a big fan of them.
>
How about in JCL?

>Why can't IBM implement GLOBALV in TSO?
>
Circuitous.  Why not some sort of IMPORT list or EXPOSE list so the names
could just be used as variables.  As in POSIX shell.

>If IBM would be up OOREXX some of your other issues would be addressed.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Seymour J Metz]

> You have to  write some of the code in Assembler whether you like it or not. 

As it happens, I like.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
David Crayford 
Sent: Monday, May 14, 2018 1:52 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Heretic alert: I really detest TSO REXX (the language)

On 14/05/2018 3:16 AM, Seymour J Metz wrote:
> OOREXX solves many of the problems in classic REXX.


And it retains many of them. Like being typeless and lacking lexical
scoping.


> I never found writing REXX function packages to be difficult.


Maybe not difficult for some but it's significantly more complex when
compared to writing language bindings for modern languages. You have to
write some of the code in Assembler whether you like it or not. If you
require an LE environment you have to write glue code
using CEEPIPI. For most of the stuff I'm interested in I require LE
because I want to bind C++ libraries. REXX function packages seem
promising but retaining state is tricky and requires stashing an
environment pointer using name/token services.
Not to mention function names are limited to a maximum of 8 characters!
Better to use a command processor environment, but then you have to
write a command parser. Been there, done that it's a lot of work.

Now compare that to Lua where the entire I/O package in the standard
library is less than 1000 lines of code [1]

[1] 
https://secure-web.cisco.com/1fAE1FRpOV9ojUJunEHUBCFVOD9Cq2OCD86vgyzOiIsHIwBDb6-WW2lyfEwSKGyQjD5o4R0Qn78nIchAmYSESFM2sAr-IcGGPoOLpNrcSwqwecpV77BFCMgzRwn5CrNe7u4x-r4I-c4ssCj1JvexeCG-yfyQOwMEU_NB5i42tPvDGI0AW3N53li50oydNGIIEUdo1BgECp7fP9iSg41phwOf7EPgu5jDNi9Pzhe7VFSiF6XKfSo_rIhhexeJGpb9PDlbgHGTz7jcu5yM1fP-788ENVRxM4MMJmO3IBllVauhb_8XQMD9y05xA0FGb3YtIklpbfiiPlM_8QZmdeJ5mLV8SrO4QTi1qiQGDDSapHElDxYj1np6rEu-4KE7MXoxVFdcL48lEeu9CQnE5kwcDaw/https%3A%2F%2Fgithub.com%2Flua%2Flua%2Fblob%2Fmaster%2Fliolib.c%2A.%2A


> I don't care for Perl syntax, but between its expressive power and the 
> massive CPAN I find myself using it regardless.


I can do without the expressive power of Perl! It shone briefly as a CGI
language and it's good for text processing but with the emergence of
powerful PEG parser libraries [1] I can easily do more with less using
much cleaner languages.

[1] 
http://secure-web.cisco.com/1EEbpMNm2VKYWvGNw5YBUs_RbBqZHENUg8e4xfBd0hdeQnWk5Klw_AteQx0Iq_99PxUyJCYwDngm7XZP8PJUlNtNfe8WlpvHFmqKAxgJ56YZAjPdP-wawZEzOP6zmn0RNikkWsevN6cxtGxeZ9dmZrEuFnjg90BwCtrEZSBhKClU3CuFE_lPeYqLQX6dTqickTnVzO0ABt2x9OdyCroqjjFvO17_Y5Oq-dUMp0V2oN2O-iXDZBvvxC2Bm0PAA_Thjdojx6i7gfGu_9Q4_BdEV-wCHwWGS8ilRNbz3Ln9reaWkwZCfQ-SxEc81SF1nmN0iTR4E7JpTNura2ZW2och9sqEQmdpIeDxow9pCjfMxY5t39Ekt9skUCvYMjTZWPuXxyRlv35qSxKDG7QIIet6bKQ/http%3A%2F%2Fwww.igordejanovic.net%2FArpeggio%2Fgrammars%2F
   
https://secure-web.cisco.com/1F9OM8QJ2XyavxlCLH586mfiSbel08ataY-oMZl78K1kDEFa3mHAXcWbfBmgYlN4jA_uiEvHb5Lu4q2r0Dp-bBIcn9_CfEQYyFQqQ3CesYfaUiAd0qFTNf3u7sCVBMo4lIPgheolAmshmCXDHszAkEmkTfY-Oiu0YrSTJdzCKs0TeDbH3Oum_8XOJbIUpcZ4Xv3OvNvn46Ow-MzTWcvIdtbEqbeDyPmZrGiQ6o5_yo5Q5pk5_NJuwBu7DmSsI8Op7MHsntg3juJO8rNKmjwSE48xdtKxTT-sA_VtA74WWdZhbSiAj8qv7HvwASQdCSeGJYTBF847xdjxFVT6yvk8N6TNisUhlFPHAk394zmMQr3kpW-N4l-Qe6EZ2vY2uxzyDF1wq8P7-it9_bCieSmG8IA/https%3A%2F%2Fgithub.com%2Fpegjs%2Fpegjs
   
http://secure-web.cisco.com/1h6h6skXopckK2hfFJ6m_0QAMj7zePQQAeo23EPud_hD5YxAFCNFaNByYW5t7guGOst5nVvW_SzYMwWllW8jIeTCVAHUdqW8D9B9ZYplMSj9aXWibQEWTX-A-U4W0XUYaBY9ymbl6TO4WbJMMMC92k9XawDN0cy_fH5cJVNaLxuKoYXrzHSJIaEdmvPeen3PbgQc1zSUD7sCTBLUYwCqdsmnwmINZBtNPlnBnhjJA0p3l29aToCBAFylp8DLO0VLd6xeMDNsf9BY52jBMTFZxE0OLdfSsvr_CwGqpLKYd8p55zo_lVr9tue9c-3s2DA52hLBZBQbSyAoOvl5iou8uiTs-Xkkzythad1MFlo1ZJ9SjqdrenwQ6tV2ZzEVFONpK/http%3A%2F%2Fwww.inf.puc-rio.br%2F%7Eroberto%2Flpeg%2F
   
https://secure-web.cisco.com/10pTPbff4_0BbOMkG9LCpI2KXGAXoH5XiQyt2PIAk5v9UOd04uiRc8SYnkKUCFleCzcDYgHYCV2DRjn6jWnyEQ__eZFnDDxHKioZ6jsadxVUgZIFQg4-5sFjlg9JmqACIserqEL3pkCEPgfRIGSh651z152lFdYZ9L_mtyjDR3nLAXnHF7PUcjR3N8OKaUg9mq_byrtlnbSI-V9u4C_sP0_VlpXbyP5OxXkT0rrlsKmMXTV8TIjWxe0GaFomx5hp9PLsxcoVo-Wyxaw30wV8J5xQdZp-h11YI06Rb2ClqEw0m768kLmlrZL8DAwB14qfJvWF1TRKbD08UckOSvoXDvAyv_L4gFdP1h8y1BUKn8tiYqLhRvwSmzsqeXZnErSaXs5ze45Eb6EaNPSM5x9jtCA/https%3A%2F%2Fgithub.com%2Fevanphx%2Fkpeg


> That said, I find that REXX has a much cleaner syntax for scripting OS 
> commands


Agreed. Processing command strings is much cleaner in REXX then any
other language I know. But not by much.


>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
> 

Re: GETMAIN LOC=32

[Paul Edwards]

On Mon, 14 May 2018 19:36:29 +, Seymour J Metz  wrote:

> At least one poster in this thread made reference
> to the high 32 bits being altered. Are you saying
> that he was in error?

Here is a test of a 32-bit program running in
AM64 on z/OS:

welcome to pdptest
main function is at 11913024
first byte of main is 47
running as amode 64
allocating 10 bytes
m1 is 11915248
allocating 20 bytes
m2 is 11915288
stack is around 7330
copying from file dd:in, mode text to file dd:out, mode text
16 bytes copied


The source code can be found here:

https://sourceforge.net/p/pdos/gitcode/ci/master/tree/pdpclib/pdptest.c

But of more interest is the assembler driver:

https://sourceforge.net/p/pdos/gitcode/ci/master/tree/pdpclib/mvssupa.asm

Especially the GAMOS/GAMAPP macros and
the @@SETUP routine that allows the 32-bit
program to be quadmodal (AM24/31/32/64)
and run on any environment (MVS/XA etc)
thanks to the "step down" in GAMOS. Note
that I am planning on changing the @@SETUP
function so that it is defined not by ZSYS but
instead a "STEPDOWN" variable.

Note what Greg Price had to say - you CAN
write quadmodal code, but up until now,
no-one HAS, for no particular reason.
quadmodal code paves the way for a pure
64-bit site, which is what I would like to
see. ie both 32-bit and 64-bit programs
running exclusively as AM64 on a z/OS site.

BFN. Paul.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMAIN LOC=32

[Seymour J Metz]

At least one poster in this thread made reference to the high 32 bits being 
altered. Are you saying that he was in error?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Paul Edwards 
Sent: Monday, May 14, 2018 3:31 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: GETMAIN LOC=32

On Mon, 14 May 2018 19:21:59 +, Seymour J Metz  wrote:

>>>In all of this, I don't remember the OP ever mentioning saving and restoring
>>>the 64-bit registers. Without doing that the calling conventions are 
>>>violated,
>>>and you are breaking any AMODE(64) caller.

>>The intention was for this to be used by a 32-bit
>>program, that only executes 32-bit instructions,
>>that only ever change 32-bit registers, which
>>means that you only need to save and restore
>>32-bit registers.

>So there was no intention to run under z/OS?

I don't understand the comment. z/OS is indeed
a target, and if you try running a 32-bit program
in AM64 on z/OS you will find that it runs perfectly
fine, and you only need to save the 32-bit registers.
So long as you only use 32-bit instructions and
don't disturb the upper 32 bits of registers.

BFN. Paul.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMAIN LOC=32

[Paul Edwards]

On Mon, 14 May 2018 19:21:59 +, Seymour J Metz  wrote:

>>>In all of this, I don't remember the OP ever mentioning saving and restoring
>>>the 64-bit registers. Without doing that the calling conventions are 
>>>violated,
>>>and you are breaking any AMODE(64) caller.

>>The intention was for this to be used by a 32-bit
>>program, that only executes 32-bit instructions,
>>that only ever change 32-bit registers, which
>>means that you only need to save and restore
>>32-bit registers.

>So there was no intention to run under z/OS?

I don't understand the comment. z/OS is indeed
a target, and if you try running a 32-bit program
in AM64 on z/OS you will find that it runs perfectly
fine, and you only need to save the 32-bit registers.
So long as you only use 32-bit instructions and
don't disturb the upper 32 bits of registers.

BFN. Paul.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Seymour J Metz]

SCP was certainly inspired by CP/M, but m$ was not. Certainly there are things 
in PC/MS-DOS that are somewhat different from CP/M.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
John McKown 
Sent: Monday, May 14, 2018 8:23 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the 
Devil?

On Sun, May 13, 2018 at 3:26 PM, Seymour J Metz  wrote:

>  1. m$ started with QDOS, not CP/M
>

​Yes you are correct. I was under the impression that QDOS was "inspired"
by CP/M-80. At least MS-DOS 1.0 seemed to be CP/M-ish to me. ​



>
>  2. CP/M was influence by RT-11
>

​My ignorance shows here. I know know nothing about DEC system (RT-11 was
DEC/PDP, right?). At college, we had a TOPS-20 system that I loved.
Especially compared to MVT and Wylbur.​



>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>

--
We all have skeletons in our closet.
Mine are so old, they have osteoporosis.

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMAIN LOC=32

[Seymour J Metz]

So there was no intention to run under z/OS? 


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Paul Edwards 
Sent: Monday, May 14, 2018 10:21 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: GETMAIN LOC=32

On Mon, 14 May 2018 07:14:40 -0500, Tom Marchant  
wrote:

>In all of this, I don't remember the OP ever mentioning saving and restoring
>the 64-bit registers. Without doing that the calling conventions are violated,
>and you are breaking any AMODE(64) caller.

The intention was for this to be used by a 32-bit
program, that only executes 32-bit instructions,
that only ever change 32-bit registers, which
means that you only need to save and restore
32-bit registers.

BFN. Paul.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Seymour J Metz]

As I recall, CP/M had PIP from the DEC world, which PC-DOS did not. Wasn't 
there also a change from ED to EDLIN?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Steve Thompson 
Sent: Monday, May 14, 2018 10:58 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the 
Devil?

On 05/13/2018 04:26 PM, Seymour J Metz wrote:
>   1. m$ started with QDOS, not CP/M

I wish I still had the documents -- but a long story quite short:
I was told CP/M, and the very first copy of MS/DOS that I got,
had the same commands and lack of sub-folders that CP/M I had
been using had. Granted, I was not a power user of that system, I
was experimenting with it. So I didn't have any reason to
question what had been said back then.

I don't remember QDOS itself -- I have a hazy memory of the name.

>   2. CP/M was influence by RT-11

Thank you for this. I Couldn't remember the precise system, but I
knew it was involved with a *nix type OS.

Regards,
Steve Thompson

>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List  on behalf of 
> Steve Thompson 
> Sent: Friday, May 11, 2018 10:48 AM
> To: IBM-MAIN@listserv.ua.edu
> Subject: Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the 
> Devil?
>
> I've got an observation you and your boss probably won't like.
>
> Windows is based on CP/M (that is what Microsoft started with).
> Guess what CP/M was based on.
>
> Now, here we are 30+ years from M/S and Windows (~ 1983 for first
> release), and they have a lower RAS than does Linux which started
> after them (~1991).
>
> So, perhaps your boss should consider going to Linux Desktops and
> get away from the problems of Windows?
>
> As more and more people go to Linux Desktops, Adobe (and others)
> would have to change their position and go back to supporting
> their products for Linux distros.
>
> And then the *nix file structure being case sensitive would stop
> being a problem, because one would get use to it from working
> with it on a daily basis.
>
> My biggest problem with *nix (POSIX) on z/OS is the goofy way we
> have to define the files for it.
>
> Perhaps the MVS side of z/OS needs to learn to get along with FBA
> and we can stop emulating ECKD with FBA, that then emulate FBA to
> allow POSIX (Unix System Services and related file systems) to
> work on/with z/OS (what overhead).
>
> [FBA boxes seem to be cheaper than the ones that emulate ECKD
> devices -- well at least from where I sit.]
>
> Just my 2 cents.
>
> Regards,
> Steve Thompson
>
> On 05/11/2018 09:03 AM, John McKown wrote:
>> OK, I bet I got your attention on that {grin}.
>>
>> But, seriously, I am wondering what the "person in the trenches" thinks
>> about the increasing use of UNIX files and commands becoming more prevalent
>> on z/OS. I am basically asking because my manager absolutely despises UNIX
>> files. And hates the current maintenance processes from IBM and CA which
>> force him to use it. One of his reasons is the case sensitivity of the UNIX
>> file names. Of course, like most people in the world, his mind has been
>> corrupted by the case insensitivity of Windows. As well as the very
>> prevalent use of space characters in Windows file and directory names. This
>> case sensitivity of names may be another reason why new people, likewise
>> corrupted by Windows, will take an instant dislike for z/OS. OTOH, Linux
>> might find it minimally interesting. And maybe even quite interesting, if
>> IBM would adopt and maintain a port of the GNU infrastructure software.
>>
>> What I think, and I am likely stupid on this, is that the Apple HFS+
>> approach might work. Just like, at present, when you create a zFS
>> filesystem, the default for filenames on an HFS+ filesystem are, like
>> Windows, case _in_sensitive. However, when an HFS+ filesystem is
>> initialized, it can be set as "case sensitive". This is done on a
>> filesystem-by-filesystem basis. What might be nice is to enhance(?) zFS so
>> that it can be made case _in_sensitive (reverse default of HFS+). This
>> might be very helpful for "naive" z/OS UNIX users. Put the ${HOME}
>> directory (usually /u) under automount and set the parameters so that when
>> automount creates & initializes a ${HOME} directory, it is
>> case-insensitive. And, of course, they should be a way to "flip the switch"
>> back an forth between case sensitivity and case insensitivity. Of course,
>> the "make insensitive" conversion will need to check & abort if there two
>> names in the same directory which are equivalent when case is ignored. I
>> would think this would be simple; check for possible problems and if none,
>> just flip the switch in some sort of "header" data area.  

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Seymour J Metz]

QDOS was intended to be a clone of CP/M. PC-DOS  had some significant 
differences form CP/M; I don't know whether that was true of QDOS.

I vaguely recall that CP/M had PIP with DEC syntax.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
R.S. 
Sent: Monday, May 14, 2018 11:08 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the 
Devil?

W dniu 2018-05-14 o 16:58, Steve Thompson pisze:
> On 05/13/2018 04:26 PM, Seymour J Metz wrote:
>>   1. m$ started with QDOS, not CP/M
>
> I wish I still had the documents -- but a long story quite short: I
> was told CP/M, and the very first copy of MS/DOS that I got, had the
> same commands and lack of sub-folders that CP/M I had been using had.
> Granted, I was not a power user of that system, I was experimenting
> with it. So I didn't have any reason to question what had been said
> back then.
>
> I don't remember QDOS itself -- I have a hazy memory of the name.

CP/M was very similar to any DOS version. The most important (IMHO)
exception was lack of directories.

BTW: I still have CP/M and hardware capable to run it ;-)
First version of MS-DOS I worked consciously with was 3.30, however I
had to do with some older version also.

--
Radoslaw Skorupka
Lodz, Poland




==


--
 Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

 This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

 mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
http://secure-web.cisco.com/1rtIM8OVbiUKxBmNIv5rUCVThGm9EKCX1lLVqDeNJ4I86OCgpk3f-Sc2LfYDfoWWvdJjORXNqrwgdbTGOEIzVTmSb8D888Ndn9cMbMfYi5QkD1OkXleJqmQEu9DB5sMvIZ3a1voem6AxbcSWXpWwS7wxNvC96m10c2fiLPbA0CzDnQkdj8vjl6T1tD5uPUHE5_P1fAzRA_QfD_cQD3VqNkSeEtpDn6SZS-aiYRLuGk4i3jY1t4gRlf3g4I7pJe7A2p8xK_pUmsE95_SDtD0w90edWWCLS-96IO_PafPZYGrSd9qOwhifqCij6U5vmq-LDoAkpnefCLVGBlEuRG8h7ResxsnzXV1G8XagRVPL0IlTs4KddScA9DxcIotpO3EtH5c0_2Nw3dbgtXCCXL-zpIw5VvW6N6V3PYnMhLw-8b0Un7LmAIE1ud34VunauEeHw/http%3A%2F%2Fwww.mBank.pl,
 e-mail: kont...@mbank.plsąd Rejonowy dla m. st. Warszawy XII Wydział 
Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców KRS 
025237, NIP: 526-021-50-88. Według stanu na dzień 01.01.2018 r. kapitał 
zakładowy mBanku S.A. (w całości wpłacony) wynosi 169.248.488 złotych.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Seymour J Metz]

>And PROCEDURE gives you lexical scoping of a sort, no?

Yes and no, mostly no.

The term lexical scoping normally includes proper handling of nesting, which 
REXX doesn't have.



--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Phil Smith III 
Sent: Monday, May 14, 2018 11:39 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Heretic alert: I really detest TSO REXX (the language)

Gil wrote:

>I call that weakness a tie with lack of regular expressions.  There's a
similar
>bias in the IBM community to consider regexen Bad.



Well, we could have a whole 'nother thread on whether regex are A Good Thing
or not ("now you have two problems" and all that), but actually there was at
least one regex implementation for Rexx, as a function package, so it sort
of winds up being (arguably!) the same point.



David Crayford complained about Rexx being typeless and lacking lexical
scoping. These are considered strengths by some of us. And PROCEDURE gives
you lexical scoping of a sort, no?


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Seymour J Metz]

Yes, ISPF has limited (e.g., no named captures) regexen, but lots of REXX code 
is not intended to run under ISPF.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of 
Mike Schwab 
Sent: Monday, May 14, 2018 12:29 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Heretic alert: I really detest TSO REXX (the language)

z/OS has Regex in
ISPF 2.01 
https://secure-web.cisco.com/1gd11NXtRpsNGpTEQV0GHccNCniCu4XpHBL76NpmleVI5NU-yDW6SaS43JUJ_u4EL3P_7uelrG2112ssPpg7szKIFpj2dpDqjSH10_1G8TaCwqgz9P2eW4c-il8x5XMWT7MGiP7KVr2391DohQdT-90LQzxAEs8171euUfqv8LNnl18Ic3YQHIbAas7jCaB6UHmC4N5C8OWRz_OYBfoaGHXU1izCVrUgR4prIFhE6gWBxyHY9k49I4Y7tTf2Q_xbgp71k6JCfJqP0mOVcKdYjgJGnQf9g60Ev2BoBbfySzWQotVoXf3NFApAF5ZELooUIP1S7N8j9lat12gWXT9fFKubf14Jwy-3gX10asRYYfatW5dYOhNxKA_1wiPxpyVGeFuiAKb4wHSDKdDJ-1bcuV3YJ58OOozsKBuM0r04--3xJ1Sme9CzlTCBC_6d05mfs/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.1.0%2Fcom.ibm.zos.v2r1.f54em00%2Fuseofr1.htm
Awk 
https://secure-web.cisco.com/1fQY98dsOtQ7culCYmjaia00Hrvcabq2S8M4hQqCzZFwhPI5LfDy6IjXE8ADK4ZzQRRqsSTd7YN3qI33RP7d6zYKtisl2PzgimWUK4WdNrHUE_zmowcJx2xzIKRSgzPtUVmfdva1TJG72qZ2hlUjjpRsQvlwKRWcWXqODvT_SdzlIlEqOFnxv3wbRH1Dw1fWpDQ1b4gYh9457QbuO31GeoHnCb5VADph85i_gIZktY0bJ9K0dWHIQfgbx2QLfY0qTEnmi97_F6PTuZWD0wfWR3R3B5KeI8HqtZ3RfWvRornliSDVKzaYHwTnwk89LhrG_ciqP3g983oGZ9I-4rrca-19vWpgYBYXknvJ3AzG16nEBg-XP4YoItIamgiukRB3tLZKITcn6XBRe9j2aNoB8LAbO5CheSTZysNXud1hD3M-Z12Jbe0GOIfB2HVjOIVqQ/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.1.0%2Fcom.ibm.zos.v2r1.bpxa400%2Fbpxug444.htm
Shells 
https://secure-web.cisco.com/1cEMAEZMMuIWhuBuvX3Nt3pp_G3TuqM-dVvN9oT2IDLNx4DG7xIC9UdmK96vhMf_YJXwmBGtBGlfxNDYo-6t8Wfz51TNGE4YKZsCEFiqnFH5S6XyI7Ng2PkzPlUrA2Eyi2dyS2TwTC05ei1q072QqCCezd8B3fUdVJ6ogZZhsEFgUWAMiHoD6GrNgk9zPcYWVNGQLnuMRRfvJpWEnzeLl1R9De52WciYcxU97Qprg6p-c7tfHiN9e_2i3P-PwbHM-tibukl8vdKBeRKAj6Vcz9kfffvnQ13rgvraEWZoPHYtHbAFmJF8FfA9ZXqkKl1264flsPcuNS3-eW2e5P75Y07Ps13kW6n7ICShN65KieGKEa0r9FciwHTpRPz3SdrEWKGZwmxPlgIcOk8HAgXeId6cP_897oaXQ0tJJ_9Oy3Mpe33gVa64gWR2ZD2TMLVIU/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.1.0%2Fcom.ibm.zos.v2r1.bpxa500%2Fregexpa.htm

On Mon, May 14, 2018 at 10:39 AM, Phil Smith III  wrote:
> Gil wrote:
>
>>I call that weakness a tie with lack of regular expressions.  There's a
> similar
>>bias in the IBM community to consider regexen Bad.
>
>
>
> Well, we could have a whole 'nother thread on whether regex are A Good Thing
> or not ("now you have two problems" and all that), but actually there was at
> least one regex implementation for Rexx, as a function package, so it sort
> of winds up being (arguably!) the same point.
>
>
>
> David Crayford complained about Rexx being typeless and lacking lexical
> scoping. These are considered strengths by some of us. And PROCEDURE gives
> you lexical scoping of a sort, no?
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM-MAIN Digest - 12 May 2018 to 13 May 2018 (#2018-133)

[John McKown]

On Mon, May 14, 2018 at 1:21 PM, Tom Russell 
wrote:

> >Date:Mon, 14 May 2018 00:12:54 +
> >From:Jesse 1 Robinson 
> >Subject: Re: Problem with $BUFFER control block
>
> >I was hopeful that the IEZIOB would include the missing fields.
> >Unfortunately it does not. Before opening an SR with IBM, I thought
> > I'd give the List one more shot. The $BUFFER macro changed in z/OS 2.2;
> > we're jumping from 2.1 to 2.3 using code carried unmodified for decades
> (!).
>
> You would have to add the IEXIOB macro to your test case, but on our 2.2
> system the dsect generated by IEZIOB DSECT=YES has a label of "IOB" and the
> code in $BUFFER gets offsets using the label IOBDSECT code like "
> ORG   BUFIOBST+(IOBSEEK-IOBDSECT)+4  Redefine IOB end @Z22LCKP  "
>
> IOBDSECT isn't defined in either IEZIOB or $BUFFER.
>

​But it is defined in $MODULE.​



>
>
>
> Tom Russell
> “Stay calm. Be brave. Wait for the signs” — Jasper FriendlyBear
> “… and remember to leave good news alone.” — Gracie HeavyHand
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
We all have skeletons in our closet.
Mine are so old, they have osteoporosis.

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM-MAIN Digest - 12 May 2018 to 13 May 2018 (#2018-133)

[Tom Russell]

>Date:Mon, 14 May 2018 00:12:54 +
>From:Jesse 1 Robinson 
>Subject: Re: Problem with $BUFFER control block

>I was hopeful that the IEZIOB would include the missing fields. 
>Unfortunately it does not. Before opening an SR with IBM, I thought
> I'd give the List one more shot. The $BUFFER macro changed in z/OS 2.2;
> we're jumping from 2.1 to 2.3 using code carried unmodified for decades (!).

You would have to add the IEXIOB macro to your test case, but on our 2.2 system 
the dsect generated by IEZIOB DSECT=YES has a label of "IOB" and the code in 
$BUFFER gets offsets using the label IOBDSECT code like "ORG   
BUFIOBST+(IOBSEEK-IOBDSECT)+4  Redefine IOB end @Z22LCKP  "   

IOBDSECT isn't defined in either IEZIOB or $BUFFER.

 

Tom Russell  
“Stay calm. Be brave. Wait for the signs” — Jasper FriendlyBear
“… and remember to leave good news alone.” — Gracie HeavyHand 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Phil Smith III]

Charles wrote, in part:

>I wrote a large set of applications in Rexx once. I put all of my "intended

>to be global" variable names into a single Rexx variable and exposed it
with

>Procedure Expose (Rexx_Globals)

 

Yep. That's one of the approaches; I've used that, also used a set of stems:

G.

U.

D.

(whatever, but often segmented that way-for example, G. might be global
configuration settings; U. be user data; D. might be, well, data data!).
This strongly suggests being rigorous with tail naming: I use leading
underscores for non-variable tails:

G._Logging

and then never use any local variables with leading underscores (yes,
_Logging is a valid variable name). An easy convention to follow, and makes
it easy to tell the difference between:

U.settings

(which will substitute the tail, and

U._settings

 

Enforced with SIGNAL ON NOVALUE (and perhaps G.='' et al. as appropriate),
this gives me the lexical scoping I need with the power of tails etc.

 

For those who aren't experience with Rexx: don't overlook the associative
memory aspect of tails!

 

A final note: a friend commented to me re this thread, "Nobody will change
anyone's mind, so it's all just wind." Well, sorta. But it's useful,
perhaps, to discuss these issues and at least understand the other folks'
perspective. Rexx isn't perfect, isn't the right hammer for all nails. But
for what it was designed to do, it's pretty darned good. Perl is (arguably?)
one step along the track toward a "real" programming language, but it's also
not as well suited for what Rexx was designed to do - be an interface for
operating system commands.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Paul Gilmartin]

On Mon, 14 May 2018 11:29:01 -0500, Mike Schwab wrote:

>z/OS has Regex in
>ISPF 2.01 
>https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.f54em00/useofr1.htm
>Awk 
>https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxa400/bpxug444.htm
>Shells 
>https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxa500/regexpa.htm
> 
Seriously!?

Think how long a reach that is if you're running Rexx under Unix System 
Services.
ADDRESS TSO to start ISPF to enter Edit of a temp file with a profile to insert 
your
string and FIND r'whatever'!  And in that Rube Goldberg I doubt that your Edit
profile macro will be able to access variables in your original Rexx to return a
result.

Better ADDRESS SYSCALL spawn sed.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

[Dale R. Smith]

On Mon, 14 May 2018 19:29:36 +0300, saurabh khandelwal 
 wrote:

>Hello Lucas,
>
>This code worked for me
>
>but I had to remove Address TSO from this rexx code to make it work .
>
>MVS  "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW"
>
>I am really thankful to you and other group member to help me to solve this
>issue.

Netview does not run under TSO so it does not support the "Address TSO" command 
environment.  It does support "Address MVS" and some other environments.  

See the following:  
https://www.ibm.com/support/knowledgecenter/en/SSZJDU_6.1.0/com.ibm.itnetviewforzos.doc_6.1/dqgl2mst68.htm

You need to review the Netview documentation to see what Netview commands are 
available for use.

-- 
Dale R. Smith

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Pew, Curtis G]

On May 14, 2018, at 9:58 AM, Steve Thompson  wrote:
> 
>>  1. m$ started with QDOS, not CP/M
> 
> I wish I still had the documents -- but a long story quite short: I was told 
> CP/M, and the very first copy of MS/DOS that I got, had the same commands and 
> lack of sub-folders that CP/M I had been using had. Granted, I was not a 
> power user of that system, I was experimenting with it. So I didn't have any 
> reason to question what had been said back then.
> 
> I don't remember QDOS itself -- I have a hazy memory of the name.
> 
>>  2. CP/M was influence by RT-11
> 
> Thank you for this. I Couldn't remember the precise system, but I knew it was 
> involved with a *nix type OS.

If you believe Wikipedia 
(https://en.wikipedia.org/wiki/CP/M#The_beginning_and_CP/M's_heyday)

“Various aspects of CP/M were influenced by the TOPS-10 operating system of the 
DECsystem-10 mainframe computer, which Kildall had used as a development 
environment.”

and (https://en.wikipedia.org/wiki/86-DOS)

“Initially known as QDOS (Quick and Dirty Operating System), the name was 
changed to 86-DOS once SCP started licensing the operating system in 1980.

86-DOS had a command structure and application programming interface that 
imitated that of Digital Research's CP/M operating system, which made it easy 
to port programs from the latter. The system was purchased by Microsoft and 
developed further as MS-DOS and PC DOS.”

(I should say that I do believe Wikipedia, at least on this topic. This matches 
pretty closely to what I remember reading elsewhere.)


-- 
Pew, Curtis G
curtis@austin.utexas.edu
ITS Systems/Core/Administrative Services


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

[saurabh khandelwal]

Hello Lucas,

This code worked for me

but I had to remove Address TSO from this rexx code to make it work .

MVS  "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW"

I am really thankful to you and other group member to help me to solve this
issue.

Now, I setup my netview auto table

IF MSGID = 'IEF878I' & TEXT = 'END OF' & TEXT = MTXT THEN
EXEC(CMD('FDIREXX' MTXT)) NETLOG(Y) SYSLOG(Y);
So, basically i am trying to trap the message like below from
IEF878I END OF IEF877E FOR OP117603 STEP1 GO DLMTOKEN

full message Message is

  ICH70001I OP117 LAST ACCESS AT 13:13:42 ON MONDAY, MAY 14, $HASP373
OP117603 STARTED - INIT A - CLASS A - SYS IEF403I OP117603 - STARTED -
TIME=13.18.16 IEF244I OP117603 STEP1 GO - UNABLE TO ALLOCATE 1 UNIT(S) 049
AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 UNIT(S) 050 FOR
STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF IEF877E
FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in netview as
below 3:59:36 C BR NETLOGA 4:01:11 " IEF877E OP117603 NEEDS 1 UNIT(S)
4:01:11 " FOR STEP1 GO DLMTOKEN 4:01:11 " FOR VOLUME BFL603 4:01:11 "
OFFLINE 4:01:11 " 0FBF 4:01:11 " : 4:01:11 E IEF878I END OF IEF877E FOR
OP117603 STEP1 GO DLMTOKEN But now, my aim is to display this whole message
to operator using send command upon getting msgid IEF878I and text  "END OF"
Now, I coded rexx like below.

ARG MSGTXT PARSE VAR MSGTXT MSGID 'TO 'DSET DSET = STRIP(DSET)
MSGTX = DSET
SAY 'DATASET NAME IS' DSET MVS "SEND 'MSGTX ' USER(OP117) NOW"
But I am unable to see this message on my tso screen after this event
trigger.

Can anybody help.

On Mon, May 14, 2018 at 11:11 AM, Lucas Rosalen 
wrote:

> Hi Venkat,
>
> Could you try with the following code?
>
> ==
> /* REXX */
>
>  SAY 'HELLO WORLD!'
>
>  "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW"
>
> EXIT
> ==
>
>
> 
> ---
> *Lucas Rosalen*
> rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> http://br.linkedin.com/in/lrosalen
>
>
> 2018-05-14 9:28 GMT+02:00 Werner Kuehnel :
>
> > Hello Venkat,
> > this is how it works at our site:
> >
> > /*/
> > /*  FUNCTION: submits job*/
> > /*/
> > 'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
> > EXIT
> >
> > Just one apostrophe at the beginning and one at the end. No ADDRESS TSO.
> > Member JCLMBR contains the JCL.
> >
> > Hth,
> > Werner
> >
> > -Ursprüngliche Nachricht-
> > Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im
> > Auftrag von venkat kulkarni
> > Gesendet: Montag, 14. Mai 2018 06:27
> > An: IBM-MAIN@LISTSERV.UA.EDU
> > Betreff: Re: Netview Submit JCL
> >
> > Hello,
> >
> > This command didn't worked for me and getting same issue.
> >
> > On Sun, May 13, 2018, 11:21 PM Lucas Rosalen 
> > wrote:
> >
> > > Hi Venkat,
> > >
> > > What about using the syntax below?
> > >
> > > "MVS SEND 'your_message' USER(user) NOW"
> > >
> > >
> > >
> > > 
> > ---
> > > *Lucas Rosalen*
> > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > http://br.linkedin.com/in/lrosalen
> > >
> > >
> > > 2018-05-13 20:50 GMT+02:00 Steve Horein :
> > >
> > > > And the man ate fish for a day
> > > >
> > > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > > > venkatkulkarn...@gmail.com> wrote:
> > > >
> > > > > Hello Lucas,
> > > > >
> > > > > Your solution worked for me
> > > > >
> > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'" .
> > > > >
> > > > > Now, I am trying to issue tso send command using this rexx  as
> below
> > > > using
> > > > > netview but i am getting below errror
> > > > >
> > > > >
> > > > > /*  REXX */
> > > > >
> > > > >  ADDRESS TSO
> > > > >
> > > > >  SAY 'HELLO WORLD!'
> > > > >
> > > > >  "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"
> > > > >
> > > > >
> > > > >
> > > > > Error
> > > > >
> > > > > EF404I USR54 LC - ENDED - TIME=14.29.07
> > > > >
> > > > > HELLO WORLD!
> > > > >
> > > > >  4 *-* "SEND ''FDI FILE HAS BEEN RECEIVED' USER( USR54 )
> > > > >
> > > > >+++ RC(-3) +++
> > > > >
> > > > >
> > > > >
> > > > > I am unable to find correct syntax for this. I didnt find anything
> in
> > > > > manual . Can you please help.
> > > > >
> > > > >
> > > > >
> > > > > On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
> > > rosalen.lu...@gmail.com>
> > > > > wrote:
> > > > >
> > > > > > Try changing FDIREXX script to the following:
> > > > > >
> > > > > > /* REXX */
> > > > > >
> > > > > > "SUBMIT 

Re: Heretic alert: I really detest TSO REXX (the language)

[Mike Schwab]

z/OS has Regex in
ISPF 2.01 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.f54em00/useofr1.htm
Awk 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxa400/bpxug444.htm
Shells 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxa500/regexpa.htm

On Mon, May 14, 2018 at 10:39 AM, Phil Smith III  wrote:
> Gil wrote:
>
>>I call that weakness a tie with lack of regular expressions.  There's a
> similar
>>bias in the IBM community to consider regexen Bad.
>
>
>
> Well, we could have a whole 'nother thread on whether regex are A Good Thing
> or not ("now you have two problems" and all that), but actually there was at
> least one regex implementation for Rexx, as a function package, so it sort
> of winds up being (arguably!) the same point.
>
>
>
> David Crayford complained about Rexx being typeless and lacking lexical
> scoping. These are considered strengths by some of us. And PROCEDURE gives
> you lexical scoping of a sort, no?
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



-- 
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Charles Mills]

> And PROCEDURE gives you lexical scoping of a sort, no?

Indeed. Nothing that would make an Algol purist happy, but then, Rexx is not
Algol -- QED.

I wrote a large set of applications in Rexx once. I put all of my "intended
to be global" variable names into a single Rexx variable and exposed it with
Procedure Expose (Rexx_Globals)

Worked pretty well.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Phil Smith III
Sent: Monday, May 14, 2018 8:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Heretic alert: I really detest TSO REXX (the language)

Gil wrote:

>I call that weakness a tie with lack of regular expressions.  There's a
similar
>bias in the IBM community to consider regexen Bad.

 

Well, we could have a whole 'nother thread on whether regex are A Good Thing
or not ("now you have two problems" and all that), but actually there was at
least one regex implementation for Rexx, as a function package, so it sort
of winds up being (arguably!) the same point.

 

David Crayford complained about Rexx being typeless and lacking lexical
scoping. These are considered strengths by some of us. And PROCEDURE gives
you lexical scoping of a sort, no?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Sankaranarayanan, Vignesh]

Thanks Craig.

"1)  Each "shared" configuration must be the same.  I say shared, as you can 
have multiple configuration on each environment.  The "shared" one must be the 
same or you can have errors."

My question is around the server/VM cloning part.

If the servers are literally copies of the 1 server where I install & configure 
it, there cannot be any config drift.
Ex: Cloning server/VM 'A' to create B, C, and D (I'm renaming the hostnames to 
match the VM/server names of course).

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Craig Pace
Sent: Monday 14-May-2018 19:34
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Yes, you can do that, if your Load Balancer is correct configured.  We ran HOD 
only from the Mainframe; however, we had several LPARs configured into a single 
"Network" LPAR using TCPIP balancing.  Each environment will still have its own 
IP address; however, the Load Balancer will then have its own virtual IP 
Address.  This allows you to use the virtual IP Address as your normal access 
and it will balance between the environments.  This also allows you to connect 
to each environment separately as well, if needed.

When do this, keep in mind the following:

1)  Each "shared" configuration must be the same.  I say shared, as you can 
have multiple configuration on each environment.  The "shared" one must be the 
same or you can have errors.
2)  You also must either use a Server/Client install combination for this to 
work correctly 100% of the time.  You want the software to be loaded on the 
server and all personal configuration files to be loaded on the client side.  
This prevents them from having a chance of some different settings per 
environment.



Thanks,


Craig


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Richards, Robert B.
Sent: Monday, May 14, 2018 06:11
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Vignesh,

We do not have ours configured that way. We have several different started 
tasks running on several lpars that appear to serve different environments 
(UAT, CITRIX, etc.) and no load balancer being used that I am aware of.  Ours 
can be started in at least two ways; JAVAWS at a CMD prompt and invoking a web 
url string.

And that is almost the end of my knowledge about HOD  and my HOD guy is 
unavailable (at a DR test).

Bob


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 6:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Thanks Bob.

Say there are 'n' servers that have HOD installed, and all of them are under a 
load balancer, so there's a single target.
Would it work if the product was just installed and setup in 1 server, and then 
cloned 'n-1' times?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 10:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

https://na01.safelinks.protection.outlook.com/?url=www.marksandspencer.com=02%7C01%7CCraig.Pace%40FOTLINC.COM%7C93ce57cd46d74acd250b08d5b98b61b3%7C0d32279fb86a46bcaf3c48ad3cf3caf9%7C0%7C0%7C636618930718992612=1TKR%2Bc%2FDweS99tfpA0b%2FaiZSgTzQUx%2Fea%2B7Nm%2FnhmVI%3D=0

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO 

Re: Heretic alert: I really detest TSO REXX (the language)

[Phil Smith III]

Gil wrote:

>I call that weakness a tie with lack of regular expressions.  There's a
similar
>bias in the IBM community to consider regexen Bad.

 

Well, we could have a whole 'nother thread on whether regex are A Good Thing
or not ("now you have two problems" and all that), but actually there was at
least one regex implementation for Rexx, as a function package, so it sort
of winds up being (arguably!) the same point.

 

David Crayford complained about Rexx being typeless and lacking lexical
scoping. These are considered strengths by some of us. And PROCEDURE gives
you lexical scoping of a sort, no?


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Paul Gilmartin]

On Mon, 14 May 2018 17:08:27 +0200, R.S. wrote:
>
>CP/M was very similar to any DOS version. The most important (IMHO)
>exception was lack of directories.
> 
Interesting.  Earliest releases of Mac OS {which I never used) MFS similarly
lacked directories.  "Folder" membership was instead an attribute in the
catalog entry of any file.  But no two files, even "in" different folders could
have identical names.  Later, HFS filled the gap, leaving bizarre conventions
to distinguish relative paths from absolute, required for compatibility.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Paul Gilmartin]

On Mon, 14 May 2018 00:03:30 -0400, Phil Smith III wrote:
>
>I believe that Rexx's biggest weakness was that it came from IBM back when
>IBM was considered Bad by the non-IBM community. If folks had jumped on Rexx
>and written packages like they did for Perl, I like to think that it would
>have been as popular. It's certainly easier to learn and write (one of its
>design goals, of course).
> 
I call that weakness a tie with lack of regular expressions.  There's a similar
bias in the IBM community to consider regexen Bad.

Concerning language competitions, I've long wondered how PL/S would have
fared against C on a level playing field.  But that case is closed; stare decis.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[R.S.]

W dniu 2018-05-14 o 16:58, Steve Thompson pisze:

On 05/13/2018 04:26 PM, Seymour J Metz wrote:

  1. m$ started with QDOS, not CP/M


I wish I still had the documents -- but a long story quite short: I 
was told CP/M, and the very first copy of MS/DOS that I got, had the 
same commands and lack of sub-folders that CP/M I had been using had. 
Granted, I was not a power user of that system, I was experimenting 
with it. So I didn't have any reason to question what had been said 
back then.


I don't remember QDOS itself -- I have a hazy memory of the name.


CP/M was very similar to any DOS version. The most important (IMHO) 
exception was lack of directories.


BTW: I still have CP/M and hardware capable to run it ;-)
First version of MS-DOS I worked consciously with was 3.30, however I 
had to do with some older version also.


--
Radoslaw Skorupka
Lodz, Poland




==


   --
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.plsąd Rejonowy dla m. st. Warszawy XII 
Wydział Gospodarczy Krajowego Rejestru Sądowego, nr rejestru przedsiębiorców 
KRS 025237, NIP: 526-021-50-88. Według stanu na dzień 01.01.2018 r. kapitał 
zakładowy mBanku S.A. (w całości wpłacony) wynosi 169.248.488 złotych.
   


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Steve Thompson]

On 05/13/2018 04:26 PM, Seymour J Metz wrote:

  1. m$ started with QDOS, not CP/M


I wish I still had the documents -- but a long story quite short: 
I was told CP/M, and the very first copy of MS/DOS that I got, 
had the same commands and lack of sub-folders that CP/M I had 
been using had. Granted, I was not a power user of that system, I 
was experimenting with it. So I didn't have any reason to 
question what had been said back then.


I don't remember QDOS itself -- I have a hazy memory of the name.


  2. CP/M was influence by RT-11


Thank you for this. I Couldn't remember the precise system, but I 
knew it was involved with a *nix type OS.


Regards,
Steve Thompson




--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3


From: IBM Mainframe Discussion List  on behalf of Steve 
Thompson 
Sent: Friday, May 11, 2018 10:48 AM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the 
Devil?

I've got an observation you and your boss probably won't like.

Windows is based on CP/M (that is what Microsoft started with).
Guess what CP/M was based on.

Now, here we are 30+ years from M/S and Windows (~ 1983 for first
release), and they have a lower RAS than does Linux which started
after them (~1991).

So, perhaps your boss should consider going to Linux Desktops and
get away from the problems of Windows?

As more and more people go to Linux Desktops, Adobe (and others)
would have to change their position and go back to supporting
their products for Linux distros.

And then the *nix file structure being case sensitive would stop
being a problem, because one would get use to it from working
with it on a daily basis.

My biggest problem with *nix (POSIX) on z/OS is the goofy way we
have to define the files for it.

Perhaps the MVS side of z/OS needs to learn to get along with FBA
and we can stop emulating ECKD with FBA, that then emulate FBA to
allow POSIX (Unix System Services and related file systems) to
work on/with z/OS (what overhead).

[FBA boxes seem to be cheaper than the ones that emulate ECKD
devices -- well at least from where I sit.]

Just my 2 cents.

Regards,
Steve Thompson

On 05/11/2018 09:03 AM, John McKown wrote:

OK, I bet I got your attention on that {grin}.

But, seriously, I am wondering what the "person in the trenches" thinks
about the increasing use of UNIX files and commands becoming more prevalent
on z/OS. I am basically asking because my manager absolutely despises UNIX
files. And hates the current maintenance processes from IBM and CA which
force him to use it. One of his reasons is the case sensitivity of the UNIX
file names. Of course, like most people in the world, his mind has been
corrupted by the case insensitivity of Windows. As well as the very
prevalent use of space characters in Windows file and directory names. This
case sensitivity of names may be another reason why new people, likewise
corrupted by Windows, will take an instant dislike for z/OS. OTOH, Linux
might find it minimally interesting. And maybe even quite interesting, if
IBM would adopt and maintain a port of the GNU infrastructure software.

What I think, and I am likely stupid on this, is that the Apple HFS+
approach might work. Just like, at present, when you create a zFS
filesystem, the default for filenames on an HFS+ filesystem are, like
Windows, case _in_sensitive. However, when an HFS+ filesystem is
initialized, it can be set as "case sensitive". This is done on a
filesystem-by-filesystem basis. What might be nice is to enhance(?) zFS so
that it can be made case _in_sensitive (reverse default of HFS+). This
might be very helpful for "naive" z/OS UNIX users. Put the ${HOME}
directory (usually /u) under automount and set the parameters so that when
automount creates & initializes a ${HOME} directory, it is
case-insensitive. And, of course, they should be a way to "flip the switch"
back an forth between case sensitivity and case insensitivity. Of course,
the "make insensitive" conversion will need to check & abort if there two
names in the same directory which are equivalent when case is ignored. I
would think this would be simple; check for possible problems and if none,
just flip the switch in some sort of "header" data area.  Regardless of
case sensitivity or insensitivity, it should be case preserving, like
Windows.

I know the response from both IBM and CA is/will be basically "suck it up,
maggot!" (to quote a not-so-favorite D.I.)

Oh, well, it is Friday. And, for me, this is almost a reasonable thought.



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to 

Re: GETMAIN LOC=32

[Paul Edwards]

On Mon, 14 May 2018 07:14:40 -0500, Tom Marchant  
wrote:

>In all of this, I don't remember the OP ever mentioning saving and restoring 
>the 64-bit registers. Without doing that the calling conventions are violated, 
>and you are breaking any AMODE(64) caller.

The intention was for this to be used by a 32-bit
program, that only executes 32-bit instructions,
that only ever change 32-bit registers, which
means that you only need to save and restore
32-bit registers.

BFN. Paul.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Craig Pace]

Yes, you can do that, if your Load Balancer is correct configured.  We ran HOD 
only from the Mainframe; however, we had several LPARs configured into a single 
"Network" LPAR using TCPIP balancing.  Each environment will still have its own 
IP address; however, the Load Balancer will then have its own virtual IP 
Address.  This allows you to use the virtual IP Address as your normal access 
and it will balance between the environments.  This also allows you to connect 
to each environment separately as well, if needed.

When do this, keep in mind the following:

1)  Each "shared" configuration must be the same.  I say shared, as you can 
have multiple configuration on each environment.  The "shared" one must be the 
same or you can have errors.
2)  You also must either use a Server/Client install combination for this to 
work correctly 100% of the time.  You want the software to be loaded on the 
server and all personal configuration files to be loaded on the client side.  
This prevents them from having a chance of some different settings per 
environment.



Thanks,


Craig


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Richards, Robert B.
Sent: Monday, May 14, 2018 06:11
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Vignesh,

We do not have ours configured that way. We have several different started 
tasks running on several lpars that appear to serve different environments 
(UAT, CITRIX, etc.) and no load balancer being used that I am aware of.  Ours 
can be started in at least two ways; JAVAWS at a CMD prompt and invoking a web 
url string.

And that is almost the end of my knowledge about HOD  and my HOD guy is 
unavailable (at a DR test).

Bob


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 6:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Thanks Bob.

Say there are 'n' servers that have HOD installed, and all of them are under a 
load balancer, so there's a single target.
Would it work if the product was just installed and setup in 1 server, and then 
cloned 'n-1' times?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 10:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

https://na01.safelinks.protection.outlook.com/?url=www.marksandspencer.com=02%7C01%7CCraig.Pace%40FOTLINC.COM%7C93ce57cd46d74acd250b08d5b98b61b3%7C0d32279fb86a46bcaf3c48ad3cf3caf9%7C0%7C0%7C636618930718992612=1TKR%2Bc%2FDweS99tfpA0b%2FaiZSgTzQUx%2Fea%2B7Nm%2FnhmVI%3D=0

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


This communication contains information which is confidential and may also be 
privileged. It is for the exclusive use of the intended recipient(s). If you 
are not the intended recipient(s), please note that any distribution, copying 
or use of this communication or the information 

Re: [EXTERNAL] Re: HOD

[Sankaranarayanan, Vignesh]

Hi Craig,

Do you think it would be worth attempting what I've described below; as far as 
deployment methodology goes..

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Craig Pace
Sent: 14 May 2018 14:41
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

I have not done anything with HOD since V8 but did a several different 
configurations and will help in any way I can.



Thanks,


Craig


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Richards, Robert B.
Sent: Monday, May 14, 2018 04:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

https://na01.safelinks.protection.outlook.com/?url=www.marksandspencer.com=02%7C01%7CCraig.Pace%40FOTLINC.COM%7C469143e54d8f4ed23fb408d5b979ca5d%7C0d32279fb86a46bcaf3c48ad3cf3caf9%7C0%7C0%7C636618855105590219=B%2B%2FWfW0VobEueXQCbzXqTBQHtuPGE4XWapCEuHbLCL4%3D=0

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN 


This communication contains information which is confidential and may also be 
privileged. It is for the exclusive use of the intended recipient(s). If you 
are not the intended recipient(s), please note that any distribution, copying 
or use of this communication or the information in it is strictly prohibited. 
If you have received this communication in error, please notify the sender 
immediately and then destroy any copies of it.



--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Sankaranarayanan, Vignesh]

Thanks Bob.

(Sorry to mail the whole list for a simple msg; who knows what M screen I 
might show up on for mailing a .gov domain!)

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 12:11
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Vignesh,

We do not have ours configured that way. We have several different started 
tasks running on several lpars that appear to serve different environments 
(UAT, CITRIX, etc.) and no load balancer being used that I am aware of.  Ours 
can be started in at least two ways; JAVAWS at a CMD prompt and invoking a web 
url string.

And that is almost the end of my knowledge about HOD  and my HOD guy is 
unavailable (at a DR test).

Bob


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 6:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Thanks Bob.

Say there are 'n' servers that have HOD installed, and all of them are under a 
load balancer, so there's a single target.
Would it work if the product was just installed and setup in 1 server, and then 
cloned 'n-1' times?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 10:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Craig Pace]

I have not done anything with HOD since V8 but did a several different 
configurations and will help in any way I can.



Thanks,


Craig


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Richards, Robert B.
Sent: Monday, May 14, 2018 04:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

https://na01.safelinks.protection.outlook.com/?url=www.marksandspencer.com=02%7C01%7CCraig.Pace%40FOTLINC.COM%7C469143e54d8f4ed23fb408d5b979ca5d%7C0d32279fb86a46bcaf3c48ad3cf3caf9%7C0%7C0%7C636618855105590219=B%2B%2FWfW0VobEueXQCbzXqTBQHtuPGE4XWapCEuHbLCL4%3D=0

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN


This communication contains information which is confidential and may also be 
privileged. It is for the exclusive use of the intended recipient(s). If you 
are not the intended recipient(s), please note that any distribution, copying 
or use of this communication or the information in it is strictly prohibited. 
If you have received this communication in error, please notify the sender 
immediately and then destroy any copies of it.



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[Jerry Callen]

On Fri, 11 May 2018 10:46:20 -0400, Hobart Spitz  wrote:

>Second to that are the deficient string and file models:
>
>   - There are separate techniques for processing text, on one hand, and
>   binary data on the other.  (z/OS, z/VM have no such requirement.)
>   - Using the wrong technique can break data structures badly, as can
>   inadvertent/erroneous embedding of binary data in text strings/files.
>   (z/OS, z/VM have not such problem.)
>   - One of *nix's most powerful features, piping, is crippled because most
>   filters are text oriented and cannot process binary data.  Dispatching is
>   mostly at the discretion of the operating system.  (Dispatching generally
>   deterministic, ands streams can be split and rejoined, because record
>   movement is generally defined.)
>   - When processing text strings or files, having to scan for the string
>   terminator or CR/LF, results in performance-killing working-set/cache
>   flooding.  (Pipelines processes records not characters, and unneeded
>   pages/cache-lines never have to be staged in.)
>
>The *nix string and file models were great for slow PDP-11s and the like,
>but make no sense on modern hardware.

This reflects a lack of understanding of Unix programming.

There are no "separate techniques for processing text ... and binary data", any 
more so than there are on MVS. A Unix file is a stream of bytes, period.

Many programs interpret that stream as a sequence of textual lines, delimited 
by newlines; this uniform representation makes possible the rich array of 
text-processing tools available in Unix, and enables files written on one 
platform to be usefully consumed on another platform. The notion that Unix 
pipelines are "crippled" by their text orientation reflects a lack of 
familiarity with Unix.

If you WANT to process binary data, it's easy to write programs that treat 
files as containing a sequence of records, either fixed length (think FB) or 
variable (think VB) with explicit record lengths.

Every program, on any platform, places restrictions on its inputs and outputs. 
z/OS programs are no different. In fact, the standard z/OS access methods very 
tightly couple programs to very specific dataset organizations and record 
formats.

Unix System Services has brought all of the powerful text processsing tools of 
Unix to z/OS. I can't see how that can be considered a bad thing.

-- Jerry

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Sample program for JES dataset read?

[Charles Mills]

I've checked it out. There are a lot of moving parts among all of the 
interfaces; I was hoping for one complete sample. I have it working now (and 
without using SSI, so far).

FWIW, yes to BPXWDYN() and yes to fopen("//DD:ddname").

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Allan Staller
Sent: Monday, May 14, 2018 5:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sample program for JES dataset read?

The OP should check out "Using the Subsystem Interface".

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Friday, May 11, 2018 5:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sample program for JES dataset read?

Perhaps I am over-complicating it. (I am just thinking; have not written any 
code yet.)

I think I can use BPXWDYN() for that matter.

I am assuming that I can come down to fopen("//DD:ddname");

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Using system symbols in JCL IF statement

[Charles Mills]

Here FWIW is a fragment of a working example:

//*  Need to set a return code so we know whether to do the ASM and   
//*  OBJ copies, which we only want to do if new code base () 
//*  Sets RC=0 if equal, RC=8 otherwise   
//COMPSRC EXEC PGM=IEBCOMPR   
//SYSINDD DUMMY   
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD *,SYMBOLS=JCLONLY   
  
/*
//SYSUT2   DD *,SYMBOLS=JCLONLY   
  
/*

//*  Create the LST PDSE only if new ASM version  
//MAKELST  EXEC  PGM=IEFBR14,COND=(0,EQ,COMPSRC)  Bypass if compare = 
//DDLSTDDDSN=xx.,
//  DCB=(xx.),   
//  DISP=(NEW,CATLG),SPACE=(CYL,(15,5,20)),DSNTYPE=LIBRARY
   
//*  Create the load PDSE only if new code base or package
// IF (COMPSRC.RC NE 0 | COMPCZA.RC NE 0 ) THEN   
//MKRLOAD  EXEC  PGM=IEFBR14  
//DDLOAD   DDDSN=,
//  DCB=(xx.),
//  DISP=(NEW,CATLG),SPACE=(TRK,(75,15,20)),DSNTYPE=LIBRARY   
// ENDIF  

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Binyamin Dissen
Sent: Monday, May 14, 2018 3:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using system symbols in JCL IF statement

IF does not support string comparisons.

What you can do is add a step that generates a return code based on the
symbol
value and use that return code in an IF statement.

On Mon, 14 May 2018 08:48:29 + Gadi Ben-Avi  wrote:

:>Is it possible to use system symbols in a JCL IF statement?

:>So, for example, if I have a smbold called DR whos value is DR, I would
like to write:

:>// IF =DR THEN
:>  Do stuff for a DR system
:>// ELSE
:>  Do stuf for the production system
:>// ENDIF

:>I am running z/OS v2.1

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Sample program for JES dataset read?

[Allan Staller]

The OP should check out "Using the Subsystem Interface".

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Friday, May 11, 2018 5:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sample program for JES dataset read?

Perhaps I am over-complicating it. (I am just thinking; have not written any 
code yet.)

I think I can use BPXWDYN() for that matter.

I am assuming that I can come down to fopen("//DD:ddname");

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Friday, May 11, 2018 1:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Sample program for JES dataset read?

The only slightly tricky thing is the dynamic allocation, that that is pretty 
straight forward for the primary subsystem.
You can even use  __svc99() in the C library and then fopen("//DD:ddname",
)

Kirk Wolf
Dovetailed Technologies
https://apac01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fdovetail.com=02%7C01%7Callan.staller%40HCL.COM%7Ce9c67723bf9145eb842008d5b78c4b10%7C189de737c93a4f5a8b686f4ca9941912%7C0%7C1%7C63661673926739=st9TA%2FqsSFgB8Bme8bPHXGI4i%2BRFvh7RivXyEU2xpwY%3D=0

On Fri, May 11, 2018 at 12:29 PM, Charles Mills  wrote:

> Thanks. Possibly useful. Not sure at first glance if too "SDSF-specific"
> or not.
>
> I would not be writing in Rexx but Rexx serves just fine as a
> "pseudo-code" language.
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Paul Gilmartin
> Sent: Friday, May 11, 2018 8:45 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Sample program for JES dataset read?
>
> On Thu, 10 May 2018 17:30:53 -0700, Charles Mills wrote:
>
> >Is there a sample program - say in SYS1.SAMPLIB or on the CBT tape
> >(yes, I
> >looked) - that shows an example of how to allocate and read a JES
> >spool dataset?
> >
> >How to do this, in other words:
> >https://apac01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fib
> >m.co%2F2IbrcGV=02%7C01%7Callan.staller%40HCL.COM%7Ce9c67723bf914
> >5eb842008d5b78c4b10%7C189de737c93a4f5a8b686f4ca9941912%7C0%7C1%7C6366
> >1673926739=7cvYYFZ4Ce2jcDm47g8iJBpreazYvc34zl3Ruw2yYLs%3D
> >eserved=0
> >
> If Rexx is a suitable alternative, look at Rexx examples in the SDSF
> manual.
> The interface does not require TSO: it's equally usable under Unix
> System Services.
>
> The scheme is to drill down through JobID, stepname, procstepname, to
> DD name.  SDSF then allocates a generated DD name to that spool file.
> An example reads from that to EXECIO DISKR (STEM.  I modified it to
> LINKMVS IEBGENER after I overrode SYSUT1 to the name SDSF generated.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
::DISCLAIMER::
--
The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only. E-mail transmission is not guaranteed to be 
secure or error-free as information could be intercepted, corrupted, lost, 
destroyed, arrive late or incomplete, or may contain viruses in transmission. 
The e mail and its contents (with or without referred errors) shall therefore 
not attach any liability on the originator or HCL or its affiliates. Views or 
opinions, if any, presented in this email are solely those of the author and 
may not necessarily reflect the views or opinions of HCL or its affiliates. Any 
form of reproduction, dissemination, copying, disclosure, modification, 
distribution and / or publication of this message without the prior written 
consent of authorized representative of HCL is strictly prohibited. If you have 
received this email in error please delete it and notify the sender 
immediately. Before opening any email and/or attachments, please check them for 
viruses and other defects.

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[John McKown]

On Sun, May 13, 2018 at 3:36 PM, Seymour J Metz  wrote:

> I'm comfortablewith using Unix files. I'm not comfortable with packaging
> for MVS components that seems done by people without a clue, but it's not
> fair to blame that on the use of Unix.
>

​I'm trying to figure out why IBM uses "pax" files in a z/OS UNIX
filesystem for their distribution. I know that they need some way to
distribute z/OS UNIX files and "legacy" datasets in a single package. I
have a couple things on the CBT which do that. What I did was use pax to
write a pax archive as a member of an FB/80 PDS. I then XMIT'd the PDS to a
sequential dataset. Of course, the reason that I did this is because that
is how Sam Golob wants the things on the CBT to be packaged. I don't really
know which method is better. Mine is at least more traditional. If the
XMIT'd sequntial dataset is really large, it might be a good idea to
AMATERSE it. I think my boss would prefer this, because he wouldn't need to
directly interact with UNIX files. The processing of a package would be
something like:

1) if needed: use AMATERSE to UNPACK the compressed​ XMIT'd PDS
2) RECEIVE the XMIT file ( RECEIVE INDATASET(...))
3) Use ISPF edit to display the PDS directory


The restored PDS would perhaps have members such as $DOC, $UNLOAD, and
other members which might contain PAX'd UNIX files (one member per
directory?), XMIT'd PDS libraries and DSORG=PS datasets. The $UNLOAD job
would have steps to "expand" all of the distributed libraries, PS datasets,
and UNIX files. All the DSNs and other "customizable" names would be
referenced via SET statements at the start of the job (rather than example
"hard coded" DSNs which each need to be edited.)

Just my thoughts, they are likely worth what you paid for them {grin}.



>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
-- 
We all have skeletons in our closet.
Mine are so old, they have osteoporosis.

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: CONTROVERSY! z/OS UNIX: is it an enhancement or a tool of the Devil?

[John McKown]

On Sun, May 13, 2018 at 3:26 PM, Seymour J Metz  wrote:

>  1. m$ started with QDOS, not CP/M
>

​Yes you are correct. I was under the impression that QDOS was "inspired"
by CP/M-80. At least MS-DOS 1.0 seemed to be CP/M-ish to me. ​



>
>  2. CP/M was influence by RT-11
>

​My ignorance shows here. I know know nothing about DEC system (RT-11 was
DEC/PDP, right?). At college, we had a TOPS-20 system that I loved.
Especially compared to MVT and Wylbur.​



>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>

-- 
We all have skeletons in our closet.
Mine are so old, they have osteoporosis.

Maranatha! <><
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMAIN LOC=32

[Tom Marchant]

In all of this, I don't remember the OP ever mentioning saving and restoring 
the 64-bit registers. Without doing that the calling conventions are violated, 
and you are breaking any AMODE(64) caller.

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Richards, Robert B.]

Vignesh,

We do not have ours configured that way. We have several different started 
tasks running on several lpars that appear to serve different environments 
(UAT, CITRIX, etc.) and no load balancer being used that I am aware of.  Ours 
can be started in at least two ways; JAVAWS at a CMD prompt and invoking a web 
url string.

And that is almost the end of my knowledge about HOD  and my HOD guy is 
unavailable (at a DR test).

Bob


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 6:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Thanks Bob.

Say there are 'n' servers that have HOD installed, and all of them are under a 
load balancer, so there's a single target.
Would it work if the product was just installed and setup in 1 server, and then 
cloned 'n-1' times?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 10:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Richards, Robert B.]

No idea. None of our HOD servers are Windows-based (to my limited knowledge).

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 6:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Let's say the 'servers' are Windows VMs.
Would this be an acceptable approach if it were a different server OS, by any 
chance?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: 14 May 2018 11:56
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Thanks Bob.

Say there are 'n' servers that have HOD installed, and all of them are under a 
load balancer, so there's a single target.
Would it work if the product was just installed and setup in 1 server, and then 
cloned 'n-1' times?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 10:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Sankaranarayanan, Vignesh]

Let's say the 'servers' are Windows VMs.
Would this be an acceptable approach if it were a different server OS, by any 
chance?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: 14 May 2018 11:56
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] Re: HOD

Thanks Bob.

Say there are 'n' servers that have HOD installed, and all of them are under a 
load balancer, so there's a single target.
Would it work if the product was just installed and setup in 1 server, and then 
cloned 'n-1' times?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 10:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Using system symbols in JCL IF statement

[Binyamin Dissen]

IF does not support string comparisons.

What you can do is add a step that generates a return code based on the symbol
value and use that return code in an IF statement.

On Mon, 14 May 2018 08:48:29 + Gadi Ben-Avi  wrote:

:>Is it possible to use system symbols in a JCL IF statement?

:>So, for example, if I have a smbold called DR whos value is DR, I would like 
to write:

:>// IF =DR THEN
:>  Do stuff for a DR system
:>// ELSE
:>  Do stuf for the production system
:>// ENDIF

:>I am running z/OS v2.1

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: HOD

[Sankaranarayanan, Vignesh]

Thanks Bob.

Say there are 'n' servers that have HOD installed, and all of them are under a 
load balancer, so there's a single target.
Would it work if the product was just installed and setup in 1 server, and then 
cloned 'n-1' times?

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: 14 May 2018 10:05
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: HOD

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: HOD

[Richards, Robert B.]

Certainly not an expert, but ask away.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: Monday, May 14, 2018 4:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: HOD

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Using system symbols in JCL IF statement

[Gadi Ben-Avi]

Hi,
Is it possible to use system symbols in a JCL IF statement?

So, for example, if I have a smbold called DR whos value is DR, I would like to 
write:

// IF =DR THEN
  Do stuff for a DR system
// ELSE
  Do stuf for the production system
// ENDIF

I am running z/OS v2.1

Thanks

Gadi

? ?? ?    ?? ??? ??? ??  ? ??? ?? 
??. ?? ,  ?? ???  ?, ???   ? ?? ??? 
? ?? ?? ?. ? ?  ?? ?? ?? ??  ??  
??? ??? ???, ?/?? ?, ? ?? ? ? ? ? ?? ?? ? 
??? ?/?? ?? ?? ??.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

HOD

[Sankaranarayanan, Vignesh]

How'D y'all

Is there a Host OnDemand person on this mailing list, by any chance?
Want to clarify something; not too complicated a question; no follow-ups, just 
1 question.

Thanks in advance for your help.

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

Unless otherwise stated above:
Marks and Spencer plc
Registered Office:
Waterside House
35 North Wharf Road
London
W2 1NW

Registered No. 214436 in England and Wales.

Telephone (020) 7935 4422
Facsimile (020) 7487 2670

www.marksandspencer.com

Please note that electronic mail may be monitored.

This e-mail is confidential. If you received it by mistake, please let us know 
and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

[Lucas Rosalen]

Hi Venkat,

Could you try with the following code?

==
/* REXX */

 SAY 'HELLO WORLD!'

 "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW"

EXIT
==


---
*Lucas Rosalen*
rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
http://br.linkedin.com/in/lrosalen


2018-05-14 9:28 GMT+02:00 Werner Kuehnel :

> Hello Venkat,
> this is how it works at our site:
>
> /*/
> /*  FUNCTION: submits job*/
> /*/
> 'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
> EXIT
>
> Just one apostrophe at the beginning and one at the end. No ADDRESS TSO.
> Member JCLMBR contains the JCL.
>
> Hth,
> Werner
>
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im
> Auftrag von venkat kulkarni
> Gesendet: Montag, 14. Mai 2018 06:27
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: Netview Submit JCL
>
> Hello,
>
> This command didn't worked for me and getting same issue.
>
> On Sun, May 13, 2018, 11:21 PM Lucas Rosalen 
> wrote:
>
> > Hi Venkat,
> >
> > What about using the syntax below?
> >
> > "MVS SEND 'your_message' USER(user) NOW"
> >
> >
> >
> > 
> ---
> > *Lucas Rosalen*
> > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > http://br.linkedin.com/in/lrosalen
> >
> >
> > 2018-05-13 20:50 GMT+02:00 Steve Horein :
> >
> > > And the man ate fish for a day
> > >
> > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > > venkatkulkarn...@gmail.com> wrote:
> > >
> > > > Hello Lucas,
> > > >
> > > > Your solution worked for me
> > > >
> > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'" .
> > > >
> > > > Now, I am trying to issue tso send command using this rexx  as below
> > > using
> > > > netview but i am getting below errror
> > > >
> > > >
> > > > /*  REXX */
> > > >
> > > >  ADDRESS TSO
> > > >
> > > >  SAY 'HELLO WORLD!'
> > > >
> > > >  "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"
> > > >
> > > >
> > > >
> > > > Error
> > > >
> > > > EF404I USR54 LC - ENDED - TIME=14.29.07
> > > >
> > > > HELLO WORLD!
> > > >
> > > >  4 *-* "SEND ''FDI FILE HAS BEEN RECEIVED' USER( USR54 )
> > > >
> > > >+++ RC(-3) +++
> > > >
> > > >
> > > >
> > > > I am unable to find correct syntax for this. I didnt find anything in
> > > > manual . Can you please help.
> > > >
> > > >
> > > >
> > > > On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
> > rosalen.lu...@gmail.com>
> > > > wrote:
> > > >
> > > > > Try changing FDIREXX script to the following:
> > > > >
> > > > > /* REXX */
> > > > >
> > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> > > > >
> > > > >
> > > > > 
> > > > > 
> ---
> > > > > *Lucas Rosalen*
> > > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > > http://br.linkedin.com/in/lrosalen
> > > > >
> > > > >
> > > > > 2018-05-12 12:57 GMT-03:00 Steve Horein :
> > > > >
> > > > > > SUBMIT is a native NetView command, and you don't need (or want)
> to
> > > use
> > > > > > ADDRESS TSO.
> > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
> > > > > >
> > > > > > Specifics to NetView Rexx can be found here:
> > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
> > > > > >
> > > > > >
> > > > > > Specifics to NetView Automation can be found here:
> > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
> > > > > >
> > > > > >
> > > > > > On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
> > > > > > venkatkulkarn...@gmail.com
> > > > > > > wrote:
> > > > > >
> > > > > > > Hello Group,
> > > > > > >
> > > > > > > We have requirement to trigger one Job upon receiving one msg
> id
> > > > like
> > > > > > > below in
> > > > > > >
> > > > > > >
> > > > > > > netview automation table.
> > > > > > >
> > > > > > >
> > > > > > > IF MSGID = 'IEF404I'  THEN
> > > > > > >
> > > > > > >  EXEC(CMD('FDIREXX')) NETLOG(Y) SYSLOG(Y);
> > > > > > >
> > > > > > >
> > > > > > > in CNMCLST, we have FDIREXX member as below.
> > > > > > >
> > > > > > > sss
> > > > > > >
> > > > > > > BROWSENETVIEW.CNMCLST(FDIREXX) - 01.08
> > > > > > >
> > > > > > > * Top of Data **
> > > > > > >

AW: Netview Submit JCL

[Werner Kuehnel]

Hello Venkat,
this is how it works at our site:

/*/
/*  FUNCTION: submits job*/
/*/
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT   

Just one apostrophe at the beginning and one at the end. No ADDRESS TSO.
Member JCLMBR contains the JCL.

Hth,
Werner

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: Netview Submit JCL

Hello,

This command didn't worked for me and getting same issue.

On Sun, May 13, 2018, 11:21 PM Lucas Rosalen 
wrote:

> Hi Venkat,
>
> What about using the syntax below?
>
> "MVS SEND 'your_message' USER(user) NOW"
>
>
>
> ---
> *Lucas Rosalen*
> rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> http://br.linkedin.com/in/lrosalen
>
>
> 2018-05-13 20:50 GMT+02:00 Steve Horein :
>
> > And the man ate fish for a day
> >
> > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > venkatkulkarn...@gmail.com> wrote:
> >
> > > Hello Lucas,
> > >
> > > Your solution worked for me
> > >
> > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'" .
> > >
> > > Now, I am trying to issue tso send command using this rexx  as below
> > using
> > > netview but i am getting below errror
> > >
> > >
> > > /*  REXX */
> > >
> > >  ADDRESS TSO
> > >
> > >  SAY 'HELLO WORLD!'
> > >
> > >  "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"
> > >
> > >
> > >
> > > Error
> > >
> > > EF404I USR54 LC - ENDED - TIME=14.29.07
> > >
> > > HELLO WORLD!
> > >
> > >  4 *-* "SEND ''FDI FILE HAS BEEN RECEIVED' USER( USR54 )
> > >
> > >+++ RC(-3) +++
> > >
> > >
> > >
> > > I am unable to find correct syntax for this. I didnt find anything in
> > > manual . Can you please help.
> > >
> > >
> > >
> > > On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
> rosalen.lu...@gmail.com>
> > > wrote:
> > >
> > > > Try changing FDIREXX script to the following:
> > > >
> > > > /* REXX */
> > > >
> > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> > > >
> > > >
> > > > 
> > > > ---
> > > > *Lucas Rosalen*
> > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > http://br.linkedin.com/in/lrosalen
> > > >
> > > >
> > > > 2018-05-12 12:57 GMT-03:00 Steve Horein :
> > > >
> > > > > SUBMIT is a native NetView command, and you don't need (or want) to
> > use
> > > > > ADDRESS TSO.
> > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
> > > > >
> > > > > Specifics to NetView Rexx can be found here:
> > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
> > > > >
> > > > >
> > > > > Specifics to NetView Automation can be found here:
> > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
> > > > >
> > > > >
> > > > > On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
> > > > > venkatkulkarn...@gmail.com
> > > > > > wrote:
> > > > >
> > > > > > Hello Group,
> > > > > >
> > > > > > We have requirement to trigger one Job upon receiving one msg id
> > > like
> > > > > > below in
> > > > > >
> > > > > >
> > > > > > netview automation table.
> > > > > >
> > > > > >
> > > > > > IF MSGID = 'IEF404I'  THEN
> > > > > >
> > > > > >  EXEC(CMD('FDIREXX')) NETLOG(Y) SYSLOG(Y);
> > > > > >
> > > > > >
> > > > > > in CNMCLST, we have FDIREXX member as below.
> > > > > >
> > > > > > sss
> > > > > >
> > > > > > BROWSENETVIEW.CNMCLST(FDIREXX) - 01.08
> > > > > >
> > > > > > * Top of Data **
> > > > > >
> > > > > > /*  REXX */
> > > > > >
> > > > > >  ADDRESS TSO
> > > > > >
> > > > > >  SUBMIT 'USR1.REXX.CNTL(REXXJCL)'
> > > > > >
> > > > > >  Bottom of Data
> > > > > >
> > > > > > On this event trigger,I am getting below error message in netview
> > log
> > > > > >
> > > > > >
> > > > > > 13:35:50 - CNM493I DSITBL01 : #241 : FDIREXX
> > > > > >
> > > > > > 13:35:50 E IEF404I USR1LC - ENDED - TIME=13.35.50
> > > > > >
> > > > > > 13:35:50 C  3 *-* SUBMIT 'USR1.REXX.CNTL(REXXJCL)'
> > > > > >
> > > > > > 13:35:50 C+++ RC(-3) +++
> > > > > >
> > > > > > 13:35:57 C BR NETLOGA
> > > > > >
> > > > > >
> > > > > > and JCL as below.
> > > > > >
> > > > > >   USR1.REXX.CNTL(REXXJCL) -