Re: System Symbols Question

[Paul Gilmartin]

On 2014-01-27, at 21:11, Steve Comstock wrote:

> On 1/27/2014 9:03 PM, Paul Gilmartin wrote:
>> On Mon, 27 Jan 2014 20:10:04 -0500, Gerhard Postpischil wrote:
>> 
>>> On 1/27/2014 8:03 PM, Paul Gilmartin wrote:
 A matter of opinion, of course.  If I had cautiously coded 
 "PARM='&WOMBAT._1'",
 I would be protected from the hypothetical change, but get a changed
 behavior if I left &WOMBAT undefined.  I think from the beginning the
 JCL R/C (whatever) should have made reference to an undefined symbol
 an error.
>>> 
>>> That wouldn't have been palatable, as your undefined symbol would have
>>> been valid as a temporary data set name. As today, a temporary may have
>>> 
>> I could have defined it.
>> 
>>> one or two ampersands, and it's way too late to change that. It might
>>> have made more sense to use a different character, e.g., a percent sign,
>>> to introduce variables (but clashing with the PROC convention).
>>> 
>> Sure, but couldn't it have been done right five decades ago, if only
>> the designers hadn't been too stressed by deadlines to think clearly.
>> 
>> By experiment, what you say is true.  I'm considerably surprised.
>> So, then, why do I get:
>> 
>> 8 //DDFOUR DD   
>> DISP=(,PASS),DSN=FOUR,UNIT=SYSALLDA,SPACE=(1,0)
>>  STMT NO. MESSAGE
>> 8 IEFC627I INCORRECT USE OF AMPERSAND IN THE DSN FIELD
>> 
>> By JCL rules, two ampersands represent one ampersand, so four ampersands
>> represent two ampersands, and "&&FOUR" is a valid temp DSN.
> 
> Huh? & is not a recognized construct in JCL; that's HTML (and some
> other places). Even if you uppercased it,  simply doesn't
> mean anything. Now, the message may be less than clear, but that's
> almost to be expected in JCL.
>  
LISTSERV did it to me.  Conjugate LISTSERV.  Trying again; copying
and pasting directly from the "Send Message" panel of IBM-MAIN
web interface:

By experiment, what you say is true.  I'm considerably surprised.
So, then, why do I get:

8 //DDFOUR DD   DISP=(,PASS),DSN=FOUR,UNIT=SYSALLDA,SPACE=(1,0) 
 STMT NO. MESSAGE   
8 IEFC627I INCORRECT USE OF AMPERSAND IN THE DSN FIELD 

By JCL rules, two ampersands represent one ampersand, so four ampersands
represent two ampersands, and "&&FOUR" is a valid temp DSN.

ObEmerson?

I hate JCL!

> But you are a strong supporter of z/OS in general, I believe.
>  
Every other Friday.

-- gil

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

Re: System Symbols Question

[Steve Comstock]

On 1/27/2014 9:03 PM, Paul Gilmartin wrote:

On Mon, 27 Jan 2014 20:10:04 -0500, Gerhard Postpischil wrote:


On 1/27/2014 8:03 PM, Paul Gilmartin wrote:

A matter of opinion, of course.  If I had cautiously coded "PARM='&WOMBAT._1'",
I would be protected from the hypothetical change, but get a changed
behavior if I left &WOMBAT undefined.  I think from the beginning the
JCL R/C (whatever) should have made reference to an undefined symbol
an error.


That wouldn't have been palatable, as your undefined symbol would have
been valid as a temporary data set name. As today, a temporary may have


I could have defined it.


one or two ampersands, and it's way too late to change that. It might
have made more sense to use a different character, e.g., a percent sign,
to introduce variables (but clashing with the PROC convention).


Sure, but couldn't it have been done right five decades ago, if only
the designers hadn't been too stressed by deadlines to think clearly.

By experiment, what you say is true.  I'm considerably surprised.
So, then, why do I get:

 8 //DDFOUR DD   DISP=(,PASS),DSN=FOUR,UNIT=SYSALLDA,SPACE=(1,0)
  STMT NO. MESSAGE
 8 IEFC627I INCORRECT USE OF AMPERSAND IN THE DSN FIELD

By JCL rules, two ampersands represent one ampersand, so four ampersands
represent two ampersands, and "&&FOUR" is a valid temp DSN.


Huh? & is not a recognized construct in JCL; that's HTML (and some
other places). Even if you uppercased it,  simply doesn't
mean anything. Now, the message may be less than clear, but that's
almost to be expected in JCL.




ObEmerson?

I hate JCL!


Along with EBCDIC. We know.

But you are a strong supporter of z/OS in general, I believe.

Keep fighting the good fight to fix what's fixable.

-Steve




-- 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: System Symbols Question

[Paul Gilmartin]

On Mon, 27 Jan 2014 20:10:04 -0500, Gerhard Postpischil wrote:

>On 1/27/2014 8:03 PM, Paul Gilmartin wrote:
>> A matter of opinion, of course.  If I had cautiously coded 
>> "PARM='&WOMBAT._1'",
>> I would be protected from the hypothetical change, but get a changed
>> behavior if I left &WOMBAT undefined.  I think from the beginning the
>> JCL R/C (whatever) should have made reference to an undefined symbol
>> an error.
>
>That wouldn't have been palatable, as your undefined symbol would have
>been valid as a temporary data set name. As today, a temporary may have
>
I could have defined it.

>one or two ampersands, and it's way too late to change that. It might
>have made more sense to use a different character, e.g., a percent sign,
>to introduce variables (but clashing with the PROC convention).
> 
Sure, but couldn't it have been done right five decades ago, if only
the designers hadn't been too stressed by deadlines to think clearly.

By experiment, what you say is true.  I'm considerably surprised.
So, then, why do I get:

8 //DDFOUR DD   DISP=(,PASS),DSN=FOUR,UNIT=SYSALLDA,SPACE=(1,0) 

 STMT NO. MESSAGE   
8 IEFC627I INCORRECT USE OF AMPERSAND IN THE DSN FIELD 

By JCL rules, two ampersands represent one ampersand, so four ampersands
represent two ampersands, and "&&FOUR" is a valid temp DSN.

ObEmerson?

I hate JCL!

-- gil

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

Re: System Symbols Question

[Gerhard Postpischil]

On 1/27/2014 8:03 PM, Paul Gilmartin wrote:

A matter of opinion, of course.  If I had cautiously coded "PARM='&WOMBAT._1'",
I would be protected from the hypothetical change, but get a changed
behavior if I left &WOMBAT undefined.  I think from the beginning the
JCL R/C (whatever) should have made reference to an undefined symbol
an error.


That wouldn't have been palatable, as your undefined symbol would have 
been valid as a temporary data set name. As today, a temporary may have 
one or two ampersands, and it's way too late to change that. It might 
have made more sense to use a different character, e.g., a percent sign, 
to introduce variables (but clashing with the PROC convention).


Gerhard Postpischil
Bradford, Vermont

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

Re: System Symbols Question

[Paul Gilmartin]

On Mon, 27 Jan 2014 19:45:14 -0500, John Gilmore wrote:

>To the question, "Might this introduce behavior changes unanticipated
>by end users?", the answer must of course be yes.
>
>Such an end user could, for example, supply a buffer of length 2N
>bytes, expecting confidently that the last N bytes would remain
>available to him/her for further use after symbol substitution, only
>to discover that some of them were not available.
> 
I was concerned less with the syntax of the value than the syntax
of the name.

Peter said (hypothetically) that the new feature might by enabled
by use of a new character in symbol names, not supported at
present.  Suppose '_' is used as such a symbol.  Today, I get
(in JCL):

3 //  SET  WOMBAT='Short'  
4 //STEP  EXEC  PGM=IEFBR14,PARM='&WOMBAT_1'   
  IEFC653I SUBSTITUTION JCL - PGM=IEFBR14,PARM='Short_1'   

but if '_' were added to the alphabet of symbol names, the symbol
would be not "&WOMBAT" but "&WOMBAT_1" which (in my example)
is undefined and no substitution would occur; a behavior change
unanticipated by programmers for many decades now.

>Preoccupation with dismaying such people can be paralyzing.  It can
>lead to a state of mind which views any change as too risky.
>
>When a change can have untoward consequences that can reasonably be
>anticipated they should be described where it, the change, is
>described; but there is no requirement that change be avoided to
>protect users from all of their bad design decisions.
> 
A matter of opinion, of course.  If I had cautiously coded "PARM='&WOMBAT._1'",
I would be protected from the hypothetical change, but get a changed
behavior if I left &WOMBAT undefined.  I think from the beginning the
JCL R/C (whatever) should have made reference to an undefined symbol
an error.

-- gil

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

Re: System Symbols Question

[John Gilmore]

To the question, "Might this introduce behavior changes unanticipated
by end users?", the answer must of course be yes.

Such an end user could, for example, supply a buffer of length 2N
bytes, expecting confidently that the last N bytes would remain
available to him/her for further use after symbol substitution, only
to discover that some of them were not available.

Preoccupation with dismaying such people can be paralyzing.  It can
lead to a state of mind which views any change as too risky.

When a change can have untoward consequences that can reasonably be
anticipated they should be described where it, the change, is
described; but there is no requirement that change be avoided to
protect users from all of their bad design decisions.

Understandably---They get the flak---IBMers are already conservative,
not to say preternaturally cautious,. about change.  This is not just
understandable; it is appropriate too.  Whether we should encourage
them to be yet more cautious is a nice question.  I think not.

John Gilmore, Ashland, MA 01721 - USA

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

Re: System Symbols Question

[Paul Gilmartin]

On Mon, 27 Jan 2014 18:02:00 -0500, John Gilmore wrote:

>With a caller-provided buffer of caller-chosen length, nearly silent
>truncation, e.g., with only a return-code setting, seems to me to be
>eminently tolerable.
> 
Indeed.  I took an unintended meaning from the phrase "fixed length"
which appeared earlier in this thread, assuming it to exclude the
possibility of a "caller-chosen length".

>Nothing more is needed.
>
Perhaps.  Would this hypothetical enhancement extend the syntax of
symbol names?  Might this introduce behavior changes unanticipated
by end users?

Thanks,
gil

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

Re: System Symbols Question

[John Gilmore]

With a caller-provided buffer of caller-chosen length, nearly silent
truncation, e.g., with only a return-code setting, seems to me to be
eminently tolerable.

Nothing more is needed.


John Gilmore, Ashland, MA 01721 - USA

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Gerhard Postpischil]

On 1/27/2014 11:50 AM, Binyamin Dissen wrote:

:>Did you check what DCBDEBAD points to?

something the list members can do for you.

Oops - I was thinking of DCBTIOT to see whether his library was included 
(harder from looking at DEB).



Thinking about it, FIND updates the DCB to make the next READ SF come from
that block address. It may required a MACRF=R and write access to the DCB. The
OP should check the open DCB to see what is the MACRF as well as what the R0
reason code was.


I didn't even think of that. I vaguely seem to recall using POINT or 
FIND on an EXCP DCB, but that was ages ago. In any case, it may have no 
bearing on the problem as he stated that BLDL also failed.


Gerhard Postpischil
Bradford, Vermont

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

Re: System Symbols Question

[Peter Relson]

>A la snprintf()? 
I do not know the fine points of snprintf. ASASYMBM starts with knowing 
the size of the result buffer. It will never write beyond that.

>But how would the hypothetical caller use the information
>if the service expects a standard (fixed) length buffer?
Which "service" are you referring to? The caller of ASASYMBM provided a 
buffer. 
That buffer is of any length the caller wants it to be. The caller of the 
caller might have
a problem. That is up to the caller of ASASYMBM to see if it is something 
that it can deal with.
If it was "GET" or "PUT" for a fixed length record or IEFPRMLB reading a 
parmlib member, it probably couldn't.

>IOW, the current interface does not pass the buffer length?
I do not know which "current interface" you are referring to. There 
certainly are many interfaces where the input does not identify the length 
because the length is documented in some way.

>Or, could the caller hypothetically deal with RC=8?
Yes, it could.

>How would this all hypothetically play with JCL's DSN=, PARM=,
>and PARMDD (i.e. symbol substitution in SYSIN)?
It could play quite nicely. I don't know specifically what you mean by 
"JCL's DSN=", but if you are in a started job where system symbol 
substitution is done, then you could substitute. And if the line 
overflowed it would get truncated. That's exactly the sort of case I have 
mentioned before. It might truncate silently, it might truncate with a JCL 
error message. PARM= has an architected length. PARMDD processing depends 
on how the data is defined. In general, the idea is that the customer is 
using this function knowing the rules and the risks. There would be no 
expectation of any alert about truncation in general. In some cases we 
might choose to provide such an alert. 

>If the facility were to be provided by a lexical extension to symbol 
names
>(as you imagined), no existing code could exploit it.  It would 
effectively
>be a new interface; there should be no further compatibility constraint.

Not true at all. I do not understand what you are thinking of regarding 
exploiting system symbols..
A lot of "exploitation" of system symbols is "here is my string that might 
have one or more symbols in it, please give me back the substituted text".
Most such exploitations can move forward unchanged (possibly choosing what 
to do with RC=8; if they ignore it now, they can continue to ignore it).

Peter Relson
z/OS Core Technology Design

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

Re: XMITMGR

[Bill Godfrey]

On Sun, 26 Jan 2014 14:03:37 -0700, Steve Comstock wrote:

>Replying to my own post (and top-posting at that): found the
>problem. Needed to install 64-bit java. Done. Works.
>
>-Steve

There's another program for XMI files here:

http://xiframe.com/index.php?page=xixmiexplorer

and a User Guide PDF file under "Support"

It's also in file 907 on the updates page at cbttape.org.

Unfortunately the installer asks for this:

"To continue, type an administrator password, then click yes."

which I chose not to do.

Bill

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

Re: POSIX(ON) costs or disadvantages

[Bernd Oppolzer]

Am 27.01.2014 20:44, schrieb Bernd Oppolzer:

Am 27.01.2014 20:27, schrieb Paul Gilmartin:

On Mon, 27 Jan 2014 19:33:25 +0100, Bernd Oppolzer wrote:

... (if you manage to LINK between LE modules
with the help of MVS LINK or similar mechanisms, which is possible -
for example: we do all linkage between our LE modules, no matter 
which language,
with a home grown mechanism which relies on MVS LOAD macro and BASR, 
basically).


You mean IBM provides no support for LINKing to an  LE module!? That 
seems
outrageous in the year 2014.  How about ATTACH?  How does initiator 
do it?


-- gil


No, I meant that normally you use LE functions to do the linkage that use
MVS LINK under the cover. But if you really want to do it, you can manage
to do the linkage between LE modules without LE functions, but with 
functions

of your own, that use pure MVS LINK.



Maybe it is necessary to be more precise:

if the (dynamically) called LE function or module has some of the newer
properties (like DLL, RENT, LONGNAME), you will need CEEFETCH or similar
mechanisms to do the linkage.

But if the called LE function is a "classical" load module involving only
NORENT functions (written in C or PL/1 for example, without the options
mentioned above), you will be able to do LOAD/BALR, LINK, ATTACH etc.
without the LE specific actions (for example, WSA initialization).

This is NOT related to enclave initialization; it's all true for 
subprograms, too.


Kind regards

Bernd

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

Re: POSIX(ON) costs or disadvantages

[Bernd Oppolzer]

Am 27.01.2014 20:27, schrieb Paul Gilmartin:

On Mon, 27 Jan 2014 19:33:25 +0100, Bernd Oppolzer wrote:

... (if you manage to LINK between LE modules
with the help of MVS LINK or similar mechanisms, which is possible -
for example: we do all linkage between our LE modules, no matter which language,
with a home grown mechanism which relies on MVS LOAD macro and BASR, basically).


You mean IBM provides no support for LINKing to an  LE module!?  That seems
outrageous in the year 2014.  How about ATTACH?  How does initiator do it?

-- gil


No, I meant that normally you use LE functions to do the linkage that use
MVS LINK under the cover. But if you really want to do it, you can manage
to do the linkage between LE modules without LE functions, but with 
functions

of your own, that use pure MVS LINK.

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

Re: POSIX(ON) costs or disadvantages

[Steve Comstock]

On 1/27/2014 12:27 PM, Paul Gilmartin wrote:

On Mon, 27 Jan 2014 19:33:25 +0100, Bernd Oppolzer wrote:


... (if you manage to LINK between LE modules
with the help of MVS LINK or similar mechanisms, which is possible -
for example: we do all linkage between our LE modules, no matter which language,
with a home grown mechanism which relies on MVS LOAD macro and BASR, basically).


You mean IBM provides no support for LINKing to an  LE module!?


No, he means that's the way they have chosen to make the connections.

A LINK to an LE main creates a nested enclave; a LINK to anything else
is just like any other dynamic CALL.


That seems

outrageous in the year 2014.  How about ATTACH?  How does initiator do it?


ATTACH is always to a 'main'; if it is an LE module, a new enclave
(not nested) is created; if it is not an LE module, it's just another
task.

-Steve



-- 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: POSIX(ON) costs or disadvantages

[Paul Gilmartin]

On Mon, 27 Jan 2014 19:33:25 +0100, Bernd Oppolzer wrote:
>
> ... (if you manage to LINK between LE modules
>with the help of MVS LINK or similar mechanisms, which is possible -
>for example: we do all linkage between our LE modules, no matter which 
>language,
>with a home grown mechanism which relies on MVS LOAD macro and BASR, 
>basically).
>
You mean IBM provides no support for LINKing to an  LE module!?  That seems
outrageous in the year 2014.  How about ATTACH?  How does initiator do it?

-- gil

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

Re: POSIX(ON) costs or disadvantages

[Bernd Oppolzer]

Am 27.01.2014 17:34, schrieb Steve Comstock:


In LE, an enclave is a mainline and it's subroutines. Certain program
functions create a nested enclave: the invoking enclave is suspended
until the invoked enclave terminates. In particular, I seem to recall
that

* EXEC CICS LINK and EXEC CICS XCTL
* Assembler LINK
* C system() function
* PL/I fetch and call to a fetchable main PL/I procedure

all create nested enclaves; the invoked program must be a 'main' (in
the LE sense) and not a subroutine.



While I'm pretty sure that this is true for the system() call of C,
I believe that for the other types of linkage it depends on the
behaviour of the called module. For example PL/1: if you FETCH
a module which is not a MAIN, no enclave will be built. Same goes
for the MVS LINK macro (if you manage to LINK between LE modules
with the help of MVS LINK or similar mechanisms, which is possible -
for example: we do all linkage between our LE modules, no matter which 
language,
with a home grown mechanism which relies on MVS LOAD macro and BASR, 
basically).

Don't know much about CICS - we have IMS.

Kind regards

Bernd

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Binyamin Dissen]

On Mon, 27 Jan 2014 11:17:40 -0500 Gerhard Postpischil 
wrote:

:>On 1/27/2014 10:20 AM, Micheal Butz wrote:
:>> I did I used the TCB represented by TESTs LISTTCB TCBJLB and tve find macro 
returned a 4 not found
:>
:>Did you check what DCBDEBAD points to?
:>
:>You maintain that all your addresses are correct. Then you shouldn't 
:>have a problem. If you're wrong, then you should take a dump of the 
:>address space and track down what's really going on. That's not 
:>something the list members can do for you.

Thinking about it, FIND updates the DCB to make the next READ SF come from
that block address. It may required a MACRF=R and write access to the DCB. The
OP should check the open DCB to see what is the MACRF as well as what the R0
reason code was.

--
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: POSIX(ON) costs or disadvantages

[Steve Comstock]

On 1/27/2014 7:15 AM, John McKown wrote:

On Mon, Jan 27, 2014 at 8:05 AM, Scott Ford  wrote:


Juergen,

I know C and C++ that use threads pthread.h requires posix(on). I know
there are other functions that require it

Scott ford
www.identityforge.com




One restriction that I found is that POSIX(ON) can one enclave in an LE
"nested enclave" environment can have POSIX(ON) active. I don't really know
what a "nested enclave" is or why you'd use one.
ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ceea21b0/5.4

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



In LE, an enclave is a mainline and it's subroutines. Certain program
functions create a nested enclave: the invoking enclave is suspended
until the invoked enclave terminates. In particular, I seem to recall
that

* EXEC CICS LINK and EXEC CICS XCTL
* Assembler LINK
* C system() function
* PL/I fetch and call to a fetchable main PL/I procedure

all create nested enclaves; the invoked program must be a 'main' (in
the LE sense) and not a subroutine.

-Steve Comstock

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Gerhard Postpischil]

On 1/27/2014 10:20 AM, Micheal Butz wrote:

I did I used the TCB represented by TESTs LISTTCB TCBJLB and tve find macro 
returned a 4 not found


Did you check what DCBDEBAD points to?

You maintain that all your addresses are correct. Then you shouldn't 
have a problem. If you're wrong, then you should take a dump of the 
address space and track down what's really going on. That's not 
something the list members can do for you.



Gerhard Postpischil
Bradford, Vermont

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Micheal Butz]

I did I used the TCB represented by TESTs LISTTCB TCBJLB and tve find macro 
returned a 4 not found

Sent from my iPhone

> On Jan 27, 2014, at 7:34 AM, Walt Farrell  wrote:
> 
>> On Sun, 26 Jan 2014 16:55:23 -0500, MichealButz  
>> wrote:
>> 
>> I believe I don't have the right TCB to access TSOLIB I need the TCB for
>> IKJEFT01
> 
> TSOLIB would not affect the TCB for IKJEFT01; that's much too far up in the 
> TCB tree and would disrupt the TMP processing if its tasklib were change. You 
> should be able to use the TCB you're running under, as you showed us.
> 
> -- 
> Walt
> 
> --
> 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: DFHSM and FSM Fast Subsequent Migration Reports

[Glenn Wilcock]

Hi Lizette,

You can use the DFSMS Report Generator (see Ch 14 of DFSMShsm Storage 
Administration for an overview) to create a customized report to post process 
FSR records.  In the FSR2 record (used by the report generator), FSR2RECON is 
the flag that indicates that the data set was "reconnected" to the ML2 tape.  
If the data set is over 32K tracks (FSR2F32K=1), then FSR2TRKKR has the number 
of tracks, otherwise FSR2TRKR has the number of tracks.

Enjoy,
Glenn Wilcock

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Micheal Butz]

The CL8 left justified padded with blanks program name

Thank 

Sent from my iPhone

> On Jan 27, 2014, at 7:32 AM, Walt Farrell  wrote:
> 
> What's in AA.NAME at the time of the FIND? You didn't show us that.
> 
> -- 
> Walt
> 
>> On Sun, 26 Jan 2014 15:58:10 -0500, MichealButz  
>> wrote:
>> 
>> First
>> 
>> TSOLIB ACTIVATE DATASET('IBMUSER.TEST.LOAD')
>> READY
>> Then
>> 
>> BROWSEIBMUSER.TEST.LOAD Browse
>> substituted
>> Command ===>  Scroll ===>
>> PAGE
>>   Name Prompt Alias-of  Size   TTR  ACAM
>> RM
>> . DACEE131000091E01 31
>> 24
>>  **End**
>> 
>> 
>> 
>> Look If its in the task lib
>> 
>>   L R15,X'21C'
>>   L R7,TCBJLB-TCB(,R15)
>> 
>>   FIND  (R7),AA.NAME,D
>> 
>> 
>>   LR1,R7
>>   LA0,AA.NAME
>>   LTR   1,1
>>   BNZ   *+16
>>   LA15,8
>>   LA0,16
>>   B *+8
>>   LCR   1,1
>>   SVC   18
>> 
>>   LTR   R15,R15
>>   BNZ   STEP_LIB
>> 
>> 
>> The listtcb proves that I have the right TCB and TCBJLB values
>> 
>> TESTAUTH
>> AT +8E6
>> TESTAUTH
>> GO
>> IKJ57024I AT +8E6
>> TESTAUTH
>> L 15R
>> 15R  008B1478
>> TESTAUTH
>> AT +8EA
>> TESTAUTH
>> GO
>> IKJ57024I AT +8EA
>> TESTAUTH
>> L 7R
>> 7R  0002EF60
>> TESTAUTH
>>   IKJ57652I TCB LOCATED AT 8B1478
>> 
>> RBP   PIE   DEB   TIO   CMP   TRN   MSS   PKF
>> 008FD358      008D2FD0    448B8A80  7F529700  80
>> 
>> FLGSLMP  DSP  LLS   JLB   JPQ
>> 000401  FF   FE   008B1668  0002EF60  
>> 
>> 
>> l 3r?+10 l(48)  xc
>> 00065BB8.  C4C1C3C5 C5404040 00091E00 052C0009  *DACEE   *
>>   2300 C2E2 00131013 1000  *..BS*
>> 00065BD8.  88020101 0100    *h...*
>> 
>> And I get rc 4 from FIND
>> 15R  0004
>> TESTAUTH
>> 
>> 
>> 
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>> Behalf Of Binyamin Dissen
>> Sent: Sunday, January 26, 2014 11:50 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: With What macros Can the DCB specified by TCBJLB be used for
>> 
>> That would suggest that you did not do it properly.
>> 
>> I would suggest taking an abend after the FIND or BLDL and confirm that the
>> addresses are what you expect.Show all your code.
>> 
>> 
>> 
>> On Sun, 26 Jan 2014 10:32:55 -0500 MichealButz 
>> wrote:
>> 
>> :>Hi,
>> :>
>> :>
>> :>
>> :>I have tried a whole slew of macros with DCB specified by TCBJLB and none
>> :>give a clean return code from OPEN, CLOSE FIND,BLDL :> :> :> :>The only
>> one thing I was successful in using it was to get the offset within :>the
>> TIOT of that entry :> :> :> :>Thanks :> :>
>> :>--
>> :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send
>> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> 
>> --
>> 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
> 
> --
> 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: What sites use CVTLSO<>0

[Paul Gilmartin]

On 2014-01-27, at 05:33, Hunkeler, Peter wrote:

>> I'm in a thread on MVS-OE about a bug that suggests that
>> Unix System Services is CVTLSO-ignorant.  Tests and
>> statistics welcomed.  Rexx:
>> 
>>   address TSO time; address SH date; address TSO time
> 
> I just ran:
> 
> /* rexx */
> address TSO "time"; address SH "date"; address TSO "time"
> CVTaddrx = c2x( storage( '0010', 4 ) )
> CVTEXT2addr = c2x( storage( d2x( x2d( CVTaddrx ) + 328 ), 4  ) )
> CVTLSOaddr =  d2x( x2d( CVTEXT2addr ) + 80 )  
> say "CVTLSO is x'" || c2x( storage( CVTLSOaddr, 8 ) ) || "'"
> 
> Result:
> IKJ56650I TIME-01:31:30 PM. CPU-00:00:00 SERVICE-729 SESSION-00:00:00 JANUARY 
> 27,2014
> Mo 27 Jan 13:31:30 2014
> IKJ56650I TIME-01:31:30 PM. CPU-00:00:00 SERVICE-777 SESSION-00:00:00 JANUARY 
> 27,2014
> CVTLSO is x'0017D784'
> 
> /u/a618725 $> uname -a
> OS/390 X22 23.00 03 2817
>  
Thanks.  That's reassuring.  The OP's on MVS-OE problem may be
soomehow idiosyncratic.

I'm still (idly) curious: What problems have people experienced
with timestamp skew due to inconsistent application of CVTLSO?
Ten years ago, they were so severe that we turned it off.

Thanks,
gil

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

Re: POSIX(ON) costs or disadvantages

[Sam Siegel]

On Jan 27, 2014 6:20 AM, "Bernd Oppolzer" 
wrote:
>
> Some years ago, I had to make available a library which does
> some SSL coding and encoding to PL/1 callers, and that was a little
> complicated, because the library was coded in C - which was no problem -
> but it was compiled and linked using the high performance linkage option -
> I believe it's called XPLINK - which is not compatible with standard
linkage
> conventions, and so I had to find a way to bring together the standard
linkage
> PL/1 modules with the XPLINK C library. In fact, it was successful after
using
> an intermediate module which was callable from PL/1 using standard linkage
> and called the library using XPLINK - of course, all calls had to be
dynamic calls,
> no static linkage.
>
> When I was finished with that, I observed that I additionally had to
specify
> POSIX(ON) on the jobs which called that modules - but I don't recall if
it was
> due to the library which maybe required POSIX or if it was due to the
communication
> between the XPLINK and non-XPLINK modules.

XPLINK and POSIT(ON|OFF) are not related.

Anyway, we specified POSIX(ON)
> on the LE-Parms of the jobs where it was needed, and it worked. The PL/1
modules
> etc. had no problem with that.
>
> Kind regards
>
> Bernd
>
>
>
> Am 27.01.2014 15:05, schrieb Scott Ford:
>
>> Juergen,
>>
>> I know C and C++ that use threads pthread.h requires posix(on). I
know there are other functions that require it
>>
>> Scott ford
>> www.identityforge.com
>> from my IPAD
>>
>>
>>
>>
>>> On Jan 27, 2014, at 4:03 AM, Juergen Weber  wrote:
>>>
>>> Scott,
>>>
>>> we are running a C++ library (libACE) and it requires POSIX(ON). Our
admins don't like it, but won't say exactly, why.
>>> So I checked the IBM docs, but did not find anything, except that some
C runtime library functions need it.
>>>
>>> Juergen
>>>
>>> --
>>> 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: Resistance to Java.

[Staller, Allan]

Or to use the modern term "political correctness".


Orwell made this point, better than I can make it:

The purpose of Newspeak was not only to provide a medium of expression for the 
world-view and mental habits proper to the devotees of Ingsoc, but to make all 
other modes of thought impossible.  It was intended that when Newspeak had been 
adopted once and for all and Oldspeak forgotten, a heretical thought---that is 
a thought diverging from the principles of Ingsoc---should be literally 
unthinkable, at least so far as thought is dependent upon words.  Its 
vocabulary was so constructed as to give exact and often very subtle expression 
to every meaning that a Party member could properly wish to express, while 
excluding all other meanings and also the possibility of arriving at them by 
indirect means.  This was done partly by inventing new words but chiefly by 
eliminating undesirable words . . . Quite apart from the suppression of 
definitely heretical words, reduction of vocabulary was regarded as an end in 
itself, and no word that could be dispensed with was allowed to survive.  
Newspeak was designed not to extend but to diminish the range of thought, and 
this purpose was indirectly
assisted by cutting the choice of words down to a minimum.   (From the
Ingsoc appendix to his novel, 1984)


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

Re: POSIX(ON) costs or disadvantages

[Bernd Oppolzer]

Some years ago, I had to make available a library which does
some SSL coding and encoding to PL/1 callers, and that was a little
complicated, because the library was coded in C - which was no problem -
but it was compiled and linked using the high performance linkage option -
I believe it's called XPLINK - which is not compatible with standard 
linkage
conventions, and so I had to find a way to bring together the standard 
linkage
PL/1 modules with the XPLINK C library. In fact, it was successful after 
using

an intermediate module which was callable from PL/1 using standard linkage
and called the library using XPLINK - of course, all calls had to be 
dynamic calls,

no static linkage.

When I was finished with that, I observed that I additionally had to 
specify
POSIX(ON) on the jobs which called that modules - but I don't recall if 
it was
due to the library which maybe required POSIX or if it was due to the 
communication

between the XPLINK and non-XPLINK modules. Anyway, we specified POSIX(ON)
on the LE-Parms of the jobs where it was needed, and it worked. The PL/1 
modules

etc. had no problem with that.

Kind regards

Bernd



Am 27.01.2014 15:05, schrieb Scott Ford:

Juergen,

I know C and C++ that use threads pthread.h requires posix(on). I know 
there are other functions that require it

Scott ford
www.identityforge.com
from my IPAD





On Jan 27, 2014, at 4:03 AM, Juergen Weber  wrote:

Scott,

we are running a C++ library (libACE) and it requires POSIX(ON). Our admins 
don't like it, but won't say exactly, why.
So I checked the IBM docs, but did not find anything, except that some C 
runtime library functions need it.

Juergen

--
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: POSIX(ON) costs or disadvantages

[John McKown]

On Mon, Jan 27, 2014 at 8:05 AM, Scott Ford  wrote:

> Juergen,
>
> I know C and C++ that use threads pthread.h requires posix(on). I know
> there are other functions that require it
>
> Scott ford
> www.identityforge.com
>
>
>
One restriction that I found is that POSIX(ON) can one enclave in an LE
"nested enclave" environment can have POSIX(ON) active. I don't really know
what a "nested enclave" is or why you'd use one.
ref: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ceea21b0/5.4

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

Re: POSIX(ON) costs or disadvantages

[Scott Ford]

Juergen,

I know C and C++ that use threads pthread.h requires posix(on). I know 
there are other functions that require it

Scott ford
www.identityforge.com
from my IPAD




> On Jan 27, 2014, at 4:03 AM, Juergen Weber  wrote:
> 
> Scott, 
> 
> we are running a C++ library (libACE) and it requires POSIX(ON). Our admins 
> don't like it, but won't say exactly, why.
> So I checked the IBM docs, but did not find anything, except that some C 
> runtime library functions need it.
> 
> Juergen
> 
> --
> 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: FIND macro Failed with TCBJLB

[Shmuel Metz (Seymour J.)]

In
,
on 01/25/2014
   at 10:09 PM, MichealButz  said:

>Can I use the DCB represented by TCBJLB with the FIND macro

Why? Use BLDL or DESERVE.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Walt Farrell]

On Sun, 26 Jan 2014 16:55:23 -0500, MichealButz  
wrote:

>I believe I don't have the right TCB to access TSOLIB I need the TCB for
>IKJEFT01

TSOLIB would not affect the TCB for IKJEFT01; that's much too far up in the TCB 
tree and would disrupt the TMP processing if its tasklib were change. You 
should be able to use the TCB you're running under, as you showed us.

-- 
Walt

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

Re: What sites use CVTLSO<>0

[Hunkeler, Peter]

>I'm in a thread on MVS-OE about a bug that suggests that
>Unix System Services is CVTLSO-ignorant.  Tests and
>statistics welcomed.  Rexx:
>
>address TSO time; address SH date; address TSO time

I just ran:

/* rexx */
address TSO "time"; address SH "date"; address TSO "time"
CVTaddrx = c2x( storage( '0010', 4 ) )
CVTEXT2addr = c2x( storage( d2x( x2d( CVTaddrx ) + 328 ), 4  ) )
CVTLSOaddr =  d2x( x2d( CVTEXT2addr ) + 80 )  
say "CVTLSO is x'" || c2x( storage( CVTLSOaddr, 8 ) ) || "'"

Result:
IKJ56650I TIME-01:31:30 PM. CPU-00:00:00 SERVICE-729 SESSION-00:00:00 JANUARY 
27,2014
Mo 27 Jan 13:31:30 2014
IKJ56650I TIME-01:31:30 PM. CPU-00:00:00 SERVICE-777 SESSION-00:00:00 JANUARY 
27,2014
CVTLSO is x'0017D784'

/u/a618725 $> uname -a
OS/390 X22 23.00 03 2817

--
Peter Hunkeler

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Walt Farrell]

What's in AA.NAME at the time of the FIND? You didn't show us that.

-- 
Walt

On Sun, 26 Jan 2014 15:58:10 -0500, MichealButz  
wrote:

>First
>
>TSOLIB ACTIVATE DATASET('IBMUSER.TEST.LOAD')
> READY
>Then
>
>BROWSEIBMUSER.TEST.LOAD Browse
>substituted
> Command ===>  Scroll ===>
>PAGE
>Name Prompt Alias-of  Size   TTR  ACAM
>RM
> . DACEE131000091E01 31
>24
>   **End**
>
>
>
>Look If its in the task lib
>
>L R15,X'21C'
>L R7,TCBJLB-TCB(,R15)
>
>FIND  (R7),AA.NAME,D
>
>
>LR1,R7
>LA0,AA.NAME
>LTR   1,1
>BNZ   *+16
>LA15,8
>LA0,16
>B *+8
>LCR   1,1
>SVC   18
>
>LTR   R15,R15
>BNZ   STEP_LIB
>
>
> The listtcb proves that I have the right TCB and TCBJLB values
>
> TESTAUTH
>AT +8E6
> TESTAUTH
>GO
> IKJ57024I AT +8E6
> TESTAUTH
>L 15R
> 15R  008B1478
> TESTAUTH
>AT +8EA
> TESTAUTH
>GO
> IKJ57024I AT +8EA
> TESTAUTH
>L 7R
>  7R  0002EF60
> TESTAUTH
>IKJ57652I TCB LOCATED AT 8B1478
>
>RBP   PIE   DEB   TIO   CMP   TRN   MSS   PKF
>008FD358      008D2FD0    448B8A80  7F529700  80
>
>FLGSLMP  DSP  LLS   JLB   JPQ
>000401  FF   FE   008B1668  0002EF60  
>
>
>l 3r?+10 l(48)  xc
> 00065BB8.  C4C1C3C5 C5404040 00091E00 052C0009  *DACEE   *
>2300 C2E2 00131013 1000  *..BS*
> 00065BD8.  88020101 0100    *h...*
>
>And I get rc 4 from FIND
>15R  0004
>TESTAUTH
>
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>Behalf Of Binyamin Dissen
>Sent: Sunday, January 26, 2014 11:50 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: With What macros Can the DCB specified by TCBJLB be used for
>
>That would suggest that you did not do it properly.
>
>I would suggest taking an abend after the FIND or BLDL and confirm that the
>addresses are what you expect.Show all your code.
>
>
>
>On Sun, 26 Jan 2014 10:32:55 -0500 MichealButz 
>wrote:
>
>:>Hi,
>:>
>:>
>:>
>:>I have tried a whole slew of macros with DCB specified by TCBJLB and none
>:>give a clean return code from OPEN, CLOSE FIND,BLDL :> :> :> :>The only
>one thing I was successful in using it was to get the offset within :>the
>TIOT of that entry :> :> :> :>Thanks :> :>
>:>--
>:>For IBM-MAIN subscribe / signoff / archive access instructions, :>send
>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>--
>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

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

Re: With What macros Can the DCB specified by TCBJLB be used for

[Walt Farrell]

On Sun, 26 Jan 2014 10:32:55 -0500, MichealButz  
wrote:

>I have tried a whole slew of macros with DCB specified by TCBJLB and none
>give a clean return code from OPEN, CLOSE FIND,BLDL

It's somewhat odd to think it might work for OPEN, Micheal, as that DCB is 
already OPEN. And if it were to work for CLOSE, I imagine you would then start 
experiencing abends trying to load programs since the system would be trying to 
use a DCB that wasn't OPEN. Or perhaps the system prevents a tasklib DCB from 
being CLOSEd while it's still in use; I'm not sure exactly what protections are 
implemented in that processing.

-- 
Walt

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

Re: POSIX(ON) costs or disadvantages

[Juergen Weber]

Scott, 

we are running a C++ library (libACE) and it requires POSIX(ON). Our admins 
don't like it, but won't say exactly, why.
So I checked the IBM docs, but did not find anything, except that some C 
runtime library functions need it.

Juergen

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