*RE: Another elementary Assembler question

[Hardee, Chuck]

Why not change your entry code slightly:

WHATEVER CSECT
ENTRY0   JAS   R15,MAIN
ENTRY1   JAS   R15,MAIN
ENTRY2   JAS   R15,MAIN
ENTRY3   JAS   R15,MAIN
ENTRY4   JAS   R15,MAIN
 LARL  R12,WHATEVER
 SRR15,R12  subtract r12 from R15 to get relative offset 
from WHATEVER
*   R15 = 4 to 20 for entry 0 to 4
 AHI   R15,-4   R15 = 0 to 16 for entry 0 to 4
 SRL   R15,2R15 now has a code 0 to 4 corresponding to the 
entry point

If you can live with 4 to 16 as your "code", then drop the AHI and your R15 
code will be 1 to 5.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Smith
Sent: Monday, July 03, 2017 4:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Another elementary Assembler question

If invoked with system services (LINK, EXEC, etc.) in AMODE 64, then R15
does not point to anything at all (S0C4-3? if you thought it did).

sas

On Mon, Jul 3, 2017 at 5:11 PM, Charles Mills  wrote:

> I have a program that has five (IIRC) entry points and sorts them out that
> way.
>
> WHATEVER CSECT
> ENTRY0   J MAIN
> ENTRY1   J MAIN
> ENTRY2   J MAIN
> ENTRY3   J MAIN
> ENTRY4   J MAIN
>
>  LARL  R12,WHATEVER
>  USING WHATEVER,R12 Optional; irrelevant to this logic
>
>  SRR15,R12
>  SRL   R15,2R15 now has a code 0 to 4 corresponding to
> the entry point
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Webster, Chris
> Sent: Monday, July 3, 2017 1:33 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Another elementary Assembler question
>
> An alternative to looking up the cde.
>
>  Entry Alias1
> Alias1 J Main r15 points here for alias1 Entry Alias2
> Alias2 J Main r15 points here for alias2 Entry MAIN Main DS 0AD r15 points
> here for main  Larl 12,Main (or data area) set base  Using main,12  Larl
> 0,alias1 check for alias1
>  Cr15,0
>  Je...
>
> For amode 64, some cleanup of r15 would be needed.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
sas

--
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: SDSF/REXX question

[Hardee, Chuck]

I get the job name by chasing control blocks, sorry, it works.

I am using ADDRESS SDSF

During my testing I, too, retrieved the output that I was writing from within 
my rexx.
It didn't surprise me, but as I worked on the actual task at hand more I was 
able to get to identify the actual output I needed to look at.

At this point, I'm close to solving the issue for which the rexx is being 
written, with the one exception that sometimes the test job runs and doesn't 
find itself.

I'll try the sleep example you supplied to see it helps any.

Thanks!
C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Wednesday, May 31, 2017 10:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SDSF/REXX question

On Thu, 1 Jun 2017 02:24:43 +, Hardee, Chuck wrote:
>
>I am having a random timing issue with a REXX that I am developing using SDSF 
>calls.
>The REXX identifies the job name and number within which it is running and 
>then attempts to use SDSF to find and process the SYSOUT datasets already 
>created by previous steps in the job.
> 
I hope you're using the newer ADDRESS SDSF and not the older batch SDSF.

>The REXX works most of the time, but sometimes when it runs, it fails to find 
>itself within the returned job list.
>
How do you get the jobname?  I used ISPF calls.  But that's because I'm loath
to trace control blocks.

>What I'm hoping to find out via this post is:
>
>1)  Does anyone know why there appears to be a delay in JES entering the 
>job's output into the queue?
> 
Is it possible that QSAM buffering intervenes?  But SDSF is quite good at 
chasing buffers to
display the most recent output, at least on a terminal.

>2)  Has anyone ever experienced this and, if so, what did you do to get 
>around this anomaly, if you did get around it?
>
No.  I've used Rexx SDSF to capture SYSTSPRT for the step in progress, tracing 
Rexx,
and I've seen output right to the command that fetched itself.

>3)  If this is a timing issue, is anyone aware of a means by which I can 
>cause the REXX to delay a second or two before attempting to read the queue 
>entries for the job (name) being executed?
> 
ADDRESS SYSCALL 'sleep 2'

-- 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

SDSF/REXX question

[Hardee, Chuck]

Hello Listers,

I am having a random timing issue with a REXX that I am developing using SDSF 
calls.
The REXX identifies the job name and number within which it is running and then 
attempts to use SDSF to find and process the SYSOUT datasets already created by 
previous steps in the job.

The REXX works most of the time, but sometimes when it runs, it fails to find 
itself within the returned job list.

What I'm hoping to find out via this post is:

1)  Does anyone know why there appears to be a delay in JES entering the 
job's output into the queue?

2)  Has anyone ever experienced this and, if so, what did you do to get 
around this anomaly, if you did get around it?

3)  If this is a timing issue, is anyone aware of a means by which I can 
cause the REXX to delay a second or two before attempting to read the queue 
entries for the job (name) being executed?

I hope I've stated my problem sufficiently.

Thanks in advance for any information you can provide.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: SAS user abend code documentation?

[Hardee, Chuck]

Yeah, I sort of figured you had already checked it out, but, it never hurts to 
ask.
We don't use SAS here so I can't help much more.

Good luck on your hunt.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barbara Nitz
Sent: Thursday, March 23, 2017 8:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SAS user abend code documentation?

>Have you seen this http://support.sas.com/kb/54/206.html

Chuck,
yes, we did. And we are at a higher maintenance level already. One of the 
problems is that u1335 seems to occur in all kinds of problems, which is why I 
want to see what it actually *means*.

Barbara

--
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: SAS user abend code documentation?

[Hardee, Chuck]

Barbara,

Have you seen this http://support.sas.com/kb/54/206.html

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barbara Nitz
Sent: Thursday, March 23, 2017 7:44 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: SAS user abend code documentation?

We are currently experiencing abend u1335 in SAS 9.4_m3 in different jobs. My 
first step would be to determine what that user abend actually tells me - but I 
cannot find the book containing the abend code meanings. Does anyone know what 
book contains that information? 

(We already have a ticket open with SAS, and we were told to make sure that the 
users have an OMVS segment because they don't. Well, they DO have an OMVS 
segment, and it is old news that bpx.default.user doesn't work anymore under 
2.1)

Thanks, Barbara

--
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: Jollygiant support (QWS3270 PLUS vendor) has not responded to several emails

[Hardee, Chuck]

Sorry Chris, I sent it to them and they never cashed it and I never got it back 
and they won't return my emails.
Otherwise we could work something out.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chris Hoelscher
Sent: Tuesday, March 14, 2017 3:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Jollygiant support (QWS3270 PLUS vendor) has not responded to 
several emails

Hey Chuck - send me your check - I will be happy to cash it for you ...

Chris Hoelscher
Technology Architect, Database Infrastructure Services
Technology Solution Services
: humana.com
123 East Main Street
Louisville, KY 40202
Humana.com
(502) 714-8615, (502) 476-2538

> I tried to contact them shortly after Jolly sold to Brandon asking why they
> hadn't cashed my check for support renewal.


The information transmitted is intended only for the person or entity to which 
it is addressed
and may contain CONFIDENTIAL material.  If you receive this 
material/information in error,
please contact the sender and delete or destroy the material/information.


--
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: Jollygiant support (QWS3270 PLUS vendor) has not responded to several emails

[Hardee, Chuck]

Yeah, that was always my experience when it was Jolly.
I'd contact them one day and within a day or two I either had an explanation 
about what was wrong, or a fix.
Great support.
Since going to Brandon, well, 'nuff said.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Beaver
Sent: Tuesday, March 14, 2017 2:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Jollygiant support (QWS3270 PLUS vendor) has not responded to 
several emails

As I remember, the original author was Canadian and he sold out to another 
Canadian.

When W10 came out I contacted the guy since W10 QWS3270 Secure would not 
initialize under W10 and he had a fix for
Me in about a day

Steve 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Tuesday, March 14, 2017 1:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Jollygiant support (QWS3270 PLUS vendor) has not responded to 
several emails

If you are lucky enough to get thru to them, please report back how you 
established contact.
I tried to contact them shortly after Jolly sold to Brandon asking why they 
hadn't cashed my check for support renewal.
TO this date I have had no response to my inquiries. It would be nice to know 
if anyone else is getting thru to them.

I like the tool and would like to get current but I'd rather not have to buy 
the product all over again.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tony Harminc
Sent: Tuesday, March 14, 2017 2:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Jollygiant support (QWS3270 PLUS vendor) has not responded to 
several emails

On 14 March 2017 at 13:07, Steve Beaver <st...@stevebeaver.com> wrote:
> Jolly Green is still in Toronto.

Really? Were they ever here?

> Telephone:
> 1-613-541-0740

That's not a Toronto area code, though of course these days any phone number 
can ring anywhere. The always helpful localcallingguide.com says 613-541 is 
Kingston, Ont.  ISTR the author started at Queen's University there.

Tony H.

--
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: Jollygiant support (QWS3270 PLUS vendor) has not responded to several emails

[Hardee, Chuck]

If you are lucky enough to get thru to them, please report back how you 
established contact.
I tried to contact them shortly after Jolly sold to Brandon asking why they 
hadn't cashed my check for support renewal.
TO this date I have had no response to my inquiries. It would be nice to know 
if anyone else is getting thru to them.

I like the tool and would like to get current but I'd rather not have to buy 
the product all over again.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tony Harminc
Sent: Tuesday, March 14, 2017 2:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Jollygiant support (QWS3270 PLUS vendor) has not responded to 
several emails

On 14 March 2017 at 13:07, Steve Beaver  wrote:
> Jolly Green is still in Toronto.

Really? Were they ever here?

> Telephone:
> 1-613-541-0740

That's not a Toronto area code, though of course these days any phone
number can ring anywhere. The always helpful localcallingguide.com
says 613-541 is Kingston, Ont.  ISTR the author started at Queen's
University there.

Tony H.

--
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: Friday fun with REXX and PARSE

[Hardee, Chuck]

I'm probably going to explain this incorrectly, but the jist of the problem is 
the literal periods in the PARSE statement.

Due to the literal periods ("."), PARSE assigns the values of "word1" and 
"word2" to var1 and var2 respectively.
Then, PARSE assigns nulls to var3, var4 and var5 bringing the parse pattern and 
variable's value into sync with the first literal period (".") and PARSE then 
assigns "word3 word4:word5" to var6.
Finally, var7 is assigned "word6" and the trailing period is "assigned" the 
remainder, "word7 hh.mm.ss".

Is this what you concluded?


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Hunkeler
Sent: Friday, February 24, 2017 4:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Friday fun with REXX and PARSE

This is some Friday fun with parsing with REXX. First I was baffled with the 
result, now I understand. So *no* I will not join the TSO/REXX list ;-)
I've got a data set to process with REXX. The records are of format:

"word1 word2.word3 word4:word5.word6 word7 hh.mm.ss"


What I need is each record split into:

var1 = "word1"
var2 = "word2.word3"
var3 = "word4:word5.word6"
var4 = "word7"
var5 = "hh"
var6 = "mm"
var7 = "ss"

Easy, I thought and coded:

PARSE VAR input var1 var2 var3 var4 var5 "." var6 "." var7 .


The result baffled me and was far from anything I understood at first. Here is 
what the variables look like:


var1 ==> "word1"
var2 ==> "word2"
var3 ==> ""
var4 ==> ""
var5 ==> ""
var6 ==> "word3 word4:word5"
var7 ==> "word6"


Have fun. 


--
Peter Hunkeler

--
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: Fujitsu Mainframe Vs IBM mainframe

[Hardee, Chuck]

There may have been several versions but, when I was involved in getting IDMS 
to run on Fujitsu, Hitachi, Siemens and others, it was BS2000.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Michel Castelein
Sent: Thursday, February 23, 2017 11:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Fujitsu Mainframe Vs IBM mainframe

On 23-Feb-17 4:56 PM, Mike Beer wrote:
> If I remember correctly - the Siemens (later Fujitsu Siemens) offering
> was "BS2000".
>
> Mike
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

No. It was "BS3000".

Michel Castelein

--
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: JCL IF Condition - I'm Missing Something

[Hardee, Chuck]

William,

Here's a modified version of your test without SETs:

//* 
//CKEXIST1 EXEC PGM=IDCAMS  
//SYSPRINT DD SYSOUT=*  
//SYSINDD * 
   LISTCAT ENTRIES('S01CH.TEST.LOADLIB')
/*  
//CHECKIF1 IF CKEXIST1.RC < 4 THEN  
//IFEXECED EXEC PGM=IEFBR14 
//CHECKIF1 ENDIF
//* 
//CKEXIST2 EXEC PGM=IDCAMS  
//SYSPRINT DD SYSOUT=*  
//SYSINDD * 
   LISTCAT ENTRIES('S01CH.TEST.NO.LOADLIB') 
/*  
//CHECKIF2 IF CKEXIST2.RC < 4 THEN  
//IFEXECED EXEC PGM=IEFBR14 
//CHECKIF2 ENDIF
//* 

And the results:
-STEPNAME PROCSTEPRC 
-CKEXIST1 00 
-IFEXECED 00 
-CKEXIST2 04 
-IFEXECED  FLUSH 
IEF404I S01CHIFT - ENDED

The first dataset exists, the second doesn't.

Is this what you're trying to accomplish or are you truly wanting variable SETs?

C-



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of George, William@FTB
Sent: Friday, February 17, 2017 2:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JCL IF Condition - I'm Missing Something

Thanks. I guess I'll have to attack the setting of the suffix differently then.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jim Brooks
Sent: Friday, February 17, 2017 11:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JCL IF Condition - I'm Missing Something

The SET statement is not executed conditionally. For example, if the SET 
statement appears in an IF/THEN/ELSE/ENDIF statement construct, the value is 
assigned to the symbolic parameter regardless of the logic of the construct.

Regards,
Jim

On Fri, Feb 17, 2017 at 2:03 PM, George, William@FTB  wrote:

> The JCL below
>
> 1.   Sets symbolic  = "A"
>
> 2.   checks if a dataset exists,
>
> 3.   if it does exist it changes the symbolic  = "B"
>
> 4.   for the dataset used in the Step3.
>
> However, processing ALWAYS falls into the THEN path even when the RC = 0.
> What am I missing?
> Note: this is just test JCL to verify the changing of the  
> symbolic works.
> Thanks for any insights!
> Bill
>
> //*
> //SET1  SET  SFX=A
> //*
> //CHKEXIST EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //SYSINDD *
>LISTCAT ENTRIES('Q6498.BIND.ENTLISTA')
> /*
> //CHECKIF IF CHKEXIST.RC < 4 THEN
> //SET2   SET SFX=B
> //CHECKIF ENDIF
> //*
> //STEP3EXEC PGM=SORT
> //SYSOUT   DD SYSOUT=*
> //SORTIN   DD DISP=SHR,DSN=Q6498.BIND.ENTLIST
> //SORTOUT  DD DSN=DUMMY
> //SYSINDD *
>   SORT FIELDS=COPY
> //
>
>
> __
> CONFIDENTIALITY NOTICE: This email from the State of California is for 
> the sole use of the intended recipient and may contain confidential 
> and privileged information. Any unauthorized review or use, including 
> disclosure or distribution, is prohibited. If you are not the intended 
> recipient, please contact the sender and destroy all copies of this email.
>
> --
> 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: Where's my dump?

[Hardee, Chuck]

Greg,

Occasionally I have to test something using a COBOL program.
This is what I have in my JCL to obtain a SYSMDUMP and I seem to get one every 
time I need one.

//ABNLIGNR DD DUMMY   DO NOT TAKE ABEND-AID DUMP  
//CAOESTOP DD DUMMY/* BYPASS CA-SYMDUMP */
//SYSABEND DD DUMMY   
//SYSUDUMP DD DUMMY   
//CEEDUMP  DD DUMMY   
//CEEOPTS  DD *   
TRAP(OFF,NOSPIE)  
RPTSTG(ON)
RPTOPTS(ON)   
//SYSMDUMP DD DISP=SHR,DSN=S01CH.ASSEMTST.SYSMDUMP

In fact, many times I want to see the results of the program I am testing and I 
define a field like this:

05  make-a-dump.
10  dump-maker   pic 9(05) usage display.

Then I code:
Move spaces to make-a-dump.
Add 1 to dump-maker.

I don't know if this will help, but it works for me.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Greg Boyd
Sent: Monday, February 13, 2017 6:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where's my dump?

I added a CEEOPTS DD * to the job.  And I tried several variations of TRAP ON 
and OFF with SPIE and NOSPIE, and both DUMP and UADUMP, but still not getting 
the S0C4 dump.

I also specified some invalid parms in the CEEOPTS input to make sure the DD 
statement was being processed, and I got CEE3792I and CEE3616I, saying the 
parms were invalid.  

I tried added a SYSMDUMP as well, but I presume the dump should be written to 
CEEDUMP?  
Binyamin:  CEEDUMP, SYSUDUMP, SYSABEND and SYSMDUMP DD all specify SYSOUT=*.  I 
see 'IEF237I JES2 ALLOCATED TO'
for all four, but no output for any of them.

Do I need to specify any compile parms that will enable the dump to be created? 
 or Binder parms that will include the appropriate modules to generate the dump.

I'm sure this is something simple, I just don't do enough COBOL coding.
Greg
Mainframe Crypto
www.mainframecrypto.com

--
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: BPXWDYN allocation with DEFER and UNIT=AFF

[Hardee, Chuck]

Yes, that would work, but then I have a program maintenance issue should 
anything in the generated JCL change.
Couple that with the fact that the catalog extract portion which is generating 
the INCLUDE member is targeted to be used by more than a single job, I would 
have to multiple copies of the catalog extract program to generate unique jobs 
streams, again, a maintenance nightmare should something change and the catalog 
extract process need to be updated.

It's just so much simpler to do the INCLUDE version.
In fact, that version is already working as of this morning.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Farley, Peter x23353
Sent: Friday, February 03, 2017 9:44 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BPXWDYN allocation with DEFER and UNIT=AFF

Chuck,

Why use INCLUDE MEMBER= in a second job?  A sequential dataset will do just as 
well to build the entire JCL you need, including the dynamically generated tape 
allocations, then just write the whole thing to an internal reader.  KISS 
principle.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Friday, February 03, 2017 5:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BPXWDYN allocation with DEFER and UNIT=AFF

Ahhh!
Thanks John!

I hadn't gotten to the DYNALLOC support yet. That was the agenda for this 
morning.
It appears that I can't "get there from here" as the saying goes.

I have thought of another means of doing what I what, I just didn't want to do 
it.
I was hoping to have my solution be a single job.

The way I was thinking of getting around it would be to allocate a small PDS 
and generate the JCL I need to concatenate the datasets with the UNIT=AFF 
specified and then in the second job do an INCLUDE MEMBER= in the job step that 
needs the concatenated datasets.

To me that's a clunky solution, but it works.

Back to the drawing board!

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Thursday, February 02, 2017 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BPXWDYN allocation with DEFER and UNIT=AFF

On Thu, Feb 2, 2017 at 7:19 PM, Hardee, Chuck <chuck.har...@thermofisher.com
> wrote:

> Before I move on to the next function of my Easytrieve program, I thought
> I'd ask for some insight from those who have used BPXWDYN.
>
> And before anyone says RTFM, I have.
>
> Okay, here's the issue, the documentation does not include DEFER as an
> option for dynamic allocation functions. At least not in a way that I
> interpret it as being available.
> However, that said, there is a TU() parameter with which one can supply an
> SVC 99 Text Unit that has been coded by hand.
> So, has anyone issued a BPXWDYN request for ALLOC in which they have coded
> a TU() parameter with an allocation text unit for DEFER?
>
> Next, I need to concatenate the "n" number of datasets from another
> program's selection process together for processing.
> I can allocate the first dataset with an explicit DD name and then I can
> allocate the remaining datasets with a return DD name parameter.
> This, then, allows me to issue a concatenation function and concatenate
> them all together under the name of the first, supplied DD name.
> But, I need to have unit affinity so that they all go thru the same
> logical unit. Yes, these are all tape datasets.
>
> This is what I am trying to accomplish using BPXWDYN:
>
> //INDSN   DD  DISP=SHR,DSN=dataset1
> //DD  DISP=SHR,DSN=dataset2,UNIT=
> AFF=INDSN
> //DD  DISP=SHR,DSN=dataset3,UNIT=
> AFF=INDSN
> //DD  DISP=SHR,DSN=dataset4,UNIT=
> AFF=INDSN
>
> Anyone ever do anything like this?
>

Impossible. Ref:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieaa800/notinda.htm

[quote]
Table 1. JCL DD Statement Facilities Not Supported by Dynamic
Allocation  

Re: BPXWDYN allocation with DEFER and UNIT=AFF

[Hardee, Chuck]

Ahhh!
Thanks John!

I hadn't gotten to the DYNALLOC support yet. That was the agenda for this 
morning.
It appears that I can't "get there from here" as the saying goes.

I have thought of another means of doing what I what, I just didn't want to do 
it.
I was hoping to have my solution be a single job.

The way I was thinking of getting around it would be to allocate a small PDS 
and generate the JCL I need to concatenate the datasets with the UNIT=AFF 
specified and then in the second job do an INCLUDE MEMBER= in the job step that 
needs the concatenated datasets.

To me that's a clunky solution, but it works.

Back to the drawing board!

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Thursday, February 02, 2017 9:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: BPXWDYN allocation with DEFER and UNIT=AFF

On Thu, Feb 2, 2017 at 7:19 PM, Hardee, Chuck <chuck.har...@thermofisher.com
> wrote:

> Before I move on to the next function of my Easytrieve program, I thought
> I'd ask for some insight from those who have used BPXWDYN.
>
> And before anyone says RTFM, I have.
>
> Okay, here's the issue, the documentation does not include DEFER as an
> option for dynamic allocation functions. At least not in a way that I
> interpret it as being available.
> However, that said, there is a TU() parameter with which one can supply an
> SVC 99 Text Unit that has been coded by hand.
> So, has anyone issued a BPXWDYN request for ALLOC in which they have coded
> a TU() parameter with an allocation text unit for DEFER?
>
> Next, I need to concatenate the "n" number of datasets from another
> program's selection process together for processing.
> I can allocate the first dataset with an explicit DD name and then I can
> allocate the remaining datasets with a return DD name parameter.
> This, then, allows me to issue a concatenation function and concatenate
> them all together under the name of the first, supplied DD name.
> But, I need to have unit affinity so that they all go thru the same
> logical unit. Yes, these are all tape datasets.
>
> This is what I am trying to accomplish using BPXWDYN:
>
> //INDSN   DD  DISP=SHR,DSN=dataset1
> //DD  DISP=SHR,DSN=dataset2,UNIT=
> AFF=INDSN
> //DD  DISP=SHR,DSN=dataset3,UNIT=
> AFF=INDSN
> //DD  DISP=SHR,DSN=dataset4,UNIT=
> AFF=INDSN
>
> Anyone ever do anything like this?
>

Impossible. Ref:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieaa800/notinda.htm
[quote]

Table 1. JCL DD Statement Facilities Not Supported by Dynamic
Allocation  Restricted
DDnamesJOBCAT, STEPCAT, JOBLIB, and STEPLIBKeyword ParametersCHKPT, DDNAME,
DLM, and DSIDPositional Parameters*, DATA, and DYNAMSelected Subparameters
of Keywords*Keyword**Subparameter Not Supported*DCBreference to ddname of a
previous step

CYLOFL
NTM
RKP
DISPPASS specificationDSNreference to ddname (as in *.ddname) ISAM area name
SPACEABSTR specificationUNITAFFVOLUMERETAIN specification

REF=ddname


[/quote]
​

>
> Thanks,
> Chuck
>
>
> Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
> Senior Systems Engineer/Database Administration
> EAS Information Technology<mailto:DBA%20Engineering%20-%20DB2_IDMS>
>
>

-- 
There’s no obfuscated Perl contest because it’s pointless.

—Jeff Polk

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

BPXWDYN allocation with DEFER and UNIT=AFF

[Hardee, Chuck]

Before I move on to the next function of my Easytrieve program, I thought I'd 
ask for some insight from those who have used BPXWDYN.

And before anyone says RTFM, I have.

Okay, here's the issue, the documentation does not include DEFER as an option 
for dynamic allocation functions. At least not in a way that I interpret it as 
being available.
However, that said, there is a TU() parameter with which one can supply an SVC 
99 Text Unit that has been coded by hand.
So, has anyone issued a BPXWDYN request for ALLOC in which they have coded a 
TU() parameter with an allocation text unit for DEFER?

Next, I need to concatenate the "n" number of datasets from another program's 
selection process together for processing.
I can allocate the first dataset with an explicit DD name and then I can 
allocate the remaining datasets with a return DD name parameter.
This, then, allows me to issue a concatenation function and concatenate them 
all together under the name of the first, supplied DD name.
But, I need to have unit affinity so that they all go thru the same logical 
unit. Yes, these are all tape datasets.

This is what I am trying to accomplish using BPXWDYN:

//INDSN   DD  DISP=SHR,DSN=dataset1
//DD  DISP=SHR,DSN=dataset2,UNIT=AFF=INDSN
//DD  DISP=SHR,DSN=dataset3,UNIT=AFF=INDSN
//DD  DISP=SHR,DSN=dataset4,UNIT=AFF=INDSN

Anyone ever do anything like this?

Thanks,
Chuck


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

I was provided a stub program by Peter that he had used to get around a similar 
issue with COBOL.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, January 31, 2017 8:35 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

On Wed, 1 Feb 2017 00:51:03 +, Hardee, Chuck wrote:

>Well, suffice it to say, Easytrieve allows one to define a variable following 
>the BPXWDYN non-REXX return variable structure and allows BPXWDYN to return a 
>value for use in the Easytrieve program.
>
>After playing with different options all day, I have successfully called 
>Easytrieve with an INFO request, FREE request and ALLOC request.
>All of these requests following BPXWDYN's non-REXX calling requirements.
> 
(ITYM "... called BPXWDYN ...")

What did you do to deal with R0?

--  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: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

Well, suffice it to say, Easytrieve allows one to define a variable following 
the BPXWDYN non-REXX return variable structure and allows BPXWDYN to return a 
value for use in the Easytrieve program.

After playing with different options all day, I have successfully called 
Easytrieve with an INFO request, FREE request and ALLOC request.
All of these requests following BPXWDYN's non-REXX calling requirements.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, January 31, 2017 7:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

On 2017-01-31, at 17:04, Hardee, Chuck wrote:

> In order to return a value from BPXWDYN to an Easytrieve caller, one must use 
> the variable definition as follows:
> 
> VARFIELD  DC   Y(L'VARVALUE)
> VARVALUE  DC   CLx('..')
> 
> Where 'x' is large enough to contain the maximum value that can be returned. 
> For example, a dataset name's max length is 44 characters so in this example, 
> x would be 45.
> 
> The keyword representing the value to be returned must start in position 1 of 
> VARVALUE and must include a SPACE at the end of the keyword.
> For instance, if one wants the dataset name associated with an allocated 
> DDname, then the VARVALUE would be coded as 'INRTDSN '.
>  
That describes (some of) BPXWDYN's requirements.  It makes no
presentation of whether Easytrieve supports return values in
CALL arguments, which is an uncommon practice.  I believe it is
more commom to pass the address of a reply buffer rather than
expecting the reply to replace the argument string itself.

-- 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: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

In order to return a value from BPXWDYN to an Easytrieve caller, one must use 
the variable definition as follows:

VARFIELD  DC   Y(L'VARVALUE)
VARVALUE  DC   CLx('..')

Where 'x' is large enough to contain the maximum value that can be returned. 
For example, a dataset name's max length is 44 characters so in this example, x 
would be 45.

The keyword representing the value to be returned must start in position 1 of 
VARVALUE and must include a SPACE at the end of the keyword.
For instance, if one wants the dataset name associated with an allocated 
DDname, then the VARVALUE would be coded as 'INRTDSN '.



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, January 31, 2017 6:05 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

On Tue, 31 Jan 2017 19:58:48 +, Hardee, Chuck wrote:
>
>At the moment, allocation is not what I am trying to do.
>I am trying to use the INFO function to return the dataset name.
>I am getting a return code of 0 from the BPXWDYN call, but I am not getting 
>anything returned.
>
>Have you tried doing an INFO call?
>
>This is the special flavor of parameter that you have to supply since BPXWDYN 
>doesn't have REXX variables to update.
> 
If there's anything to be gained by experimenting in Rexx, you can simulate a
non-Rexx call with "address LINKPGM".  You need to supply the length halfwords
explicitly.  I doubt that this allows controlling R0.

There's an ICSF example in SYS1.SAMPLIB.

Does Easytrieve allow return values in the CALL arguments and neither
copy them nor protect them?

-- 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: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

Thanks Alan.

At the moment, allocation is not what I am trying to do.
I am trying to use the INFO function to return the dataset name.
I am getting a return code of 0 from the BPXWDYN call, but I am not getting 
anything returned.

Have you tried doing an INFO call?

This is the special flavor of parameter that you have to supply since BPXWDYN 
doesn't have REXX variables to update.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Alan Young
Sent: Tuesday, January 31, 2017 2:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

Chuck, this is a quick and dirty conversion of the COBOL snippet to 
Easytrieve. I did not test actual I/O, but I do see the dynamic 
allocation in the JES messages and RC 0 is returned from BPXWDYN. This 
was tested with Easytrieve 11.6.

DEFINE BPXWDYN  W   8 A VALUE 'BPXWDYN '.
DEFINE BPXWDYN-RETCODE  W   4 B.

DEFINE ALLOC-STRING  W 159 A.
DEFINE A1ALLOC-STRING   15 A.
DEFINE A2ALLOC-STRING +15   13 A.
DEFINE ALLOC-DSN ALLOC-STRING +28   45 A.
DEFINE ALLOC-DSN-PAD ALLOC-STRING +731 A.
DEFINE A5ALLOC-STRING +74   23 A.
DEFINE A6ALLOC-STRING +97   27 A.
DEFINE A7ALLOC-STRING +124  34 A.
DEFINE ALLOC-TERMALLOC-STRING +158   1 A.

JOB INPUT (NULL)

  MOVE SPACES   TO ALLOC-STRING.
  MOVE 'ALLOC MSG(WTP) 'TO A1.
  MOVE 'DD(OUT1) DSN('  TO A2.
  MOVE 'A.TEST.DSN)'TO ALLOC-DSN.
  MOVE 'NEW DELETE UNIT(SYSDA) 'TO A5.
  MOVE 'CYL SPACE(01,01) DSORG(PS) 'TO A6.
  MOVE 'RECFM(FB) LRECL(80) BLKSIZE(27920)' TO A7.
  MOVE LOW-VALUES   TO ALLOC-TERM.

  CALL BPXWDYN USING (ALLOC-STRING)+
   RETURNS BPXWDYN-RETCODE.

  IF BPXWDYN-RETCODE = 0
  ELSE
  DISPLAY 'ERROR BPX RC= ' BPXWDYN-RETCODE
  END-IF.

STOP.

Alan

Hardee, Chuck wrote:
> Thanks Alan, but what you have indicated won't work for me in CA-Easytrieve.
> The biggest problem is that to use null or space terminated strings as 
> parameters, I have to be able to call BPXWDYN with R0 = 0 and Easytrieve 
> doesn't provide a method of setting R0 to zero.
>
> A wrapper is going to be needed.
>
>
> Charles (Chuck) Hardee
> Senior Systems Engineer/Database Administration
> EAS Information Technology
>
> Thermo Fisher Scientific
> 300 Industry Drive | Pittsburgh, PA 15275
> Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
> chuck.har...@thermofisher.com  | www.thermofisher.com
>
> WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of 
> this e-mail or the information herein by anyone other than the intended 
> recipient, or an employee or agent of a system responsible for delivering the 
> message to the intended recipient, is prohibited. If you are not the intended 
> recipient, please inform the sender and delete all copies.
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Alan Young
> Sent: Tuesday, January 31, 2017 1:11 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Calling bpxwdyn from CA-Easytrieve
>
> I have called it for many years from COBOL using the C string parameter 
> format (NULL terminated parameter string in the doc). No wrappers 
> needed. Here's a short snippet:
>
>  WORKING-STORAGE SECTION.
>
>  01  WORKAREA.
>
>  05  BPXWDYN PIC  X(08) VALUE 'BPXWDYN'.
>
>  05  WS-BPXWDYN-RETCODE  PIC  9(08) COMP SYNC.
>
>  05  WS-OUT1-ALLOC-STRING.
>  10  PIC  X(15) VALUE
>'ALLOC MSG(WTP) '.
>
>  10  PIC  X(14) VALUE
>'DD(OUT1) DSN('''.
>
>  10  WS-OUT1-DSN PIC  X(45).
>
>  10  PIC  X(01) VALUE SPACE.
>
>  10  PIC  X(23) VALUE
>'NEW DELETE UNIT(SYSDA) '.
>
>  10

Re: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

You got that right!
Or, if a "high level language" (and I use that term reeaalll loosely in 
reference to Easytrieve), there should be a way to indicate the value of the 
"parm" registers (R0 and R1). It would also be nice to be able to signal what 
the high-order bit of a parameter should be as well.
Oh, well, it is what it is.



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Tuesday, January 31, 2017 1:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

On Tue, 31 Jan 2017 12:41:10 +, Hardee, Chuck wrote:
>
>The manual states that on a call from a non-REXX environment, R0 must be zero.
> 
Why?

This is bizarre.  And sometimes hard to satisfy.  BPXWDYN ought to provide an
alternate entry point free of the requirement so users don't to need to write
wrappers to clear R0 and CALL BPXWDYN.

And if you don't LOAD/LINK/ATTACH BPXWDYN dynamically you risk missing
future updates.

-- 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: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

Thanks Alan, but what you have indicated won't work for me in CA-Easytrieve.
The biggest problem is that to use null or space terminated strings as 
parameters, I have to be able to call BPXWDYN with R0 = 0 and Easytrieve 
doesn't provide a method of setting R0 to zero.

A wrapper is going to be needed.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Alan Young
Sent: Tuesday, January 31, 2017 1:11 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

I have called it for many years from COBOL using the C string parameter 
format (NULL terminated parameter string in the doc). No wrappers 
needed. Here's a short snippet:

 WORKING-STORAGE SECTION.

 01  WORKAREA.

 05  BPXWDYN PIC  X(08) VALUE 'BPXWDYN'.

 05  WS-BPXWDYN-RETCODE  PIC  9(08) COMP SYNC.

 05  WS-OUT1-ALLOC-STRING.
 10  PIC  X(15) VALUE
   'ALLOC MSG(WTP) '.

 10  PIC  X(14) VALUE
   'DD(OUT1) DSN('''.

 10  WS-OUT1-DSN PIC  X(45).

 10  PIC  X(01) VALUE SPACE.

 10  PIC  X(23) VALUE
   'NEW DELETE UNIT(SYSDA) '.

 10  PIC  X(27) VALUE
   'CYL SPACE(01,01) DSORG(PS) '.

 10  PIC  X(34) VALUE
   'RECFM(FB) LRECL(80) BLKSIZE(27920)'.

*** TERMINATE COMMAND STRING
*** COULD SET THE LAST PARM AS A Z STRING
 10  PIC  X(01) VALUE LOW-VALUE.


 PROCEDURE DIVISION.

 STRING 'A.DYNAMIC.DSNAME'
''')' DELIMITED BY SPACE
 INTO WS-OUT1-DSN.

 CALL BPXWDYN USING WS-OUT1-ALLOC-STRING
  RETURNING WS-BPXWDYN-RETCODE.

 IF WS-BPXWDYN-RETCODE EQUAL ZERO
OPEN OUTPUT OUT-FILE

MOVE 'THIS IS SOME DATA ' TO OUT-REC
WRITE OUT-REC

CLOSE OUT-FILE
 ELSE
DISPLAY 'ERROR BPX RC=' WS-BPXWDYN-RETCODE
 END-IF.

 GOBACK.

Alan

Farley, Peter x23353 wrote:
> I don't know in which language CA Easytrieve is coded, but a few years back I 
> tried setting up calls to BPXWDYN in Enterprise COBOL (V4.1 at the time) and 
> they did not work because COBOL does not zero R0 as BPXWDYN requires.  I had 
> to code an assembler stub routine to put between the COBOL program and 
> BPXWDYN to get it to work.  For simplicity the stub was non-reentrant to be 
> able use the LOAD macro to find a copy of BPXWDYN and save the entry point 
> address for later use.
>
> Email me privately if you want a copy of the stub routine.  It wasn't hard to 
> code, 40 actual code lines and 7 lines of comments.
>
> Peter
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Hardee, Chuck
> Sent: Tuesday, January 31, 2017 7:41 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Calling bpxwdyn from CA-Easytrieve
>
> I have a need to be able to call bpxwdyn from within an CA-Easytrieve 
> "program".
>
> According to the manual, IBM says that bpxwdyn can be called from non-REXX 
> environments as long as certain rules are followed.
> It also states that values can be returned as long as the return value 
> parameter follows the following format:
>
> PARMx DC  Y(L'PARMxVAL+1)
> PARMxVAL DC  C'parameter value '
> (Notice the very important space at the end of the value string!)
> The manual states that the length must be 1 greater than the maximum length 
> possible for the returned attribute. Since a dataset name can only be 44 
> bytes, the length value should be fine.
>
> My need it to call bpxwdyn and have it return to me the dataset name 
> associated with a specific DD name.
>
> I have built the "command" string as follows:
>
> bpxwdyn-command   DC  Y(L'bpxwdyn-info)
> bpxwdyn-info   DC  C'INFO FI(MYDDN) '
>
> I have built the information return parameter as follows:
> bpxwdyn-dsname-p   DC  Y(102)
> bpxwdyn-dsname   DC  CL100'INRTDSN '
>
> The c

Re: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

Yes, I felt IBM's documentation and requirements to be confusing as well.
Unfortunately, it is what it is.
The parm needs the extra blank and the return variables need to have a length 1 
greater than the max length expected.
Go figure, way to make it easy IBM!

But, I guess one needs to consider it was apparently designed for REXX and then 
retrofitted for non-REXX environments since it's documented in the manual " 
Using REXX and z/OS UNIX System Services".



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Nims,Alva John (Al)
Sent: Tuesday, January 31, 2017 10:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

You are correct, I saw that too, but in my defense, in the example there is a 
blank space at the end of the parameter string and there is also and the "+1" 
in the length value (just to make things confusing).

Al Nims
Systems Admin/Programmer 3
UFIT
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Tuesday, January 31, 2017 10:33 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

While you think you would be right, check the end of the string and you will 
see that there is a space present.
That makes the PARM length equal to the actual number of characters plus 1.
It's the return parms that must include 1 extra byte for the string terminator 
to occupy.

Just to be clear, this is NOT an assembler program. It is an CA-Easytrieve 
program.
The variables are defined using CA-Easytrieve's definition format.
I simply supplied them here in assembler form to make things a bit easier for 
explanation.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Nims,Alva John (Al)
Sent: Tuesday, January 31, 2017 10:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

I think you forgot to do the "+" in:
bpxwdyn-command   DC  Y(L'bpxwdyn-info)
should be:
bpxwdyn-command   DC  Y(L'bpxwdyn-info+1)

Al Nims
Systems Admin/Programmer 3
UFIT
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Tuesday, January 31, 2017 7:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Calling bpxwdyn from CA-Easytrieve

I have a need to be able to call bpxwdyn from within an CA-Easytrieve "program".

According to the manual, IBM says that bpxwdyn can be called from non-REXX 
environments as long as certain rules are followed.
It also states that values can be returned as long as the return value 
parameter follows the following format:

PARMx DC  Y(L'PARMxVAL+1)
PARMxVAL DC  C'parameter value '
(Notice the very important space at the end of the value string!) The manual 
states that the length must be 1 greater than the maximum length possible for 
the returned attribute. Since a dataset name can only be 44 bytes, the length 
value should be fine.

My need it to call bpxwdyn and have it return to me the dataset name associated 
with a specific DD name.

I have built the "command" string as follows:

bpxwdyn-command   DC  Y(L'bpxwdyn-info)
bpxwdyn-info   DC  C'INFO FI(MYDDN) '

I have built the information return parameter as follows:
bpxwdyn-dsname-p   DC  Y(102)
bpxwdyn-dsname   DC  CL100'INRTDSN '

The call in Easytrieve is CALL

Re: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

While you think you would be right, check the end of the string and you will 
see that there is a space present.
That makes the PARM length equal to the actual number of characters plus 1.
It's the return parms that must include 1 extra byte for the string terminator 
to occupy.

Just to be clear, this is NOT an assembler program. It is an CA-Easytrieve 
program.
The variables are defined using CA-Easytrieve's definition format.
I simply supplied them here in assembler form to make things a bit easier for 
explanation.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Nims,Alva John (Al)
Sent: Tuesday, January 31, 2017 10:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

I think you forgot to do the "+" in:
bpxwdyn-command   DC  Y(L'bpxwdyn-info)
should be:
bpxwdyn-command   DC  Y(L'bpxwdyn-info+1)

Al Nims
Systems Admin/Programmer 3
UFIT
University of Florida
(352) 273-1298

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Tuesday, January 31, 2017 7:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Calling bpxwdyn from CA-Easytrieve

I have a need to be able to call bpxwdyn from within an CA-Easytrieve "program".

According to the manual, IBM says that bpxwdyn can be called from non-REXX 
environments as long as certain rules are followed.
It also states that values can be returned as long as the return value 
parameter follows the following format:

PARMx DC  Y(L'PARMxVAL+1)
PARMxVAL DC  C'parameter value '
(Notice the very important space at the end of the value string!) The manual 
states that the length must be 1 greater than the maximum length possible for 
the returned attribute. Since a dataset name can only be 44 bytes, the length 
value should be fine.

My need it to call bpxwdyn and have it return to me the dataset name associated 
with a specific DD name.

I have built the "command" string as follows:

bpxwdyn-command   DC  Y(L'bpxwdyn-info)
bpxwdyn-info   DC  C'INFO FI(MYDDN) '

I have built the information return parameter as follows:
bpxwdyn-dsname-p   DC  Y(102)
bpxwdyn-dsname   DC  CL100'INRTDSN '

The call in Easytrieve is CALL BPXWDYN USING (bpxwdyn-command, 
bpxwdyn-dsname-p) What's happening is that I getting a return code of 20, 
invalid parameter.
What I don't get is whether it is with my command string or my returned value 
strings.

The manual states that on a call from a non-REXX environment, R0 must be zero.

According to the Easytrieve manual, the CALL verb generates an MVS convention 
calling list. So, based on that I can only assume that the last address in the 
parameter list has it's high order bit on. Also, have written several routines 
which trigger off of the number of parameters with the number of parameters 
signaled by the high order but of the last one being on, and having called 
these routines successfully in Easytrieve, I suspect my assumption is correct.

What I don't know is whether Easytrieve sets R0 to zero for the call. If it 
doesn't, that could account for the return code of 20.

So, my question is, has anyone ever called bpxwdyn from within an Easytrieve 
program?

Thanks,
Chuck


Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
Senior Systems Engineer/Database Administration EAS Information 
Technology<mailto:DBA%20Engineering%20-%20DB2_IDMS>

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 
chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


--
For IBM-MAIN subscribe / signoff / archive access instr

Re: Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

Thanks Peter.

What I have done since I posted the query was to code a small assembler program:

MYTSTPGM CSECT
 USING *,15
 EXRL  0,*
 END   MYTSTPGM

I then called this program instead of BPXWDYN and took a look at the dump.
Sure enough, R0 is not zero.
In looking at the storage pointed to by R0, it looks a bit like the results of 
a BLDL against BPXWDYN.



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Farley, Peter x23353
Sent: Tuesday, January 31, 2017 10:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Calling bpxwdyn from CA-Easytrieve

I don't know in which language CA Easytrieve is coded, but a few years back I 
tried setting up calls to BPXWDYN in Enterprise COBOL (V4.1 at the time) and 
they did not work because COBOL does not zero R0 as BPXWDYN requires.  I had to 
code an assembler stub routine to put between the COBOL program and BPXWDYN to 
get it to work.  For simplicity the stub was non-reentrant to be able use the 
LOAD macro to find a copy of BPXWDYN and save the entry point address for later 
use.

Email me privately if you want a copy of the stub routine.  It wasn't hard to 
code, 40 actual code lines and 7 lines of comments.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Tuesday, January 31, 2017 7:41 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Calling bpxwdyn from CA-Easytrieve

I have a need to be able to call bpxwdyn from within an CA-Easytrieve "program".

According to the manual, IBM says that bpxwdyn can be called from non-REXX 
environments as long as certain rules are followed.
It also states that values can be returned as long as the return value 
parameter follows the following format:

PARMx DC  Y(L'PARMxVAL+1)
PARMxVAL DC  C'parameter value '
(Notice the very important space at the end of the value string!)
The manual states that the length must be 1 greater than the maximum length 
possible for the returned attribute. Since a dataset name can only be 44 bytes, 
the length value should be fine.

My need it to call bpxwdyn and have it return to me the dataset name associated 
with a specific DD name.

I have built the "command" string as follows:

bpxwdyn-command   DC  Y(L'bpxwdyn-info)
bpxwdyn-info   DC  C'INFO FI(MYDDN) '

I have built the information return parameter as follows:
bpxwdyn-dsname-p   DC  Y(102)
bpxwdyn-dsname   DC  CL100'INRTDSN '

The call in Easytrieve is CALL BPXWDYN USING (bpxwdyn-command, bpxwdyn-dsname-p)
What's happening is that I getting a return code of 20, invalid parameter.
What I don't get is whether it is with my command string or my returned value 
strings.

The manual states that on a call from a non-REXX environment, R0 must be zero.

According to the Easytrieve manual, the CALL verb generates an MVS convention 
calling list. So, based on that I can only assume that the last address in the 
parameter list has it's high order bit on. Also, have written several routines 
which trigger off of the number of parameters with the number of parameters 
signaled by the high order but of the last one being on, and having called 
these routines successfully in Easytrieve, I suspect my assumption is correct.

What I don't know is whether Easytrieve sets R0 to zero for the call. If it 
doesn't, that could account for the return code of 20.

So, my question is, has anyone ever called bpxwdyn from within an Easytrieve 
program?

Thanks,
Chuck


Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
Senior Systems Engineer/Database Administration
EAS Information Technology<mailto:DBA%20Engineering%20-%20DB2_IDMS>

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the int

Re: sdsf in rexx

[Hardee, Chuck]

Tim,

I haven't had a chance to try what you are attempting, at least not 
specifically the command, but something I stumbled upon a while back was when I 
wrote an SDSF enabled REXX, I tried asking for something that was in the 
extended screen layout rather than the default screen layout. Is it possible 
that what you are asking for is on the extended screen layout, the one you get 
by typing ? in the command line?
If so, did your previous user have access to that screen?

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Brown
Sent: Tuesday, January 31, 2017 7:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: sdsf in rexx

I got it to work using a different a RACF user, not sure what changed for 
previous user

Tim

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Monday, 30 January, 2017 11:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: sdsf in rexx


** THIS IS AN EXTERNAL EMAIL ** Use caution before opening links / attachments. 
Never supply UserID/PASSWORD information.


Tim,

I have a REXX exec I use to issue operator commands using the ISFSLASH keyword 
and writes the output to a temp file.   I think I may have stole it then 
enhanced it for my use either from IBM, or someone on this list, but the 
processing of the ISFULOG array is somewhat more complicated than you have 
listed.  I am posting the entire exec for you to play with, along with the JCL 
I use to execute.  You can have as many commands as you want in SYSIN.

//VARYOFF  EXEC PGM=IKJEFT1B,PARM='%OPERCMDB'  
//SYSEXEC  DD   DSN=your.sysexec.dataset,DISP=SHR   
//SYSTSIN  DD   DUMMY  
//SYSTSPRT DD   DUMMY  
//SYSINDD   *,SYMBOLS=JCLONLY  
 RO *ALL,V ,OFFLINE   
/* 

/* REXX */
/* this REXX exec will issue operator commands via SDSF REXX interface
   security is based on the person using the command.  this exec is to be 
   used for batch only   */   
'EXECIO * DISKR SYSIN (STEM mycmd. FINIS' 
if rc > 0 then do 
   say 'Return code from OPEN was' rc 
   say 'Aborting...'  
   exit   
   end
  
/* Allocate results output file  */   
ddnm = 'DD'||random(1,9)  
Address TSO "Alloc Fi("ddnm") SYSOUT" 
  
/* Process all input commands*/   
Do c=1 to mycmd.0 
 oper_command.0 = 1   
 oper_command.1 = mycmd.c 
 Call Main_process
End   
  
/* Free results output file  */
Address TSO "Free Fi("ddnm")"  
Return 0   
   
Main_process:  
/* process all data from SYSIN   */
rc=isfcalls('ON')  
Address SDSF ISFSLASH "("oper_command.") (WAIT)"   
l_cnt = 0   

Calling bpxwdyn from CA-Easytrieve

[Hardee, Chuck]

I have a need to be able to call bpxwdyn from within an CA-Easytrieve "program".

According to the manual, IBM says that bpxwdyn can be called from non-REXX 
environments as long as certain rules are followed.
It also states that values can be returned as long as the return value 
parameter follows the following format:

PARMx DC  Y(L'PARMxVAL+1)
PARMxVAL DC  C'parameter value '
(Notice the very important space at the end of the value string!)
The manual states that the length must be 1 greater than the maximum length 
possible for the returned attribute. Since a dataset name can only be 44 bytes, 
the length value should be fine.

My need it to call bpxwdyn and have it return to me the dataset name associated 
with a specific DD name.

I have built the "command" string as follows:

bpxwdyn-command   DC  Y(L'bpxwdyn-info)
bpxwdyn-info   DC  C'INFO FI(MYDDN) '

I have built the information return parameter as follows:
bpxwdyn-dsname-p   DC  Y(102)
bpxwdyn-dsname   DC  CL100'INRTDSN '

The call in Easytrieve is CALL BPXWDYN USING (bpxwdyn-command, bpxwdyn-dsname-p)
What's happening is that I getting a return code of 20, invalid parameter.
What I don't get is whether it is with my command string or my returned value 
strings.

The manual states that on a call from a non-REXX environment, R0 must be zero.

According to the Easytrieve manual, the CALL verb generates an MVS convention 
calling list. So, based on that I can only assume that the last address in the 
parameter list has it's high order bit on. Also, have written several routines 
which trigger off of the number of parameters with the number of parameters 
signaled by the high order but of the last one being on, and having called 
these routines successfully in Easytrieve, I suspect my assumption is correct.

What I don't know is whether Easytrieve sets R0 to zero for the call. If it 
doesn't, that could account for the return code of 20.

So, my question is, has anyone ever called bpxwdyn from within an Easytrieve 
program?

Thanks,
Chuck


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: FDR List

[Hardee, Chuck]

Thanks Nick, I'll try to be as detailed as I can.

I have 235 production datasets across 6 packs. I needed to restore the datasets 
to 6 test packs.
The datasets are of the format: ID.DB.MA.PROD.AMPSYOVY.PX001001
The difference in the datasets are that the last 6 digits change. The first 3 
digits are a "family" id and the last 3 digits are a sequence number within the 
family.

The naming for the TEST environment would be ID.DB.MA.TEST.AMPSYOVY.PX001001
The "family" and sequencing would remain the same.

So, in a nutshell, the files are to be restored from 6 prod packs to 6 test 
packs changing the PROD to TEST.
The packs are of a format ID2P01 thru 06 and ID2T01 thru 06.

This is what I fed to FDR:

//SYSIN   DD   *   
RESTORE  TYPE=FDR, 
 ENQERR=NO,
 ACTMESS=NO,   
 DATA=USED,
 SELTERR=NO,   
 CONFMESS=NO   
EXCLUDE  DSN=IDMS.PROD.HOLDER.SYS1.VTOCIX**
EXCLUDE  DSN=IDMS.PROD.HOLDER.SYS1.VVDS**  
EXCLUDE  DSN=ID.DB.MA.PROD.**.NEW  
EXCLUDE  DSN=ID.DB.MA.PROD.**.OLD  
EXCLUDE  DSN=ID.DB.MA.PROD.**.SAVE 
EXCLUDE  DSN=ID.DB.MA.PROD.UDI**   
SELECT   DSN=ID.DB.MA.PROD**,NEWI=...TEST  
/* 

After the restore was complete, the existing files 
ID.DB.MA.TEST.AMPSYOVY.PX001001, etc were deleted, but the catalog entries 
remained and the production files were placed on the test volumes but the PROD 
was not changed to TEST.

Additionally, there were also 6 "rogue" files on 2 of the prod packs, their 
naming was ID.DB.MA.PROD.CAS02001.SAVE, etc.
These files were also restored, but to my way of thinking, the EXCLUDE for the 
ID.DB.MA.PROD.**.SAVE should have caused them to be excluded from being 
restored to the test packs.

So, what am I missing here?
First, as a file name is run thru the list of exclude and select parms, the 
file name ending in SAVE should have been eliminated, right?
Then, if a file makes it past the excludes, if it matches the DSN+ value, it 
should be restored, but the PROD node in the name should have been changed to 
TEST, right?

Also, the last couple of lines in the output from the restore process are this:

FDR316**   FDR  DID NOT FIND REQUESTED DSN/G=ID.DB.MA.PROD**
FDR999   FDR SUCCESSFULLY COMPLETED 

I'm sure these lines say it all, but to me, they don't say a thing.

Let me say right now, I inherited this job stream from someone who is no longer 
here so I cannot say with absolute certainty that this ran successfully last 
year.

Thanks for taking the time to look at this.

Chuck


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Icke, Nick
Sent: Tuesday, January 03, 2017 1:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: FDR List

Whats the prob you are encountering and can you supply the exec pack, I maybe 
able to help

Ta

Nick

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: 03 January 2017 18:56
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: FDR List

Does anyone know if there is an FDR list out there somewhere?
If there isn't one, is anyone willing to offer insight on an FDR RESTORE 
problem I am having?

Thanks,
Chuck

Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
Senior Systems Engineer/Database Administration EAS Information 
Technology<mailto:DBA%20Engineering%20-%20DB2_IDMS>

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 
chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


--
F

FDR List

[Hardee, Chuck]

Does anyone know if there is an FDR list out there somewhere?
If there isn't one, is anyone willing to offer insight on an FDR RESTORE 
problem I am having?

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: how to: convince programmer something else is better.

[Hardee, Chuck]

Suggest to him (or her), that if there is an error in the compression and/or 
decompression code, it's their posterior that is in the frying pan. If there's 
an error in the vendor's code, their posterior is not in harm's way. (hopefully 
said error does not render your compressed data irretrievable)

Convince the programmer to put the responsibility for support and maintenance 
of the compression/decompression tools on the vendor and not themselves.



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Thursday, December 15, 2016 10:25 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: how to: convince programmer something else is better.

I'm having a bit of a problem convincing a COBOL programmer to "not do"
something because, IMO, there is a better way. However, it almost seems
like he is not hearing me.

Some background. We have an in-house written RLE blank compression routine
which we use for some selected data sets. These data sets are known to have
large sequences of blanks in the records. We have used this program for
over 25 years (it was here when I came here). So this predates SMS
compression by a couple of decades. It was also used because, back in that
day, VSAM KSDS data sets were limited to 2 GiB. Oh, the program is written
in HLASM.

Well, we are getting off of z/OS to Wintel. Regardless of cost and time.
"So let it be written. So let it be done!" As part of this, we will need to
uncompress the data and transfer it to Windows. There are no problems with
that (other than screams from the SAN people about the size of the
resultant files). Part of this is using MicroFocus COBOL to do some of the
work (i..e port the COBOL programs to Windows). The aforementioned
programmer wants a COBOL version of the HLASM compression and decompression
routines. In fact, he has written the decompression routine. He wants me to
write a COBOL version of the compression routine. Which I am working on.
This is being done "just in case" they are needed (i.e. the SAN people
scream long & hard enough about space issues). However, MicroFocus supplies
3 different compression routines which can be called from COBOL. What I'm
trying to convince the programmer to do is write the Wintel COBOL versions
of the compression routines to take the same parameters as they have
historically, but to call the MIcroFocus routines within them to do the
actual compression and decompression. But, again, it is like he is just not
hearing me.

Do any of the COBOL programmers out there have any idea how I can phrase
this information so that it makes better sense to him? I.e. convince him
that using the vendor compression routines, via a compatible interface
routine, is the way to go?

-- 
Heisenberg may have been here.

http://xkcd.com/1770/

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: TSO Command to issue message to Outtrap

[Hardee, Chuck]

Glad to help.
C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (TRA)
Sent: Thursday, November 03, 2016 7:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Command to issue message to Outtrap

It appears the recursive nature of how you did it solves the problem.

Thank you

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI Service Delivery & Engineering

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Thursday, November 03, 2016 6:22 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: TSO Command to issue message to Outtrap

Lionel,

I don't know if this helps, but the following does, to a degree, what you want:
---
/* rexx */ 
if arg(1) \= "R" then do   
   rc = outtrap("said.")   
   call tsttrap "R"
   if said.0 > 0 then do   
  say "Captured "SAY" output:" 
  do said# = 1 to said.0   
 say right(said#,2)":" "|"said.said#"|"
 end   
  end  
   rc = outtrap("OFF") 
   end 
else do
   say "Line 1"
   say "line 2"
   say "Line 2"
   end 
exit   

--
Captured SAY output:
 1: |Line 1|
 2: |line 2|
 3: |Line 2|
*** 

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (TRA)
Sent: Thursday, November 03, 2016 7:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Command to issue message to Outtrap

Thank you to all who replied - push and queue don't work. Tried those before 
posting.  It appears that there isn't a putline command/function that I can use 
for this.

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer  Enterprise Infrastructure 
Support (Station 200) (005OP6.3.10) VA OI Service Delivery & Engineering

--
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: TSO Command to issue message to Outtrap

[Hardee, Chuck]

Lionel,

I don't know if this helps, but the following does, to a degree, what you want:
---
/* rexx */ 
if arg(1) \= "R" then do   
   rc = outtrap("said.")   
   call tsttrap "R"
   if said.0 > 0 then do   
  say "Captured "SAY" output:" 
  do said# = 1 to said.0   
 say right(said#,2)":" "|"said.said#"|"
 end   
  end  
   rc = outtrap("OFF") 
   end 
else do
   say "Line 1"
   say "line 2"
   say "Line 2"
   end 
exit   

--
Captured SAY output:
 1: |Line 1|
 2: |line 2|
 3: |Line 2|
*** 

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dyck, Lionel B. (TRA)
Sent: Thursday, November 03, 2016 7:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TSO Command to issue message to Outtrap

Thank you to all who replied - push and queue don't work. Tried those before 
posting.  It appears that there isn't a putline command/function that I can use 
for this.

--
Lionel B. Dyck (TRA Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)
VA OI Service Delivery & Engineering

--
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: Rexx and hex data strings

[Hardee, Chuck]

Consider the following:


/* rexx */
YES = (1 = 1)
NO  = \YES
marker = "$$HEXSTUFF$$"
hexdata. = 0

maxsrcline = sourceline()
doinghex = NO
do src# = 1 to maxsrcline
   sourceline = sourceline(src#)
   markerline = wordpos(marker,sourceline)
   if markerline & \doinghex then do
  doinghex = YES
  iterate
  end
   if markerline & doinghex then leave
   If doinghex then do
  hex# = hexdata.0 + 1
  hexdata.hex# = x2c(space(sourceline))
  hexdata.0 = hex#
  end
   end

/*
$$HEXSTUFF$$
000102030405060708090A0B0C0D0E0F101112
$$HEXSTUFF$$
*/

Will this do what you want?

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Itschak Mugzach
Sent: Thursday, October 27, 2016 11:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Rexx and hex data strings

I am trying to include a large ammount of hex (and unexpected) data in the
program. each line is 80 bytes in length. As Rexx allowes a longer then 80
bytes line of code, there is no problem to put each line into a variable,
but I have about 800 lines to include... any idea how to make a block in
the program an accssible comment?

​Best,
ITschak ​

*| **Itschak Mugzach | Director | SecuriTeam Software | *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*

--
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: How does COBOL detect a recursive call?

[Hardee, Chuck]

The wherefores of using a main program and an ENTRY versus 2 programs is a 
political battle I am not prepared or willing to fight.
When initially assigned this project I was hoping that my Systems status within 
the company would grant me some carte blanche in how I engineered the solution 
but, alas, I was mistaken.

Suffice it to say, until/unless I find a technical problem to warrant the 
multiple program construct, or even the multiple programs per member construct, 
I am stuck with using the COBOL language verbs as they have been engineered. 
If, and when, they fail to function, I will have the ammunition I need to push 
for one of the other programming constructs.

I do appreciate all of your narratives of what was occurring.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Wednesday, August 10, 2016 6:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: How does COBOL detect a recursive call?

Hi Chuck,

Thanks. Yes, I was able to recreate the issue after making the post with the 
questions in. 

RENT,REUS or REUS or RENT, ie any combinaton, on the linkediting/bindering 
causes no new executable to be loaeded in this case, so tha ALIASed ENTRY is in 
the same executable as the CALL.

This causes COBOL to notice that the program has been entered again, before 
control has left the program (entered a subsequent time, prior to a GOBACK). 
This causes the IGZ0064S message to be attempted, which causes the handler 
(ENTRY) to be entered again, which causes (attempts) the IGZ message again, 
until LE reaches its defined limit for the number of "nested" conditions it is 
supposed to be able to deal with (user option).

Making the program RECURSIVE (PROGR-ID.  IS RECURSIVE) effectively removes 
the COBOL check that the program has been subsequently re-entered before a 
GOBACK has been processed, so that handler is not entered a second time.

So, you have a situation which "works", or more than one. Without RENT or REUS 
on the linkedit/bindering, you should get a new executable for the SET for the 
ENTRY and not have a problem with IGZ0064S.

With RENT or REUS and using PROGRAM-ID  IS RECURSIVE you should not have a 
problem, as long as you bear in mind that you are now "sharing" the 
WORKING-STORAGE, and that there are special-registers which you are not 
sharing. 

The IBM-recommended way to use the ENTRY for a dynamic CALL is to use CANCEL 
for the PROGRAM-ID to be able to use the ENTRY and for the ENTRY to be able to 
use the PROGRAM-ID (or another ENTRY). You can't do the CANCEL from *within* 
the program, so that is out.

There are at least two ways that a CALL to an ENTRY within the same program 
*should* be able to be made to work, even though there is no documentation for 
the CALL to an ENTRY within the same program, and I've never heard of it being 
done on the Mainframe, those outline above.

I'd personally feel exposed with "we can kind of get it working, it is not 
straightforward to understand, and isn't documented by IBM".

Note, I've reproduced with an "ordinary" CALL to a an ENTRY, not with an ENTRY 
which is established as a handler.

I'd do it as two programs, unless there is an absolute, paramount, overriding 
reason to do it as one program. It is difficult for me to imagine what that 
reason may be.

You currently have the "already needs a CBL/PROCESS/PARM for NAME(ALIAS), now 
also needs IS RECURSIVE or not to use RENT or REUS on the linkedit/binder".

--
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: How does COBOL detect a recursive call?

[Hardee, Chuck]

Bob,

Since John is working with a stripped down copy of my program I resurrected the 
copy of the program with my debugging displays in it where I had already coded 
the displays for the two addresses you asked about.

Displaying the main entry point address, that is, the name of the program as 
coded in the PROGRAM-ID clause, the address displayed is 11E00A10.
Displaying the program name as coded on the ENTRY statement, the address 
displayed is 11E02C78.
The difference between these two address is x'2268'.
According to the linkage map, the offset to the ENTRY statement name is x'2268'.

So, it appears that the runtime is getting the address of the code that is 
within the initially loaded module, not a fresh copy.

So, looking at the link output, it was reported that the module was linked as:
RENTYES
REUSYES

So, it is definitely a recursive call.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Tuesday, August 09, 2016 6:52 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: How does COBOL detect a recursive call?

OK, it is the RENT or REUS (either will do) on the link-edit/bindering.

Without RENT/REUS you get a new executable for free. With RENT/REUS you get to 
"share" the original program, but it is necessarily a "recursive" use, so you 
get the "IGZ0064S A recursive call to active program..." message. Which is why 
IBM say you must CANCEL before the CALL to the ENTRY, which you can't do if the 
CALL is to an ENTRY in the same program. PROGRAM-ID ... IS RECURSIVE "gets 
around" the IGZ0064S, so there won't be a second condition, which causes 
another, and another. So LE will be happy.

So, you've discovered a way to nearly get a CALL to an ENTRY point with an 
ALIAS to work like it used to :-) 

However, there is overhead. The recursive CALL will share WORKING-STORAGE, but 
pretty much everything else will be initialised on each CALL, and then all 
thrown away on each GOBACK (since it is not actually recursing). For a one-shot 
use, this will not matter.

Safe to use? Well, understanding how it works/doesn't work wasn't easy for me 
:-)

Here's an example of the generated code from the COBOL compiler showing the 
recursion checking:

ICM   2,15,336(9) IPCB=1+16 
L 11,40(0,12) PBL=1 
BC8,210(0,11) GN=6(0002E6)  
L 3,92(0,9)   TGTFIXD+92
L 15,244(0,3) V(IGZCMSG )   
LA1,206(0,10) PGMLIT AT +202
BASR  14,15 

PGMLIT AT +202 is X'40', which is the 64 for the IGZ message.

There is similar code generated for an ENTRY.

And here's the code from the GOBACK clearing up to say things will be OK for 
another CALL:

L 3,336(0,9)  IPCB=1+16   
S 3,0(0,12)   SYSLIT AT +0
ST3,336(0,9)  IPCB=1+16   

--
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: How does COBOL detect a recursive call?

[Hardee, Chuck]

Okay, let's run with this one.

If program A has an entry, B, and the program is compiled with NAME(ALIAS), 
when the program is linked, there will be an entry for A and an entry for B as 
an ALIAS of A.

When A is executed, a statement in the program says SET  TO ENTRY B where 
 is defined as PROCEDURE-POINTER.

Does a separate copy of the load module get loaded as B when this SET statement 
is executed or does the runtime simply gain access to the entry point B within 
the currently loaded version of A?

If a separate copy of the load module is loaded as B, where is the recursion?
If a separate copy of the load module is not loaded, I can see the recursion.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Tuesday, August 09, 2016 12:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How does COBOL detect a recursive call?

http://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieab100/reus.htm
When you link edit, you indicate the re-usability of the program.
When the program runs, it reuses the same program if re-entrant.  Each
use has a different set of registers and working storage.
Serially reusable can be self modifying (storing into load module
areas), but can be reused after completing.  Needs a new copy for a
simultaneous use.
None means the program must be reloaded from disk for every use.

When you run a program, the LOAD macro examines the directory and
loads as appropriate.
http://www.longpelaexpertise.com/ezine/ReentrantBeginners.php



On Tue, Aug 9, 2016 at 9:59 AM, John McKown
 wrote:
> On Tue, Aug 9, 2016 at 9:40 AM, John McKown 
> wrote:
>
>> This is a kind of curiosity question. Unless a COBOL program is compiled
>> with the THREAD option and the RECURSIVE clause on the PROGRAM-ID, the
>> program cannot CALL itself. I have also found out that if you use an ENTRY
>> statement and the compile NAME(ALIAS), you cannot do a CALL of the alias
>> from the "main" program either. E.g. if you have a PROGRAM-ID. A. and an
>> ENTRY 'B', then you cannot CALL 'B' while running A. I am thinking this
>> must be in some way related to the fact that 'A' and 'B' share the same
>> WORKING-STORAGE area. But I was just wondering if anybody knows how this is
>> implemented. Of course, it is probably likely to change between releases,
>> so it's not something I could depend on.
>>
>> Why the interest? Because while talking with Chuck Hardee about having an
>> LE condition handler in the same source member (as an ENTRY) as the main
>> COBOL routine, we found that the run-unit will abend with a U4087-2 and
>> some messages about recursive invocation. So as a test, I compiled a sample
>> which got the U4087-2 with the THREAD option and RECURSIVE clause, and that
>> ran successfully. However the THREAD option comes with some possibley nasty
>> side restrictions. In particular, no INITIAL clause in the PROGRAM-ID
>> sentence and, worse, no use of SORT / MERGE verbs.
>>
>
> Well, here I am talking to myself again. At least I'm not, yet, into the 3
> way arguments with myself. But it turns out that I misread the manual.
> RECURSIVE is required on the PROGRAM-ID if THREAD is used, but not vice
> versa. So it appears that all I really need is the RECURSIVE clause on the
> PROGRAM-ID and not the THREAD compile option. But I'm still mildly curious
> about how COBOL detects recursion, if you know off-hand.
>
> --
> Klein bottle for rent -- inquire within.
>
> Maranatha! <><
> John McKown
>
> --
> 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

Another COBOL question

[Hardee, Chuck]

Thanks to everyone that responded to my previous question about generating link 
statements from the compiler.
The answer was to use the NAME(ALIAS) PROCESS statement.

I now am looking for some further insight.

I have a program that has a main program and an alternate entry point (ENTRY).
The alternate entry point is an LE error handler.
The main program issues a SET  TO ENTRY "modname" in order to load an 
assembled  parameter file.
If the load is successful, then the program can extract the information it 
needs from the load module and go on its merry way.

The source program successfully compiles and builds a single executable with 
the main program name and an alias for the ENTRY statement.

By inserting displays into the program I can say that the main program appears 
to be working fine up to the SET statement.

It issues a SET  TO ENTRY "error handler entry point name" and then issues 
a call to CEEHDLR to register the error handle routine.
It then issues the SET  TO ENTRY "modname" and here's where the problem 
comes in.
If the module is found, the SET is successful and the program does its thing.
If the module is NOT found, it abends with a CEE0374C with CONDITION=CEE3501S. 
The reported condition is the condition that the error handler is supposed to 
trap and handle.

If I split the code out into 2 separately compiled programs, all works as 
desired.
Unfortunately, 2 programs is not an option for me unless someone can point me 
to the IBM statement that declares what I am trying to do is not possible or 
not supported.

Has anyone ever written a single COBOL program which contains an ENTRY 
statement for an internal language environment error handler?
If so, can you share with me what you did to make it work?

I have gone thru the LE manuals and found several COBOL examples where there 
are program "boxes" with flow of control indicated but none of them appear to 
be ENTRY type points of code within a single program. Furthermore, I can't find 
anything in the LE manuals that say that using an ENTRY to gain access to an 
error handler routine isn't allowed, at least not in clear enough terminology 
that I can see.

There is, however, a warning that an error handler should be issued in a COBOL 
nested environment.
Unfortunately, it doesn't describe a COBOL nested environment.

Thanks in advance,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: Question about the COBOL compiler

[Hardee, Chuck]

After being informed about it last night, yes, it does work.
I was looking for something akin to previous assembler features to "PUNCH" or 
"WRITE" as a compiler directive.
Hadn't thought of scouring the manuals for ALIAS. I figured it would be more 
generic.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Friday, August 05, 2016 7:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

On Thu, Aug 4, 2016 at 6:41 PM, Hardee, Chuck <chuck.har...@thermofisher.com
> wrote:

> Actually, my dynamic calls work just fine to the alias'ed entry points so
> it's not an issue.
> Bottom line, I' fine with my module's structure both in its primary entry
> point and its aliased entry point.
> All I am looking for is whether the COBOL compiler can do PUNCH statements
> like some of the assemblers and I believe it has been pointed out already
> that it doesn't support it.
> So, I'm going to have to move on to the compiling tool we use and modify
> it to support alternate link parm input.
>

​So making the first line in the program something like:

*PROCESS NAME(ALIAS)

Doesn't work?​


> Thanks for your comments.
>
> Charles (Chuck) Hardee
> Senior Systems Engineer/Database Administration
> EAS Information Technology
>
>

-- 
Klein bottle for rent -- inquire within.

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: Question about the COBOL compiler

[Hardee, Chuck]

Thanks Peter, I'll take a look at that option.

Our PC people compile into QA and from that point it remains as is so that 
tested code is what goes into production.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Farley, Peter x23353
Sent: Thursday, August 04, 2016 6:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

Don't your auditors flag that kind of life cycle setup?  If a program is 
recompiled after being tested in QA then you are putting untested code into 
production, even if it's the same source and compiler.

Around here the programmer does the final compile (but only in the SDLC system 
under its rules) and the load modules, sources and compile listings are copied 
through to QA and then to Production with no changes.  What is tested is what 
gets to production that way.

However, I have to retract my prior statement that COBOL doesn't support adding 
"cards" to the output object code.  For your particular case, the compiler NAME 
option may be all you need:

Default is: NONAME, or NAME(NOALIAS) if only NAME is specified 
Abbreviations are: None 

If you specify NAME(ALIAS), and your program contains ENTRY statements, a 
link-edit ALIAS card is generated for each ENTRY statement. 

The NAME or NAME(ALIAS) option cannot be used for compiling programs that will 
be prelinked with the Language Environment prelinker.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Thursday, August 04, 2016 5:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

That would definitely work Peter, but ultimately I will not be the one 
compiling the program for production.
I am developing a system level service routine that will be used by the 
application programmers but when it goes into production it will be a 
production control person that will be compiling it.

I guess I'll have to bite the bullet and modify the compile panels to support 
additional parms.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Farley, Peter x23353
Sent: Thursday, August 04, 2016 5:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

Unlike HLASM and predecessors, there is no "PUNCH" command to output arbitrary 
"cards" to the object output from COBOL.

About all I can think of is to go ahead and submit the compile/link job that 
the panels produce, then cancel the job before it completes, then use SJ from 
SDSF to edit the JCL to add the ALIAS statement to the LKED SYSIN DD.

Nothing automated, but it will get the job done.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Thursday, August 04, 2016 5:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

Compiler version: PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1 V3R2

What I need is this:

INCLUDE OBJLIB(PROGRAMA)
ALIAS ENTRYB(NTRYPTB)
NAME PROGRMA(R)

Our compile panels generate the INCLUDE and NAME statements.
However, I need to have the ALIAS in there as well.

Our panels don't allow for additional statements like ALIAS and I don't want to 
dig into them and add the support for them.
I suspect few, if any, other than me in this special usage, will ever need 
something like this.

As to dynamic or static, not really relevant, but for the record, all of our 
programs are, by standard and policy, compiled with DYNAM enabled.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Thursday, August 04, 2016 5:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question about the COBOL compiler

Somewhat (when you have a "batch compile - a compile of a load of separate 
programs in one hit). But not really, there was a bit of recent discussion of 
this here, a topic by Frank Swarbrick.

Whi

Re: Question about the COBOL compiler

[Hardee, Chuck]

Actually, my dynamic calls work just fine to the alias'ed entry points so it's 
not an issue.
Bottom line, I' fine with my module's structure both in its primary entry point 
and its aliased entry point.
All I am looking for is whether the COBOL compiler can do PUNCH statements like 
some of the assemblers and I believe it has been pointed out already that it 
doesn't support it.
So, I'm going to have to move on to the compiling tool we use and modify it to 
support alternate link parm input.

Thanks for your comments.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Thursday, August 04, 2016 5:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question about the COBOL compiler

Well, static or dynamic matters. 

Static CALLs will work to ENTRY points in the expected way (previous state of 
program, whether PROGRAM-ID any other ENTRY was CALLed previously). 

Dynamic CALLs to ENTRY points, even once ALIASed, will not do what you probably 
expect. If you expect to have "previous state" when another entry-point was 
used - you won't.

--
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: Question about the COBOL compiler

[Hardee, Chuck]

That would definitely work Peter, but ultimately I will not be the one 
compiling the program for production.
I am developing a system level service routine that will be used by the 
application programmers but when it goes into production it will be a 
production control person that will be compiling it.

I guess I'll have to bite the bullet and modify the compile panels to support 
additional parms.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Farley, Peter x23353
Sent: Thursday, August 04, 2016 5:33 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

Unlike HLASM and predecessors, there is no "PUNCH" command to output arbitrary 
"cards" to the object output from COBOL.

About all I can think of is to go ahead and submit the compile/link job that 
the panels produce, then cancel the job before it completes, then use SJ from 
SDSF to edit the JCL to add the ALIAS statement to the LKED SYSIN DD.

Nothing automated, but it will get the job done.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Thursday, August 04, 2016 5:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

Compiler version: PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1 V3R2

What I need is this:

INCLUDE OBJLIB(PROGRAMA)
ALIAS ENTRYB(NTRYPTB)
NAME PROGRMA(R)

Our compile panels generate the INCLUDE and NAME statements.
However, I need to have the ALIAS in there as well.

Our panels don't allow for additional statements like ALIAS and I don't want to 
dig into them and add the support for them.
I suspect few, if any, other than me in this special usage, will ever need 
something like this.

As to dynamic or static, not really relevant, but for the record, all of our 
programs are, by standard and policy, compiled with DYNAM enabled.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Thursday, August 04, 2016 5:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question about the COBOL compiler

Somewhat (when you have a "batch compile - a compile of a load of separate 
programs in one hit). But not really, there was a bit of recent discussion of 
this here, a topic by Frank Swarbrick.

Which compiler are you using? You want to CALL dynamically, or statically?

--
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 message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


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

Re: Question about the COBOL compiler

[Hardee, Chuck]

Thanks Bill, if I don't get anywhere here, maybe I'll run over there and see if 
anyone can help.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Thursday, August 04, 2016 5:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question about the COBOL compiler

Sorry, forgot the second bit. Not a list, but there is IBM's Compile Cafe 
forum: COBOL Cafe. A couple of the Enterprise COBOL developers drop in on it. 
It covers all IBM COBOLs, and gets used as a dumping-ground for someone 
desperate to ask a question about COBOL, and there's not much activity, but a 
good place for technical questions.

--
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: Question about the COBOL compiler

[Hardee, Chuck]

Compiler version: PP 5655-G53 IBM Enterprise COBOL for z/OS  3.4.1 V3R2

What I need is this:

INCLUDE OBJLIB(PROGRAMA)
ALIAS ENTRYB(NTRYPTB)
NAME PROGRMA(R)

Our compile panels generate the INCLUDE and NAME statements.
However, I need to have the ALIAS in there as well.

Our panels don't allow for additional statements like ALIAS and I don't want to 
dig into them and add the support for them.
I suspect few, if any, other than me in this special usage, will ever need 
something like this.

As to dynamic or static, not really relevant, but for the record, all of our 
programs are, by standard and policy, compiled with DYNAM enabled.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Thursday, August 04, 2016 5:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Question about the COBOL compiler

Somewhat (when you have a "batch compile - a compile of a load of separate 
programs in one hit). But not really, there was a bit of recent discussion of 
this here, a topic by Frank Swarbrick.

Which compiler are you using? You want to CALL dynamically, or statically?

--
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: Question about the COBOL compiler

[Hardee, Chuck]

Thanks Edward, I'll check it out.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Edward Finnell
Sent: Thursday, August 04, 2016 5:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Question about the COBOL compiler

It's self documenting and doesn't need a list!
 
I searched lsoft Catalist and was surprised it returned a null pointer.  
'bought the only thing I could find IBM wise was the COBOL forum in the COBOL  
Cafe over in Developer Works.
 
https://www.ibm.com/developerworks/community/forums/html/forum?id=-0
000---2281=topics 
 
 
In a message dated 8/4/2016 3:22:45 P.M. Central Daylight Time,  
chuck.har...@thermofisher.com writes:

While  you're reading this, do you know of an IBM (non-AS/400) COBOL list 
out  there?

--
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

Question about the COBOL compiler

[Hardee, Chuck]

Hello All,

Does anyone know if it is possible to cause the COBOL compiler to generate Link 
Edit/Binder parms during the compile process?
Needless to say, we have standard compile panels that do not allow for "extra" 
link instructions and I have a COBOL program that has an ENTRY statement and I 
need to have an ALIAS in the link process for this ENTRY.

While you're reading this, do you know of an IBM (non-AS/400) COBOL list out 
there?

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: OS ENQ from COBOL

[Hardee, Chuck]

While that would be an interesting way to invoke the code, I suspect there 
would be less chance of that being supported should something happen to me than 
an assembler language subroutine.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Victor Gil
Sent: Friday, July 22, 2016 10:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OS ENQ from COBOL

There is a weird way to embed subroutines in machine instructions right into 
Cobol code by:

a) defining them [fully assembled] as a WORKING-STORAGE literal
b) setting address of a PROCEDURE-POINTER to address of that literal
c) calling the PROCEDURE-POINTER

And no, I don't recommend you actually use this approach, unless really 
desperate.

-Victor-  


Hello Listers,

First off, does anyone know of an IBM COBOL related list? If so, could you 
point me in that direction.

Now, to my question.

I can code an assembler solution, or even a hybrid COBOL/Assembler solution, 
but what I would truly love would be a COBOL only solution.
My need is to be able to determine if a QNAME/RNAME combination is held by 
another address space in the system.
Stated another way, is there any way to use an "ENQ 
(QNAME,RNAME,S,SYSTEM),REQ=TEST" from a COBOL program using COBOL only 
procedural statements?

As I said, I can code an assembler program to issue the ENQ, but because I may 
not always be the one supporting the code, I need to keep it in a language most 
of our shop knows.

In another direction, is there an LE service routine that could issue the ENQ 
TEST?

Thanks to All,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

--
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: OS ENQ from COBOL

[Hardee, Chuck]

Yes, I found nothing in the Unix, LE or C/C++ services that perform an ENQ of 
any kind, be it for control or for testing availability.

I agree, the only real reason someone other than myself would need to do 
anything to the code is to reassemble it if the ENQ macro were to change. Since 
it would be single function, test if QName/RName is available or not, I would 
suspect the code wouldn't have to be changed, if ever.

I am just trying to do due diligence and make sure I'm not reinventing the 
wheel.

Thanks!

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Woodger
Sent: Thursday, July 21, 2016 11:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: OS ENQ from COBOL

There's nothing native in COBOL to do an what you want, and I'm not aware of 
anything in LE as a callable service.

Hybrid. Documentation. Probably the most they'll need is how to reassemble it. 
Unless a macro changes, why else would they ever need to touch 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: OS ENQ from COBOL

[Hardee, Chuck]

No, my requirement is batch.
The service executing in its own address space that I need to access issues an 
EXCLUSIVE ENQ for a determinable QName/RName when it is up and ready to receive 
requests. I need to know if it is up and ready to receive before issuing any 
requests to it.
This is all done in a batch address space, no CICS involved here.

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joseph W Gentile
Sent: Thursday, July 21, 2016 11:50 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: OS ENQ from COBOL

I don't know if you are running in a CICS environment but CICS has an EXEC 
CICS ENQ service. Perhaps you can invoke it (non-blocking) to figure out 
if the resource is held? Admittedly not the most straightforward 
approach... 
https://www.ibm.com/support/knowledgecenter/SSGMCP_5.2.0/com.ibm.cics.ts.applicationprogramming.doc/commands/dfhp4_enq.html

-Joe

Joe Gentile
z/OS GRS and RSM Development
(845)435-2184 (T/L 295-2184)
jwgen...@us.ibm.com


--
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: Kind of COND in a CLIST

[Hardee, Chuck]

Radoslaw,

I would put the commands into a CLIST (or REXX) and add IF logic to check the 
return code from each command and EXIT when it's not an acceptable value.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of R.S.
Sent: Thursday, July 21, 2016 8:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Kind of COND in a CLIST

I'm going to submit huge command list in a batch (IKJEFT01). The 
commands are unrelated (no loops, etc.) however I want to stop the 
script after command failure, that means RC<>0.

Example:
//STEP1   EXEC PGM=IKJEFT01
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  *,DLM=@@
/* command list */
RDEF class PROFILE1.** ...
RDEF class PROFILE2.** ...
RDEF class PROFILE3.** ...
...
PERMIT profile1.** ID(some grp) ACC(UPDATE)
PERMIT profile2.** ID(some grp) ACC(UPDATE)
PERMIT profile3.** ID(some grp) ACC(UPDATE)
...

Let's say second command fails (RDEF PROFILE2) so, script is aborted, 
RDEF PROFILE3 is not issued.

Any clue?

-- 
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.pl
Są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.2016 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.955.696 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

OS ENQ from COBOL

[Hardee, Chuck]

Hello Listers,

First off, does anyone know of an IBM COBOL related list? If so, could you 
point me in that direction.

Now, to my question.

I can code an assembler solution, or even a hybrid COBOL/Assembler solution, 
but what I would truly love would be a COBOL only solution.
My need is to be able to determine if a QNAME/RNAME combination is held by 
another address space in the system.
Stated another way, is there any way to use an "ENQ 
(QNAME,RNAME,S,SYSTEM),REQ=TEST" from a COBOL program using COBOL only 
procedural statements?

As I said, I can code an assembler program to issue the ENQ, but because I may 
not always be the one supporting the code, I need to keep it in a language most 
of our shop knows.

In another direction, is there an LE service routine that could issue the ENQ 
TEST?

Thanks to All,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: Simple assembler question

[Hardee, Chuck]

Hi Phil,

I would consider something like this:

LR  R15,R3  Copy low 32-bits to R15
SRLGR0,R3,32Copy upper 32-bits to R0

You may want to add an SR or XR for register 0 and 15 prior to the above two 
instructions if you want to make sure of the upper 32-bits of the target 
registers.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Phil Smith III
Sent: Thursday, June 23, 2016 5:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Simple assembler question

With all of the 273 new formats of LOAD, I assume this is hiding in there
somewhere:

 

I have a value in grande register 3. I need the high-order bits in 32-bit R0
and the low-order bits in 32-bit R15.

 

What's the simplest/fastest way to achieve this? I have no writable memory
available.

 

Thanks.

 

.phsiii (getting frustrated trying to read PofOp, though it's not the book's
fault!)

 


--
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

SMP/E question

[Hardee, Chuck]

Hello Everyone,

I am having an issue with doing a RESTORE/REJECT on some mods that were last 
applied with the SMP/e that came with z/OS 1.13.
I am now on z/OS 2.2 and this is the first RESTORE/REJECT I am trying to 
execute in order to reengineer a usermod.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: IPCS SYSTRACE command

[Hardee, Chuck]

Thanks Don.
I suspect I have ASID 4 in my dump since I can set the ASID of the abending 
address space and I can issue the SYSTRACE ALL (and other flavors) and I get 
results formatted.

I'll poke around in ASID 4 and see what I can glean.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Don Poitras
Sent: Friday, April 01, 2016 3:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS SYSTRACE command

In article 

 you wrote:
> Hello All,

> Happy April Fool's Day!

> On a more serious note, I have a dump which I can format out the system trace 
> table with the SYSTRACE IPCS verb (subcommand).
> What I would like to know, and can't seem to find, is where the raw data can 
> be found in the dump.

> Can anyone guide me in how I can access the system trace table in its raw 
> form.
> In other words, what known block points to another which points to another 
> and so on until I finally reach the system trace data.

> Thanks,
> Chuck

The trace buffers are actually in the TRACE address space (ASID 4),
so you'd need to capture that along with your program address space.
I've never seen any control blocks for that stuff though.

-- 
Don Poitras - SAS Development  -  SAS Institute Inc. - SAS Campus Drive
sas...@sas.com   (919) 531-5637Cary, NC 27513

--
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

IPCS SYSTRACE command

[Hardee, Chuck]

Hello All,

Happy April Fool's Day!

On a more serious note, I have a dump which I can format out the system trace 
table with the SYSTRACE IPCS verb (subcommand).
What I would like to know, and can't seem to find, is where the raw data can be 
found in the dump.

Can anyone guide me in how I can access the system trace table in its raw form.
In other words, what known block points to another which points to another and 
so on until I finally reach the system trace data.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: Dumb TSO Rexx question

[Hardee, Chuck]

Agreed, I do it the way Scott has indicated.
Works just fine.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Scott Ford
Sent: Monday, March 28, 2016 7:22 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Dumb TSO Rexx question

The way I do it is:

Caller:
.
.
.
call second parms


Scott

On Monday, March 28, 2016, Pinnacle  wrote:

> On 3/28/2016 7:02 PM, Phil Smith III wrote:
>
>> I have a TSO Rexx program; let's call it CALLER. I want to call another;
>> let's call it SECOND. This doesn't work:
>>
>>
>>
>> address tso 'EXEC SECOND'
>>
>>
>>
>> I can see that I can do a PARSE SOURCE and build the full library name,
>> e.g., 'EXEC SOME.LIBRARY(SECOND', but should I have to do that? Seems very
>> un-Rexx-ish.
>>
>>
>>
>>
> Phil,
>
> If you ALTLIB the library in your first exec, you should be able to
> address tso "%SECOND".  Your PARSE SOURCE solution could also work,
> depending upon how CALLER was invoked.
>
> Tom
>
> --
> 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: Tritus SPF

[Hardee, Chuck]

Congrats!
It's a sweet product.
Good luck on the floppy reader.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richard Pinion
Sent: Monday, February 22, 2016 10:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Tritus SPF

I just found a copy of Tritus SPF 1.2 or 2.0 for the PC. Some documents says 
1.2, while others say 2.0.  Anyway, it is two manuals, a reference card, 5 1/4
diskettes, and 3 1/2 diskette.  Now, I have to find a working 3 1/2 diskette 
reader!



_
Netscape.  Just the Net You Need.

--
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: Reading the CA-1 Tape Catalog

[Hardee, Chuck]

Yes, I know, that is EXACTLY why I want to read the CA-1 tape library.
I'm already getting the active cataloged tapes from the CSI call. I then use 
the VOLSER from those results to get more information from CA-1. What I'm 
looking for is how to read the CA-1 library and find all the tapes that match 
the GDG name I've been given. From there, I can get the information I need. 
I've read thru the CA-1 programming manual and, not being familiar with some of 
the terminology and concepts behind CA-1, things didn't quite gel with me. 
Since I posted my query this morning, I have had someone reply with information 
that has made some things come together with what I have read, but I now have 
other questions that I need to ask.

Thanks for the feedback Mike.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Friday, February 12, 2016 9:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Until the tape is overwritten the scratched tapes will still be in the database.

On Fri, Feb 12, 2016 at 5:17 AM, Hardee, Chuck
<chuck.har...@thermofisher.com> wrote:
> Hello Everyone,
>
> I have posted this to the IBM Mainframe and IBM Assembler lists.
>
> I was wondering if anyone has ever written a program to read the CA-1 Tape 
> Catalog for a generic name?
> In a nutshell, what I am wanting to do is look up in the catalog all entries 
> for a GDG base name.
>
> Currently my program issues a call to the IBM Catalog Search Interface (CSI) 
> program, IGGCSI00, passing the GDG name and I get back all entries that are 
> currently cataloged. However, if I go to CA-1's TSO Inquiry panel and put in 
> the GDG name modified to have a low level qualifier of "-" (CA-1's equivalent 
> of "*"), I get back 621 entries. Since the GDG is defined to have 150 
> entries, that's all I'll ever get, via MVS services. However, as can be seen, 
> there are more tapes available.
>
> I have read thru the CA-1 Tape Management Programming Guide, and there appear 
> to be numerous macros that can be used to access the catalog, but the 
> narratives for the macros leave something to be desired in the name of 
> clarity when one isn't a CA-1 expert. And, before you ask, yes, I have asked 
> CA-1 support for help but I am getting the run around from them. For whatever 
> reason, they just don't want to seem to help. It may be a level 1 protecting 
> level 2 situation, or it may just be they don't want to take the time to 
> educate the user community. Whatever the reason, I need to look for 
> alternative assistance.
>
> So, if anyone has a snippet or three of code to OPEN, READ and CLOSE the CA-1 
> catalog looking for a dataset name, I would appreciate it if you would be 
> willing to share.
>
> Thanks in advance,
> Chuck
>
>
> Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
> Senior Systems Engineer/Database Administration
> EAS Information Technology
>
> Thermo Fisher Scientific
> 300 Industry Drive | Pittsburgh, PA 15275
> Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
> chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  | 
> www.thermofisher.com
>
> WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of 
> this e-mail or the information herein by anyone other than the intended 
> recipient, or an employee or agent of a system responsible for delivering the 
> message to the intended recipient, is prohibited. If you are not the intended 
> recipient, please inform the sender and delete all copies.
>
>
> --
> 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: Reading the CA-1 Tape Catalog

[Hardee, Chuck]

Thanks Russell, I'll go re-read the documentation in the programming guide.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Russell Witt
Sent: Friday, February 12, 2016 8:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Chuck,

As Level-1 has indicated, you will have to read the entire TMC and do your
executed compare (length of the DSN computed up to the .GV00) on every
entry within the TMC. There are two ways to access the TMC (both documented
in the Programming Guide); one is a sequential access method and one is a
direct-read method that reads one specific record at a time. For performance
reasons, you will want to read the entire TMC of course in the sequential
access method. I know that other products read the TMC quite often (MXG of
course comes to mind) mining it for information. And there is nothing that
says you must use the CA 1 access methods (after all, the TMC is a simple
flat-file that any program using QSAM can read). The CA 1 macros for
sequential access will require an OPEN, a GET and a CLOSE. 

One nice reason to use the CA 1 macro's for the sequential access is that
the OPEN can specify if you want the active TMC used all the time (in which
case we will dynamically allocate it and a DD statement is NOT allowed),
optionally (in which case we will dynamically allocate the TMC if there is
no DD statement) or none of the time (in which case a DD statement is
required). So, if you only want to look at the active TMC you can eliminate
the DD statement from your JCL and simply have the CA 1 OPEN macro
dynamically allocate the ACTIVE TMC for you.

Russell Witt
CA 1

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Hardee, Chuck
Sent: Friday, February 12, 2016 5:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Reading the CA-1 Tape Catalog

Hello Everyone,

I have posted this to the IBM Mainframe and IBM Assembler lists.

I was wondering if anyone has ever written a program to read the CA-1 Tape
Catalog for a generic name?
In a nutshell, what I am wanting to do is look up in the catalog all entries
for a GDG base name.

Currently my program issues a call to the IBM Catalog Search Interface (CSI)
program, IGGCSI00, passing the GDG name and I get back all entries that are
currently cataloged. However, if I go to CA-1's TSO Inquiry panel and put in
the GDG name modified to have a low level qualifier of "-" (CA-1's
equivalent of "*"), I get back 621 entries. Since the GDG is defined to have
150 entries, that's all I'll ever get, via MVS services. However, as can be
seen, there are more tapes available.

I have read thru the CA-1 Tape Management Programming Guide, and there
appear to be numerous macros that can be used to access the catalog, but the
narratives for the macros leave something to be desired in the name of
clarity when one isn't a CA-1 expert. And, before you ask, yes, I have asked
CA-1 support for help but I am getting the run around from them. For
whatever reason, they just don't want to seem to help. It may be a level 1
protecting level 2 situation, or it may just be they don't want to take the
time to educate the user community. Whatever the reason, I need to look for
alternative assistance.

So, if anyone has a snippet or three of code to OPEN, READ and CLOSE the
CA-1 catalog looking for a dataset name, I would appreciate it if you would
be willing to share.

Thanks in advance,
Chuck


Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile
+1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  |
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of
this e-mail or the information herein by anyone other than the intended
recipient, or an employee or agent of a system responsible for delivering
the message to the intended recipient, is prohibited. If you are not the
intended recipient, please inform 

Re: Reading the CA-1 Tape Catalog

[Hardee, Chuck]

Thanks for the idea Len, but for what I'm doing another vendor level is not 
what I want.
I am already calling IBM's CSI interface for datasets in the catalog and CA-1 
to look up volsers, now I need to gather other information from within my 
program to augment processing.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Rugen, Len
Sent: Friday, February 12, 2016 9:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Here's the obligatory vendor plug, see mxg.com, at least if you have the SAS 
software available.  I used it to consolidate SMF, RACF, CA-1 and many other 
information for research and reporting.  

At least before we killed the mainframe and went back to reproducing the 
problems from the 1980's in servers  


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Friday, February 12, 2016 7:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Thanks Russell, I'll go re-read the documentation in the programming guide.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Russell Witt
Sent: Friday, February 12, 2016 8:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Chuck,

As Level-1 has indicated, you will have to read the entire TMC and do your 
executed compare (length of the DSN computed up to the .GV00) on every 
entry within the TMC. There are two ways to access the TMC (both documented in 
the Programming Guide); one is a sequential access method and one is a 
direct-read method that reads one specific record at a time. For performance 
reasons, you will want to read the entire TMC of course in the sequential 
access method. I know that other products read the TMC quite often (MXG of 
course comes to mind) mining it for information. And there is nothing that says 
you must use the CA 1 access methods (after all, the TMC is a simple flat-file 
that any program using QSAM can read). The CA 1 macros for sequential access 
will require an OPEN, a GET and a CLOSE. 

One nice reason to use the CA 1 macro's for the sequential access is that the 
OPEN can specify if you want the active TMC used all the time (in which case we 
will dynamically allocate it and a DD statement is NOT allowed), optionally (in 
which case we will dynamically allocate the TMC if there is no DD statement) or 
none of the time (in which case a DD statement is required). So, if you only 
want to look at the active TMC you can eliminate the DD statement from your JCL 
and simply have the CA 1 OPEN macro dynamically allocate the ACTIVE TMC for you.

Russell Witt
CA 1

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Friday, February 12, 2016 5:17 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Reading the CA-1 Tape Catalog

Hello Everyone,

I have posted this to the IBM Mainframe and IBM Assembler lists.

I was wondering if anyone has ever written a program to read the CA-1 Tape 
Catalog for a generic name?
In a nutshell, what I am wanting to do is look up in the catalog all entries 
for a GDG base name.

Currently my program issues a call to the IBM Catalog Search Interface (CSI) 
program, IGGCSI00, passing the GDG name and I get back all entries that are 
currently cataloged. However, if I go to CA-1's TSO Inquiry panel and put in 
the GDG name modified to have a low level qualifier of "-" (CA-1's equivalent 
of "*"), I get back 621 en

Re: Reading the CA-1 Tape Catalog

[Hardee, Chuck]

Thanks Ron,
I am familiar with COBOL, but the program to which I want to add this 
processing to is written in assembler.

C-


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of McCabe, Ron
Sent: Friday, February 12, 2016 12:26 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Chuck,

If you're familiar with COBOL you can write a COBOL program that will do what 
you want.  We wrote a couple of COBOL programs that read the TMS dataset and 
provides reports for DR purposes.

Thanks,
Ron McCabe
Mutual of Enumclaw

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Friday, February 12, 2016 6:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Yes, I know, that is EXACTLY why I want to read the CA-1 tape library.
I'm already getting the active cataloged tapes from the CSI call. I then use 
the VOLSER from those results to get more information from CA-1. What I'm 
looking for is how to read the CA-1 library and find all the tapes that match 
the GDG name I've been given. From there, I can get the information I need. 
I've read thru the CA-1 programming manual and, not being familiar with some of 
the terminology and concepts behind CA-1, things didn't quite gel with me. 
Since I posted my query this morning, I have had someone reply with information 
that has made some things come together with what I have read, but I now have 
other questions that I need to ask.

Thanks for the feedback Mike.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Friday, February 12, 2016 9:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reading the CA-1 Tape Catalog

Until the tape is overwritten the scratched tapes will still be in the database.

On Fri, Feb 12, 2016 at 5:17 AM, Hardee, Chuck <chuck.har...@thermofisher.com> 
wrote:
> Hello Everyone,
>
> I have posted this to the IBM Mainframe and IBM Assembler lists.
>
> I was wondering if anyone has ever written a program to read the CA-1 Tape 
> Catalog for a generic name?
> In a nutshell, what I am wanting to do is look up in the catalog all entries 
> for a GDG base name.
>
> Currently my program issues a call to the IBM Catalog Search Interface (CSI) 
> program, IGGCSI00, passing the GDG name and I get back all entries that are 
> currently cataloged. However, if I go to CA-1's TSO Inquiry panel and put in 
> the GDG name modified to have a low level qualifier of "-" (CA-1's equivalent 
> of "*"), I get back 621 entries. Since the GDG is defined to have 150 
> entries, that's all I'll ever get, via MVS services. However, as can be seen, 
> there are more tapes available.
>
> I have read thru the CA-1 Tape Management Programming Guide, and there appear 
> to be numerous macros that can be used to access the catalog, but the 
> narratives for the macros leave something to be desired in the name of 
> clarity when one isn't a CA-1 expert. And, before you ask, yes, I have asked 
> CA-1 support for help but I am getting the run around from them. For whatever 
> reason, they just don't want to seem to help. It may be a level 1 protecting 
> level 2 situation, or it may just be they don't want to take the time to 
> educate the user community. Whatever the reason, I need to look for 
> alternative assistance.
>
> So, if anyone has a snippet or three of code to OPEN, READ and CLOSE the CA-

Re: Where is SET allowed in JCL?

[Hardee, Chuck]

The reason is that the Converter/Interpreter is expecting data as a result of 
the "//DD2 DD *".
It found none so it is now looking for a new "starting" JCL statement.
It found one, the "// SET" statement. 
After processing the "// SET" statement it again looks for a new "starting" 
statement.
It didn't find one, at least not syntactically correct. It recognized the next 
statement "//  DD " as a DD statement, but since the previous DD had been 
terminated by the "// SET", the JCL rules call for the first DD in a 
concatenation (even a concatenation of 1 DD statement) to have a label. This DD 
does not have a label so it is assumed to be a continuation, but there is no 
logically "active" DD in effect so, you get the "misplaced DD statement" error.

Make sense?

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of R.S.
Sent: Wednesday, December 23, 2015 7:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where is SET allowed in JCL?

W dniu 2015-12-23 o 04:41, Paul Gilmartin pisze:
> Sometimes within a DD concatenation; sometimes not.  For example:
>
>  3 //STEP  EXEC  PGM=IEFBR14
>//*
>  4 //DD1DD   *
>  5 //   DD   PATH='/dev/./null'
>  6 //  SET V1=WOMBAT
>  7 //   DD   PATH='/dev/./null'
>//*
>  8 //DD2DD   *
>  9 //  SET V2=WOMBAT
> 10 //   DD   PATH='/dev/./null'
> 11 //
>   STMT NO. MESSAGE
> 10 IEFC019I MISPLACED DD STATEMENT
>
> Why does it report IEFC019I at statement 10, but not at statement 7?
>
> I had grown accustomed to placing SET in complex concatenations, near
> a reference for clarity.  Today was the first time I tried it after DD *.
>
> Should I submit an RCF requesting clarification or an SR for inconsistent
> behavior?
>
> I hate JCL!
Just curious: why do you need to insert SET into DD concatenation?

Regards
-- 
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.pl
Są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.2015 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.840.228 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: SMF/RMF Reporting question

[Hardee, Chuck]

I have access and knowledge of SysView and SDSF.
What our system programmers have I do not know.
I'm thinking no, because their first attempt at giving me what I need was to 
use SysView.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Friday, November 20, 2015 8:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMF/RMF Reporting question

Do you have any tools like SAS/MICS or SAS/MXG?
Any monitoring tools like Tivoli Omegamon, MainView?

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Hardee, Chuck
> Sent: Friday, November 20, 2015 5:23 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMF/RMF Reporting question
> 
> Hello Everyone,
> 
> I am trying to find, from a historical perspective, that is to say, after an
event has
> occurred, what units of work were using how much of the available CPU.
> Is there an SMF and/or RMF report that allows on to ask,
> 
> "During the interval from hh:mm to hh:mm on a particular day, in increments of
y
> units, what was the consumption of CPU on a unit of work basis?"
> 
> Another way to put it is, I am looking for a report that shows CPU consumption
in a
> context similar to the SDSF DA screen as one sits at their terminal and
presses the
> enter key.
> 
> We are trying to find out who, during a specific interval of the day, was
consuming
> the greatest amount of CPU to the ultimate effect that it essentially stopped
one of
> our database regions from executing and thereby causing it to think some of
its
> subtasks had gone into a runaway CPU condition so it aborted them as a
preemptive
> action against bad coding. We know that the code is good, it's been literally
running
> for years with no changes and, until the last couple of weeks, has had not a
single
> hiccup. Over the last couple of weeks, for no reason we can identify as of
yet, the
> code has randomly been aborted by the database software in which it runs, as a
> runaway task.
> 
> The theory is that the runaway check process is actually reporting a false
condition
> since it is based on wall clock time (this is vendor code, not ours and I'm
not going to
> debate it one way or another). What the vendor theorizes is that another task
in the
> system, yet to be identified, has stolen the CPU away from the database and
held on
> to it long enough such that when the database finally regained access to the
CPU,
> the runaway interval had been exceeded by the internal task executing our code
so it
> was aborted for a potential loop within the code.
> 
> The database vendor has suggested looking for this kind of information in
order to
> confirm or deny that the database had the CPU it needed or if another task
within
> the LPAR had control. If we find that the database had the CPU, then the
vendor has
> more analysis work to do on the dump with a more powerful magnifying glass, or
we
> have to turn our sights on someone else, either ourselves or, possibly,
another
> vendor for another product.
> 
> Thanks for any thoughts you may have on this.
> Chuck
> 
> 
> Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
> Senior Systems Engineer/Database Administration EAS Information Technology
> 
> Thermo Fisher Scientific
> 300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1
(412)
> 877-2809 | FAX: +1 (412) 490-9230
> chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  |
> www.thermofisher.com
> 
> WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this
> e-mail or the information herein by anyone other than the intended recipient,
or an
> employee or agent of a system responsible for delivering the message to the
> intended recipient, is prohibited. If you are not the intended recipient,
please inform
> the sender and delete all copies.
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.e

Re: SMF/RMF Reporting question

[Hardee, Chuck]

Thanks Bob. I'll see if my system programmers know how to run the report.



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bob Rutledge
Sent: Friday, November 20, 2015 9:03 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMF/RMF Reporting question

IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 
11/20/2015 07:22:44 AM:

> From: "Hardee, Chuck" <chuck.har...@thermofisher.com>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/20/2015 07:23 AM
> Subject: SMF/RMF Reporting question
> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
> 
> Hello Everyone,
> 
> I am trying to find, from a historical perspective, that is to say, 
> after an event has occurred, what units of work were using how much 
> of the available CPU.
> Is there an SMF and/or RMF report that allows on to ask,
> 
> "During the interval from hh:mm to hh:mm on a particular day, in 
> increments of y units, what was the consumption of CPU on a unit of 
> work basis?"
> 
> Another way to put it is, I am looking for a report that shows CPU 
> consumption in a context similar to the SDSF DA screen as one sits 
> at their terminal and presses the enter key.

Within RMF/SMF, the only thing I can think of is the RMF Monitor III 
Processor Usage report.

Bob

--
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: SMF/RMF Reporting question

[Hardee, Chuck]

I will have to look into this.
Thanks!

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Friday, November 20, 2015 9:00 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMF/RMF Reporting question

And if you have not set this up, the RMF Spread Sheet Reporter might be helpful

http://www-03.ibm.com/support/techdocs/atsmastr.nsf/WebIndex/TD106241

This recorded demonstration show how to install and setup the RMF Spreadsheet
Reporter and how to run the IO Queueing report to obtain performance information
related to Hyper PAV usage on the DS8000

http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.erbb
200/rpp.htm
The RMFT Spreadsheet Reporter is the powerful workstation solution for graphical
presentation of RMF Postprocessor data. Use it to convert your RMF data to
spreadsheet format and generate representative charts for all performance
relevant areas.

The RMF Spreadsheet Reporter offers the following features:

ease of use - manage the related resources by means of an Explorer-like GUI
fast path to graphical presentation - prepare the SMF data in one single
step
batch mode - generate the input files for the spreadsheets without any GUI
interaction

AFAIK - No charge item, downloads RMF reports to the PC to run under a Java App

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Lizette Koehler
> Sent: Friday, November 20, 2015 6:51 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SMF/RMF Reporting question
> 
> Do you have any tools like SAS/MICS or SAS/MXG?
> Any monitoring tools like Tivoli Omegamon, MainView?
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Hardee, Chuck
> > Sent: Friday, November 20, 2015 5:23 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: SMF/RMF Reporting question
> >
> > Hello Everyone,
> >
> > I am trying to find, from a historical perspective, that is to say,
> > after an
> event has
> > occurred, what units of work were using how much of the available CPU.
> > Is there an SMF and/or RMF report that allows on to ask,
> >
> > "During the interval from hh:mm to hh:mm on a particular day, in
> > increments of
> y
> > units, what was the consumption of CPU on a unit of work basis?"
> >
> > Another way to put it is, I am looking for a report that shows CPU
> > consumption
> in a
> > context similar to the SDSF DA screen as one sits at their terminal
> > and
> presses the
> > enter key.
> >
> > We are trying to find out who, during a specific interval of the day,
> > was
> consuming
> > the greatest amount of CPU to the ultimate effect that it essentially
> > stopped
> one of
> > our database regions from executing and thereby causing it to think
> > some of
> its
> > subtasks had gone into a runaway CPU condition so it aborted them as a
> preemptive
> > action against bad coding. We know that the code is good, it's been
> > literally
> running
> > for years with no changes and, until the last couple of weeks, has had
> > not a
> single
> > hiccup. Over the last couple of weeks, for no reason we can identify
> > as of
> yet, the
> > code has randomly been aborted by the database software in which it
> > runs, as a runaway task.
> >
> > The theory is that the runaway check process is actually reporting a
> > false
> condition
> > since it is based on wall clock time (this is vendor code, not ours
> > and I'm
> not going to
> > debate it one way or another). What the vendor theorizes is that
> > another task
> in the
> > system, yet to be identified, has stolen the CPU away from the
> > database and
> held on
> > to it long enough such that when the database finally regained access
> > to the
> CPU,
> > the runaway interval had been exceeded by the interna

SMF/RMF Reporting question

[Hardee, Chuck]

Hello Everyone,

I am trying to find, from a historical perspective, that is to say, after an 
event has occurred, what units of work were using how much of the available CPU.
Is there an SMF and/or RMF report that allows on to ask,

"During the interval from hh:mm to hh:mm on a particular day, in increments of 
y units, what was the consumption of CPU on a unit of work basis?"

Another way to put it is, I am looking for a report that shows CPU consumption 
in a context similar to the SDSF DA screen as one sits at their terminal and 
presses the enter key.

We are trying to find out who, during a specific interval of the day, was 
consuming the greatest amount of CPU to the ultimate effect that it essentially 
stopped one of our database regions from executing and thereby causing it to 
think some of its subtasks had gone into a runaway CPU condition so it aborted 
them as a preemptive action against bad coding. We know that the code is good, 
it's been literally running for years with no changes and, until the last 
couple of weeks, has had not a single hiccup. Over the last couple of weeks, 
for no reason we can identify as of yet, the code has randomly been aborted by 
the database software in which it runs, as a runaway task.

The theory is that the runaway check process is actually reporting a false 
condition since it is based on wall clock time (this is vendor code, not ours 
and I'm not going to debate it one way or another). What the vendor theorizes 
is that another task in the system, yet to be identified, has stolen the CPU 
away from the database and held on to it long enough such that when the 
database finally regained access to the CPU, the runaway interval had been 
exceeded by the internal task executing our code so it was aborted for a 
potential loop within the code.

The database vendor has suggested looking for this kind of information in order 
to confirm or deny that the database had the CPU it needed or if another task 
within the LPAR had control. If we find that the database had the CPU, then the 
vendor has more analysis work to do on the dump with a more powerful magnifying 
glass, or we have to turn our sights on someone else, either ourselves or, 
possibly, another vendor for another product.

Thanks for any thoughts you may have on this.
Chuck


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: REXX-question

[Hardee, Chuck]

Leopold,

This is purely a guess, but the last line of the prompt states: 

INMR909A You may enter DSNAME, SPACE, UNIT, VOL, OLD/NEW, or 
RESTORE/COPY/DELETE/END

You supplied a DATASET() parameter, but I don't see a RESTORE, COPY or DELETE 
prior to the END.
Try adding:

queue "RESTORE"

Just before the queue of the "END" command.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Leopold Strauss
Sent: Thursday, November 19, 2015 6:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: REXX-question

Hi, all

I simply wanted to automize the receiving of a lot of XMIT-files in 
zOS-unix-shell ( not TSO)

Last but not least my problem could be broken down to following 
terminal-input-problem with the RECEIVE-command:

rexx-script:

parse arg indsn outdsn

address tso "PROFILE PROMPT"
queue "DATASET('"outdsn"')"
queue "END"
address tso "RECEIVE INDATASET('"indsn"')"

Result:

MV21:/u/leoplds$ receive.sh 'LEOPLDS.TEST.XMIT' 'LEOPLDS.TEST.TEST'
INMR901I Dataset SYSC.DOCEXEC.V717.LOADLIB from CHR9255 on ESJES2
INMR154I The incoming data set is a 'PROGRAM LIBRARY'.
INMR906A Enter restore parameters or 'DELETE' or 'END' +
INMR908A The input file attributes are: DSORG=PARTITIONED, RECFM=U, 
BLKSIZE=32760, LRECL=32756, File size=X'0005C3EE'K bytes +
INMR909A You may enter DSNAME, SPACE, UNIT, VOL, OLD/NEW, or 
RESTORE/COPY/DELETE/END
INMR800I The RECEIVE command failed. The PUTGET service routine issued 
return code 16.

I googled a lot, read manuals, but I did not find any working sample, 
which I could use.

appreciating all hints and br

-- 
Mit freundlichen Gruessen / Kind Regards,
Leopold Strauss, Team DEV-zOS, T: +43-2236-27551-331

--
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: RE-IPL for the Daylight to Standard time conversion?

[Hardee, Chuck]

As of IDMS Version 18, the journal and log files both use UTC and no longer use 
local time.
This has been around for a couple of years now.
You should find out what release of IDMS they are on and push them to version 
18 or later.
In fact, I would suggest going to Version 19 at this point.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Robert A. Rosenberg
Sent: Tuesday, October 27, 2015 11:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: RE-IPL for the Daylight to Standard time conversion?

At 14:12 + on 10/27/2015, Blake, Daniel J [CTR] wrote about Re: 
RE-IPL for the Daylight to Standard time conversion?:

>One site was very concerned about overlapping timestamps in IDMS 
>impacting forward recovery, even though I never saw a need for an 
>actual forward recovery situation at that site and CA well 
>documented a work-around.

If true then the IDMS application is broken. There is IMO no valid 
reason why the audit records are using local time not UTC. So long as 
it uses UTC the only exposure is if the CPU clock is mis-set to local 
time not UTC.

--
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: [Bulk] Re: [IBM-MAIN] File Placement Utility

[Hardee, Chuck]

Have you ever heard of inheritance?
When one steps into a new shop, 9 times out of 10, one inherits decisions made 
by others.
Along with that inheritance comes the ever faithful reply, when asked, "Not 
sure, it's just always been that way".
When one asks the next question, "Who made the decision", it's responded with 
"your predecessor" or "Not sure, they're long gone".

Bottom line, I have no control in the use, or lack thereof, of SMS for these 
files.

The rules are, not SMS managed, 1500+ files, 70 3390 mod 3s, emulated DASD, no 
control on placement for performance, balance the allocations across the packs 
with respect to file sizes, DASD sizes and quantity.

As, I believe it was Paul Gilmartin, has been stated, this is the (unbounded) 
knapsack problem.
And, as Lizette stated, these DASD being emulated on a storage array, I have no 
control on the placement of the files for performance.

Oh, give me the days of the IBM washing machines in the data center!
(well, maybe not)

However, the use of ADRDSSU may be an option.
I will have to go thru the manual and see what it says can be done.
I guess I have some night time reading ahead of me. Oh for a good bed time 
story :)

Thanks to all who have replied, you have given me a feast of information that I 
now must absorb.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of R.S.
Sent: Monday, October 12, 2015 6:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [Bulk] Re: [IBM-MAIN] File Placement Utility

W dniu 2015-10-12 o 06:06, Chris Hoelscher pisze:
> I think the OP stated that these volumes were NOT SMS managed and never would 
> be
(I couldn't resist)
Why?
What is the rationale behind?

The issue remains me medicine case:
- Those pills will help you for your problem.
- How can I be cured without using those pills?

-- 
Radoslaw Skorupka
Lodz, Poland






--
Tre tej wiadomoci moe zawiera informacje prawnie chronione Banku 
przeznaczone wycznie do uytku subowego adresata. Odbiorc moe by jedynie 
jej adresat z wyczeniem dostpu osób trzecich. Jeeli nie jeste adresatem 
niniejszej wiadomoci lub pracownikiem upowanionym do jej przekazania 
adresatowi, informujemy, e jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne dziaanie o podobnym charakterze jest prawnie zabronione i moe by 
karalne. Jeeli otrzymae t wiadomo omykowo, prosimy niezwocznie 
zawiadomi nadawc wysyajc odpowied oraz trwale usun t wiadomo 
wczajc 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.pl
Sd Rejonowy dla m. st. Warszawy XII Wydzia Gospodarczy Krajowego Rejestru 
Sdowego, nr rejestru przedsibiorców KRS 025237, NIP: 526-021-50-88. 
Wedug stanu na dzie 01.01.2015 r. kapita zakadowy mBanku S.A. (w caoci 
wpacony) wynosi 168.840.228 zotych.


--
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: File Placement Utility

[Hardee, Chuck]

Ron,

By balanced I mean an even spread across the volumes.

Our DASD farm is built from SAN type storage and cached so I/O performance, 
right now, is not a major concern.
It may be down the road, but not now.

In addition, the process using these files has its own caching mechanism in 
place so all I am looking for is some tool to help me place the files in a 
somewhat, allocation based, balanced order.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron Hawkins
Sent: Saturday, October 10, 2015 4:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: File Placement Utility

Chuck,

I'm a performance guy, so when you say "balance" I immediately think of IO
activity. I'm sure you mean something else.

Do you mean balanced in terms of space, number of datasets, or do you simply
need them spread randomly across "up to" 70 volumes.

Ron

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Hardee, Chuck
Sent: Friday, October 9, 2015 5:31 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [IBM-MAIN] File Placement Utility

Thanks all for your responses.

While some of you offered some good ideas on how to handle the problem, none
of them presented was an automated process, which is what I was hoping for.
Some of you asked questions about types of files and cross LPAR conditions
and I will not go into those details.
Suffice it to say, I have 1500+ files of varying sizes and I need to balance
their placement across 70 volumes.

If no one knows of a tool out there that can do this, then you have all
fulfilled my need.
I will have to, I guess, invent the wheel.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile
+1 (412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com  |
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of
this e-mail or the information herein by anyone other than the intended
recipient, or an employee or agent of a system responsible for delivering
the message to the intended recipient, is prohibited. If you are not the
intended recipient, please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Hardee, Chuck H.
Sent: Thursday, October 08, 2015 9:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: File Placement Utility

I have a need to juggle the locations of 1500+ files on 70 volumes.
These packs are not SMS managed and will never be.
There will be 4 sets of these files across 4 sets of 70 DASD volumes.

Does anyone know of a utility, REXX, EXCEL, executable program, etc, that
would let me feed in the file names and sizes, dasd characteristics, etc,
and produce a list of what files should be allocated on what packs?

The file sizes vary file to file, but they do not expand or contract once
allocated and won't change until the next time the files need to be
adjusted, which won't hopefully, change for a while.

Thanks,
Chuck

Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile
+1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  |
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of
this e-mail or the information herein by anyone other than the intended
recipient, or an employee or agent of a system responsible for delivering
the message to the intended recipient, is prohibited. If you are not the
intended recipient, please inform the sender and delete all copies.


--
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 e

Re: File Placement Utility

[Hardee, Chuck]

Emulated 3390 mod 3s

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ken Hume IBM
Sent: Saturday, October 10, 2015 5:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: File Placement Utility

What kind of DASD are you putting these files on?


**

Text of the 4th Ammendment to the U.S. Constitution.

The right of the people to be secure in their persons, houses, papers, and 
effects, against unreasonable searches and seizures, shall not be violated, 
and no Warrants shall issue, but upon probable cause, supported by Oath or 
affirmation, and particularly describing the place to be searched, and the 
persons or things to be seized.
-Original Message- 
From: Hardee, Chuck
Sent: Friday, October 09, 2015 6:30 PM Newsgroups: bit.listserv.ibm-main
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: File Placement Utility

Thanks all for your responses.

While some of you offered some good ideas on how to handle the problem, none 
of them presented was an automated process, which is what I was hoping for.
Some of you asked questions about types of files and cross LPAR conditions 
and I will not go into those details.
Suffice it to say, I have 1500+ files of varying sizes and I need to balance 
their placement across 70 volumes.

If no one knows of a tool out there that can do this, then you have all 
fulfilled my need.
I will have to, I guess, invent the wheel.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of 
this e-mail or the information herein by anyone other than the intended 
recipient, or an employee or agent of a system responsible for delivering 
the message to the intended recipient, is prohibited. If you are not the 
intended recipient, please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
Behalf Of Hardee, Chuck H.
Sent: Thursday, October 08, 2015 9:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: File Placement Utility

I have a need to juggle the locations of 1500+ files on 70 volumes.
These packs are not SMS managed and will never be.
There will be 4 sets of these files across 4 sets of 70 DASD volumes.

Does anyone know of a utility, REXX, EXCEL, executable program, etc, that 
would let me feed in the file names and sizes, dasd characteristics, etc, 
and produce a list of what files should be allocated on what packs?

The file sizes vary file to file, but they do not expand or contract once 
allocated and won't change until the next time the files need to be 
adjusted, which won't hopefully, change for a while.

Thanks,
Chuck

Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of 
this e-mail or the information herein by anyone other than the intended 
recipient, or an employee or agent of a system responsible for delivering 
the message to the intended recipient, is prohibited. If you are not the 
intended recipient, please inform the sender and delete all copies.


--
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 em

Re: File Placement Utility

[Hardee, Chuck]

Thanks all for your responses.

While some of you offered some good ideas on how to handle the problem, none of 
them presented was an automated process, which is what I was hoping for.
Some of you asked questions about types of files and cross LPAR conditions and 
I will not go into those details.
Suffice it to say, I have 1500+ files of varying sizes and I need to balance 
their placement across 70 volumes.

If no one knows of a tool out there that can do this, then you have all 
fulfilled my need.
I will have to, I guess, invent the wheel.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck H.
Sent: Thursday, October 08, 2015 9:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: File Placement Utility

I have a need to juggle the locations of 1500+ files on 70 volumes.
These packs are not SMS managed and will never be.
There will be 4 sets of these files across 4 sets of 70 DASD volumes.

Does anyone know of a utility, REXX, EXCEL, executable program, etc, that would 
let me feed in the file names and sizes, dasd characteristics, etc, and produce 
a list of what files should be allocated on what packs?

The file sizes vary file to file, but they do not expand or contract once 
allocated and won't change until the next time the files need to be adjusted, 
which won't hopefully, change for a while.

Thanks,
Chuck

Charles (Chuck) Hardee<mailto:chuck.har...@thermofisher.com>
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com<mailto:chuck.har...@thermofisher.com>  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


--
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

File Placement Utility

[Hardee, Chuck H.]

I have a need to juggle the locations of 1500+ files on 70 volumes.
These packs are not SMS managed and will never be.
There will be 4 sets of these files across 4 sets of 70 DASD volumes.

Does anyone know of a utility, REXX, EXCEL, executable program, etc, that would 
let me feed in the file names and sizes, dasd characteristics, etc, and produce 
a list of what files should be allocated on what packs?

The file sizes vary file to file, but they do not expand or contract once 
allocated and won't change until the next time the files need to be adjusted, 
which won't hopefully, change for a while.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: Way to change a PROC to add a concatenation to existing DD?

[Hardee, Chuck]

Why not simply code:

//EXECPROD EXEC JVMPRC80
//STDINDD
// DD DISP=SHR,DSN=next.dsn.name

Then, in your PROC code an assignment to STDIN and point it at a dataset.
That dataset would be either empty, or filled as required, with "basic" or 
"common" input that most everything needs, or would have no effect on the 
processing.

The only question I don't know the answer to is what would happen if you do 
this:

//EXECPROD EXEC JVMPRC80
//STDINDD
// DD *
Inline statement 1
Inline statement 2
.
.
.

Would something like this work???

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kirk Wolf
Sent: Tuesday, September 29, 2015 4:51 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Way to change a PROC to add a concatenation to existing DD?

Consider an existing PROC:

//JVMPRC80 PROC JAVACLS=, < Fully Qfied Java class..RQD
// ARGS=, < Args to Java class
// LIBRARY=’.JZOS.LOADLIB’, < STEPLIB FOR JVMLDM module
// VERSION=’80’, < JVMLDM version: 80
// LOGLVL=’’, < Debug LVL: +I(info) +T(trc)
// REGSIZE=’0M’, < EXECUTION REGION SIZE
// LEPARM=’’
//JAVAJVM EXEC PGM=JVMLDM,REGION=,
// PARM=’/  ’
//STEPLIB DD DSN=,DISP=SHR
//SYSPRINT DD SYSOUT=* < System stdout
//SYSOUT DD SYSOUT=* < System stderr
//STDOUT DD SYSOUT=* < Java System.out
//STDERR DD SYSOUT=* < Java System.err
//CEEDUMP DD SYSOUT=*
//ABNLIGNR DD DUMMY
//*
//*The following DDs can/should be present in the calling JCL
//*
//*STDIN DD < OPTIONAL - Java System.in
//*STDENV DD < REQUIRED - JVM Environment script
//*MAINARGS DD < OPTIONAL - Alt. method to supply args
// PEND


STDENV is a DD that is opened by the program (JVMLDM80).

An installation would like to be able to automatically add control
statements to the end of this DD, without changing the JCL.

So, instead we would want:

//STDENV  DD DDNAME=MYENV
// DD DISP=SHR,DSN=INST.ADD.JAVA.STDENV

but this would require that all JCL that used this PROC would need to
change their DD:STDENV to DD:MYENV.

Here's my question:  is there a way to change the PROC so that the JCL that
uses it does not need to be changed?   Its even OK to front-end the
JVMLDM80 program with an installation-written program that does something
and then invokes JVMLDM80.Its not possible (or desirable) to change
JVMLDM80.

Maybe a front-end program that uses SVC99 to reallocate STDENV as the
concatenation?   I'm not sure if this can be done without freeing the
existing STDENV DD.   I guess that the front-end program could create a
temporary dataset and then copy the existing STDENV DD to it and then free
STDENV and then reallocate the concatenation

Thanks in advance for any better suggestions.

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

--
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: IPCS BLS18028I message suppression

[Hardee, Chuck]

I executed the REXX from IPCS option 6.
The REXX was prefixed with a "%".


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Thomas Conley
Sent: Saturday, September 19, 2015 3:39 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS BLS18028I message suppression

On 9/19/2015 3:26 PM, Hardee, Chuck wrote:
> Thanks Jim, your explanation was helpful, believe it or not.
> It bears out with what I am seeing.
> I really appreciate your passing on your insights and discoveries in the code 
> when we ask questions.
>
> Chuck
>
> Charles (Chuck) Hardee
> Senior Systems Engineer/Database Administration
> EAS Information Technology
>
> Thermo Fisher Scientific
> 300 Industry Drive | Pittsburgh, PA 15275
> Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
> chuck.har...@thermofisher.com  | www.thermofisher.com
>
> WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of 
> this e-mail or the information herein by anyone other than the intended 
> recipient, or an employee or agent of a system responsible for delivering the 
> message to the intended recipient, is prohibited. If you are not the intended 
> recipient, please inform the sender and delete all copies.
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Jim Mulder
> Sent: Saturday, September 19, 2015 1:26 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IPCS BLS18028I message suppression
>
>> Interesting you should suggest that.
>> I did a batch IPCS run with my REXX and sure enough, in TSO/Batch
>> the BLS18028I is captured by OUTTRAP and my REXX displays it as
> expected.
>>
>> Question now is, why isn't it captured with the REXX is executed
>> interactively?
>>
>> So, if IPCS is executed in interactive TSO, the BLS18028I messages
>> is issued to the "print" file that is displayed upon the terminal.
>> If, however, the same REXX is executed in TSO/Batch, the message is
>> captured by OUTTRAP and placed in the stem that was passed in the
>> first OUTTRAP call. It does not appear in the print file nor on the
>> output associated with SYSTSPRT.
>>
>> Interesting.
>>
>> Since the primary use of this REXX will be batch as opposed to
>> interactive, I can live with it I guess.
>> Just wish it would work the same regardless of environment.
>>
>> C-
>>
>> Charles (Chuck) Hardee
>> Senior Systems Engineer/Database Administration
>> EAS Information Technology
>>
>

When you executed the Rexx exec interactively, did you use tso exec, or 
ipcs as the prefix to the command?  I'm thinking IPCS rexx exec might 
give you a different result.

Regards,
Tom Conley

--
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: IPCS BLS18028I message suppression

[Hardee, Chuck]

Thanks Jim, your explanation was helpful, believe it or not.
It bears out with what I am seeing.
I really appreciate your passing on your insights and discoveries in the code 
when we ask questions.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jim Mulder
Sent: Saturday, September 19, 2015 1:26 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IPCS BLS18028I message suppression

> Interesting you should suggest that.
> I did a batch IPCS run with my REXX and sure enough, in TSO/Batch 
> the BLS18028I is captured by OUTTRAP and my REXX displays it as 
expected.
> 
> Question now is, why isn't it captured with the REXX is executed 
> interactively?
> 
> So, if IPCS is executed in interactive TSO, the BLS18028I messages 
> is issued to the "print" file that is displayed upon the terminal.
> If, however, the same REXX is executed in TSO/Batch, the message is 
> captured by OUTTRAP and placed in the stem that was passed in the 
> first OUTTRAP call. It does not appear in the print file nor on the 
> output associated with SYSTSPRT.
> 
> Interesting.
> 
> Since the primary use of this REXX will be batch as opposed to 
> interactive, I can live with it I guess.
> Just wish it would work the same regardless of environment.
> 
> C-
> 
> Charles (Chuck) Hardee
> Senior Systems Engineer/Database Administration
> EAS Information Technology
> 
> Thermo Fisher Scientific
> 300 Industry Drive | Pittsburgh, PA 15275
> Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 
490-9230
> chuck.har...@thermofisher.com  | www.thermofisher.com
> 
> WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or 
> copying of this e-mail or the information herein by anyone other 
> than the intended recipient, or an employee or agent of a system 
> responsible for delivering the message to the intended recipient, is
> prohibited. If you are not the intended recipient, please inform the
> sender and delete all copies.
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU
> ] On Behalf Of J R
> Sent: Friday, September 18, 2015 10:46 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: IPCS BLS18028I message suppression
> 
> Assuming it is a TPUT and assuming your logic doesn't depend on it, 
> (yeah, I know)
> could you run it in batch?  This may prevent the message messing up 
> your report. 
> 
> 
> 
> > Date: Fri, 18 Sep 2015 14:12:45 +
> > From: chuck.hardee
> /snip/
> > Charles (Chuck) Hardee
> > Senior Systems Engineer/Database Administration
> > EAS Information Technology
> 
> > > It's more frustrating than technical, but I'm trying to produce a 
custom
> > report from
> > > the dump and this message gets in the way of the report's 
information.

  I can tell you what IPCS does.  The FIND subcommand processor BLSRFIND 
calls
BLSUTRMV to issue the message.  Comments in BLSUTRMV say that it does 
this: 


If ISPF services are not available, the message is 
transmitted to the terminal via the TSO IKJPUTL service 
routine.  IKJPUTL processing is sensitive to the TSO 
environment and the current context: 
 
A. The most common disposition of the message is to use the
   TPUT service to send the message to the terminal.  This 
   is the normal action in an interactive TSO session. 
 
B. In a batch TSO session, the most common disposition of 
   the message is to use QSAM PUT processing to write the 
   line to FILE(SYSTSPRT). 
 
C. During CLIST processing in either interactive or batch 
   TSO sessions, 
 
 CONTROL NOMSG 
 
   may be used to cause the message to be discarded. 
 
D. When TSO/E is installed and CLIST processing is active, 
 
 SET SYSOUTTRAP=decimal-number 
 
   may be used to cause the message to be captured in a 
CLIST variable. 
 
The several actions possible are services performed by 
IKJPUTL, not BLSUTRMV. 
 
 
  And the code agrees with these comments.  There is no checking
of batch vs. terminal.   It just calls IKJPUTL.  So I would guess
that whatever differences you are seeing would be a question for
TSO/E. 


Jim Mulder   z/OS System Test   IBM Corp.  Poughkeepsie,  NY

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

Re: S0C4 running Disasembler ASMDASM

[Hardee, Chuck]

Is it possibly running with too small a region size?
Is it possibly coming from an authorized load lib and linked as REENT and 
trying to modify itself?

That's my nickel, absent a dump in front of me.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of michealbutz
Sent: Tuesday, August 25, 2015 10:35 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S0C4 running Disasembler ASMDASM


If this helps great all it says is ASMDASM bombed in the beginning of the
module at offset X'48'

I would think the S0C4 points to missing DD card but I have
SYSLIB,SYSPRINT,SYSIN pointing to a load modue csect


Thanks
   J E S 2  J O B  L O G  --  S Y S T E M  S 0 W 1  --  N O 
 

07.54.06 JOB00060  TUESDAY,   25 AUG 2015 

07.54.06 JOB00060  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB.

07.54.07 JOB00060  ICH70001I IBMUSER  LAST ACCESS AT 06:40:58 ON TUESDAY,
AUGUST
07.54.07 JOB00060  $HASP373 IBMUSER$ STARTED - INIT 1- CLASS A-
SYS 
07.54.07 JOB00060  IEF403I IBMUSER$ - STARTED - TIME=07.54.07

07.54.12 JOB00060  IEA995I SYMPTOM DUMP OUTPUT  735

   735 SYSTEM COMPLETION CODE=0C4  REASON CODE=0004

   735  TIME=07.54.07  SEQ=00125  CPU=  ASID=001C

   735  PSW AT TIME OF ERROR  078D   800074A8  ILC 4  INTC
04   
   735ACTIVE LOAD MODULE   ADDRESS=7460
OFFSET=0048

0048



0048


   735NAME=ASMDASM

   735DATA AT PSW  74A2 - 801050D0  E00450E0  D00818DE

   735GR 0: 7FFBB028_0064   1: _6FE8

   735   2: _0040   3: _008D89D4

   735   4: _008D89B0   5: _008F8588

  F1=HELP  F2=SPLIT F3=END   F4=RETURNF5=IFIND F6=BOOK

   6: _008C9FC8   7: _00FBB880   
   8: _   9: _008D2CB0   
   A: _   B: _8460   
   C: _80007460   D: _6F50   
   E: _00FDC5A0   F: _80007460   
  END OF SYMPTOM DUMP
12 JOB00060  IEF450I IBMUSER$ DISASM - ABEND=S0C4 U REASON=0004  
 TIME=07.54.12   
12 JOB00060  -  -TIMINGS (MINS.)-
12 JOB00060  -STEPNAME PROCSTEPRC   EXCP   CONN   TCB   SRB  
12 JOB00060  -DISASM*S0C4221  0   .07   .00  
12 JOB00060  IEF404I IBMUSER$ - ENDED - TIME=07.54.12
12 JOB00060  -IBMUSER$ ENDED.  NAME-SYSPROG  TOTAL TCB CPU TI
12 JOB00060  $HASP395 IBMUSER$ ENDED 
 JES2 JOB STATISTICS --  
UG 2015 JOB EXECUTION DATE   
 12 CARDS READ   
  6,327 SYSOUT PRINT RECORDS 
LP  F2=SPLIT F3=END   F4=RETURNF5=IFIND F6=BOOK  
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Charles Mills
Sent: Tuesday, August 25, 2015 10:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: S0C4 running Disasembler ASMDASM

a S0C4? Did it perhaps come with a module name, a PSW, and registers?

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of michealbutz
Sent: Tuesday, August 25, 2015 6:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: S0C4 running Disasembler ASMDASM

Hi,

 

I lost the source to one of my progs while running the Disassembler I got a
S0C4

--
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 

Re: Submit job without messages

[Hardee, Chuck]

I am not aware of an option for the TSO SUBMIT command to suppress the message, 
but could your REXX allocate an internal reader and write the JCL to it then 
close it?


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bill Ashton
Sent: Tuesday, July 28, 2015 7:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Submit job without messages

Hello...I am working on a Rexx program for users, and as part of the
process, I want to submit a JCL member right away when the program starts.
There are no edits or changes needed, so I just issue a TSO SUBMIT
command.

However, the users are annoyed with the ...SUBMITTED message and the
interruption. Is there any way to either trap and discard the message, or
keep the message from appearing? Is there a different way to submit this
JCL other than the TSO SUBMIT, so maybe the message would not appear at all?

Thanks for your ideas and suggestions!
Billy

-- 
Thank you and best regards,
*Billy Ashton*

--
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: Not understanding COBOL diagnostic

[Hardee, Chuck]

I haven't played with COBOL in a long while, but is the leading apostrophe 
needed on the continuation line?

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Thursday, July 16, 2015 10:07 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Not understanding COBOL diagnostic

Can somebody humor me? I am not a COBOL programmer - I just sometimes find
myself with a COBOL problem.

I am getting the following diagnostics. What the heck is the compiler
talking about? I see lots of blanks before column 23. I verified with HEX
ON.

5136  1DISPLAY '   YOU HAVE ACTIVATED STATISTICS WITH
EXPLAI
5137  1-   ' BUT HAVE NOT CREATED THE PLAN_TABLE.'

5137== IGYPS0001-W A blank was missing before character ' in column 23.
A bl
assumed.

 

5138  1DISPLAY '   EXPLAIN HAS BEEN DEACTIVATED TO ALLOW
THE
5139  1-   ' PROGRAM TO RUN TO COMPLETION.'

5139== IGYPS0001-W A blank was missing before character ' in column 23.
A bl
assumed.


Ditto for this one. Does anyone know what the correct syntax should be?

4401  1DISPLAY  FUNCTION DISPLAY-OF(W-TRACE-DETAIL)

4402  1'CEX Stmt=SELECT DBNAME, DDLSPACENAME
FROM ' 
4403  1'PSRECTBLSPC WHERE RECNAME = '''

4404  1 FUNCTION DISPLAY-OF(RECNAME OF
W-RUNSTAT-INF
4405  1 

4406  1'AND DBTYPE = '

4407  1'(SELECT MAX(DBTYPE)'

4408  1'   FROM PSRECTBLSPC'

4409  1'  WHERE DBTYPE IN (' ','1 ')'

4409== IGYPS0001-W A blank was missing before character 1 in column 48.
A bl
assumed.


Charles 

--
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: Not understanding COBOL diagnostic

[Hardee, Chuck]

I thought one of them had to be left out but I couldn't remember which one.
Looks like I guessed at the wrong one.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sri h Kolusu
Sent: Thursday, July 16, 2015 11:12 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Not understanding COBOL diagnostic

Charles,

Remove the closing single quote on the DISPLAY statement line and you 
won't see that message. 

Here are the rules

If you want to continue a literal such that the continued lines and the 
continuation lines are part of one literal:
Code a hyphen in the indicator area of each continuation line.
Code the literal value using all columns of each continued line, up to and 
including column 72. (Do not terminate the continued lines with a single 
quotation mark followed by a space.)
Code a quotation mark before the first character of the literal on each 
continuation line.
Terminate the last continuation line with a single quotation mark followed 
by a space.

http://www-01.ibm.com/support/knowledgecenter/SS6SG3_4.2.0/com.ibm.entcobol.doc_4.2/PGandLR/ref/rlfmtcon.htm?lang=en

Thanks,
Kolusu

IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU wrote on 
07/16/2015 08:03:52 AM:

 From: Charles Mills charl...@mcn.org
 To: IBM-MAIN@LISTSERV.UA.EDU
 Date: 07/16/2015 08:06 AM
 Subject: Re: Not understanding COBOL diagnostic
 Sent by: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU
 
 1+2+3+4+5+6+7
  DISPLAY '   YOU HAVE ACTIVATED STATISTICS WITH EXPLAIN' 
  -   ' BUT HAVE NOT CREATED THE PLAN_TABLE.' 
  DISPLAY '   EXPLAIN HAS BEEN DEACTIVATED TO ALLOW THE' 
  -   ' PROGRAM TO RUN TO COMPLETION.' 
  DISPLAY '   PLEASE CREATE THE PLAN_TABLE AND RESUBMIT' 
  -   ' THE PROGRAM FOR EXPLAIN INFORMATION.' 
 
 Charles
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
 Behalf Of Lizette Koehler
 Sent: Thursday, July 16, 2015 7:24 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: Not understanding COBOL diagnostic
 
 Due to text wrap, I cannot tell what the original line looked like.
 
 Could you post the original code above the compiler output? 
 
 Do you have ending single quotes?
 
 --
 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: I need a little help using LISTDSI in a REXX program

[Hardee, Chuck]

Nathan,

The NORECALL, if it is a literal, needs to be in quotes.
If it is a variable, then the value of the variable needs to be either null 
(''), or the value needs to have quotes, NORECALL = 'NORECAL' or NORECALL = 
'NORECALL'.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Pfister, Nathan
Sent: Thursday, July 16, 2015 2:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: I need a little help using LISTDSI in a REXX program

Chuck is correct, just checked back through my rexx execs and I have this 
example:

retcode = LISTDSI(LKDSN NORECALL)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Thursday, July 16, 2015 2:49 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: I need a little help using LISTDSI in a REXX program

I believe you want SRC = LISTDSI(''FN1' NORECALL)

I'm not where I can get to some of my rexx routines to confirm this to be sure.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile +1 
(412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com  | 
www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Kovach
Sent: Thursday, July 16, 2015 2:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: I need a little help using LISTDSI in a REXX program

I have a REXX program which includes the following:
SRC = LISTDSI(''FN1')where FN1 = a fully qualified datasetname. The 
results of the invoke of LISTDSI provide the number of tracks used by the file 
in the SYSUSED SYSTEM variable.
Unfortunately, if the dataset is Migrated, it must be RECALLED before this can 
be done.  I want to add the NORECALL option of the LISTDSI command to avoid the 
RECALLS, but I cannot get the syntax correct.
TSO LISTDSI 'FULLY.QUAL.DATASET.NAME' NORECALL   works fine on the TSO 6 Panel  
or on the CMD line Help out there?
Thanks in advance for your responses.

Regards,Mike Kovach

--
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
E-MAIL CONFIDENTIALITY NOTICE: This e-mail from Donegal Insurance Group may 
contain CONFIDENTIAL and legally protected information. If you are not an 
intended recipient, please do not copy, use or disclose this email or its 
contents to others; and please notify us by calling toll free (800) 877-0600 
x7880 or by replying to this message, and then delete it from your system. 
Delivery of this email to an unintended recipient is not a waiver of any 
attorney-client or other applicable privilege.

--
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: I need a little help using LISTDSI in a REXX program

[Hardee, Chuck]

I believe you want SRC = LISTDSI(''FN1' NORECALL)

I'm not where I can get to some of my rexx routines to confirm this to be sure.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com  | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Kovach
Sent: Thursday, July 16, 2015 2:45 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: I need a little help using LISTDSI in a REXX program

I have a REXX program which includes the following:
SRC = LISTDSI(''FN1')    where FN1 = a fully qualified datasetname. 
The results of the invoke of LISTDSI provide the number of tracks used by the 
file in the SYSUSED SYSTEM variable.
Unfortunately, if the dataset is Migrated, it must be RECALLED before this can 
be done.  I want to add the NORECALL option of the LISTDSI command to avoid the 
RECALLS, but I cannot get the syntax correct.
TSO LISTDSI 'FULLY.QUAL.DATASET.NAME' NORECALL   works fine on the TSO 6 Panel  
or on the CMD line 
Help out there?
Thanks in advance for your responses.

Regards,Mike Kovach

--
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: CA-1 programming example

[Hardee, Chuck]

I had been looking in the Programming Guide for samples of how to call CA-1 and 
obtain information about a volser.
There is a specific macro with which to do this, but, in my opinion, the 
narrative for the macro and the other macros needed to provide the needed 
interface leave something to be desired.

I was hoping someone might have an example of a program that would take a given 
volser and ask CA-1 for what it knows about it.

As to reports, that won't work. What I'm doing isn't report driven and is 
dynamic.
As to utilities, unless there's a callable utility module to which you pass a 
volser and it returns the CA-1 data related to it, utilities won't work, either.

I will check out the CBT to see if there is anything usable there.

Thanks to all that replied.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Thursday, May 21, 2015 11:52 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CA-1 programming example

And the CA1 Utilities Manual will have examples for TMSGRW and EARL.

Lizette


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
 On Behalf Of Lizette Koehler
 Sent: Thursday, May 21, 2015 8:50 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: CA-1 programming example
 
 There are a couple options.
 1)  TMSGRW
 2) CA EARL
 3) Vantage/SRM/GMI
 
 
 Lizette
 
 
  -Original Message-
  From: IBM Mainframe Discussion List [mailto:IBM-
 m...@listserv.ua.edu]
  On Behalf Of Hardee, Chuck
  Sent: Thursday, May 21, 2015 8:39 AM
  To: IBM-MAIN@LISTSERV.UA.EDU
  Subject: CA-1 programming example
 
  Has anyone out there written a program to inquire against a CA-1 tape
  library?
  I'm looking for tips and/or samples of how to do it.
  I have a list of DSNs and their (tape) VOLSERs but I'd like to get
  more information about the DSN/VOLSER from CA-1.
 
  Anything shareable that someone might have would be greatly
 appreciated.
 
  Thanks,
  Chuck
 
  Charles (Chuck) Hardee
  Senior Systems Engineer/Database Administration EAS Information
  Technology
 
  Thermo Fisher Scientific
  300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 |
  Mobile
  +1 (412) 877-2809 | FAX: +1 (412) 490-9230
  chuck.har...@thermofisher.com | www.thermofisher.com

--
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

CA-1 programming example

[Hardee, Chuck]

Has anyone out there written a program to inquire against a CA-1 tape library?
I'm looking for tips and/or samples of how to do it.
I have a list of DSNs and their (tape) VOLSERs but I'd like to get more 
information about the DSN/VOLSER from CA-1.

Anything shareable that someone might have would be greatly appreciated.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: CA-1 programming example

[Hardee, Chuck]

Thanks Mike, I will take a look at the file.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Schwab
Sent: Thursday, May 21, 2015 12:14 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: CA-1 programming example

http://gsf-soft.com/Freeware/FILE183-index.html
Member Names:
 TLMS  Display a VMF record under PDF 3.4

   This program reads the VMF record for the
   first volume of a tape data set, formats it
   pretty much like the CATLTSO command, then
   invokes BRIF to display the result.  May only
   be used as a line command on the Data Set
   List panel (Option 3.4 of ISPF/PDF).

 TMS   Display a TMC record under PDF 3.4
   Same as TLMS, but for CA1/TMS 5.0

On Thu, May 21, 2015 at 11:07 AM, Hardee, Chuck
chuck.har...@thermofisher.com wrote:
 I had been looking in the Programming Guide for samples of how to call CA-1 
 and obtain information about a volser.
 There is a specific macro with which to do this, but, in my opinion, the 
 narrative for the macro and the other macros needed to provide the needed 
 interface leave something to be desired.

 I was hoping someone might have an example of a program that would take a 
 given volser and ask CA-1 for what it knows about it.

 As to reports, that won't work. What I'm doing isn't report driven and is 
 dynamic.
 As to utilities, unless there's a callable utility module to which you pass a 
 volser and it returns the CA-1 data related to it, utilities won't work, 
 either.

 I will check out the CBT to see if there is anything usable there.

 Thanks to all that replied.

 C-

 Charles (Chuck) Hardee
 Senior Systems Engineer/Database Administration
 EAS Information Technology

 Thermo Fisher Scientific
 300 Industry Drive | Pittsburgh, PA 15275
 Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
 chuck.har...@thermofisher.com | www.thermofisher.com

 WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of 
 this e-mail or the information herein by anyone other than the intended 
 recipient, or an employee or agent of a system responsible for delivering the 
 message to the intended recipient, is prohibited. If you are not the intended 
 recipient, please inform the sender and delete all copies.

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
 Behalf Of Lizette Koehler
 Sent: Thursday, May 21, 2015 11:52 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: CA-1 programming example

 And the CA1 Utilities Manual will have examples for TMSGRW and EARL.

 Lizette


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
 On Behalf Of Lizette Koehler
 Sent: Thursday, May 21, 2015 8:50 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: CA-1 programming example

 There are a couple options.
 1)  TMSGRW
 2) CA EARL
 3) Vantage/SRM/GMI


 Lizette


  -Original Message-
  From: IBM Mainframe Discussion List [mailto:IBM-
 m...@listserv.ua.edu]
  On Behalf Of Hardee, Chuck
  Sent: Thursday, May 21, 2015 8:39 AM
  To: IBM-MAIN@LISTSERV.UA.EDU
  Subject: CA-1 programming example
 
  Has anyone out there written a program to inquire against a CA-1 tape
  library?
  I'm looking for tips and/or samples of how to do it.
  I have a list of DSNs and their (tape) VOLSERs but I'd like to get
  more information about the DSN/VOLSER from CA-1.
 
  Anything shareable that someone might have would be greatly
 appreciated.
 
  Thanks,
  Chuck
 
  Charles (Chuck) Hardee
  Senior Systems Engineer/Database Administration EAS Information
  Technology
 
  Thermo Fisher Scientific
  300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 |
  Mobile
  +1 (412) 877-2809 | FAX: +1 (412) 490-9230
  chuck.har...@thermofisher.com | www.thermofisher.com

 --
 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

Re: Sort Jcl

[Hardee, Chuck]

  VV   V  VV   I think you're out of 
sync???
  OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE',
  C' 96 M/B  WHITE SALE '))

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ron Thomas
Sent: Thursday, April 02, 2015 11:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Sort Jcl

Hello. Could some one please let me know why the below sytntax is not working ?

//SYSINDD *
  SORT FIELDS=COPY
  OUTREC FINDREP=(INOUT=(C''96 M/B WHITE SALE',
  C' 96 M/B  WHITE SALE '))
/*
Msg received in sort is WER268A  OUTREC STATEMENT  : SYNTAX ERROR

Thanks
Ron T

--
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: Twelve different companies IBM has been (watch the wrap)

[Hardee, Chuck]

I tried Mozilla Firefox and had the same experience.
I then tried IE version 8 and had the same experience.
I then turned on compatibility mode and it worked, sort of.
Some of the text was overlayed, but it was sufficient to at least see the 
pictures and figure out what they were with a little figuring out of the 
overlayed text.

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Aled Hughes
Sent: Thursday, February 05, 2015 3:27 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Twelve different companies IBM has been (watch the wrap)

Thanks Ed, but even your expertise didn't make it better. Shucks. 
 

 

 

-Original Message-
From: Ed Finnell 000248cce9f3-dmarc-requ...@listserv.ua.edu
To: IBM-MAIN IBM-MAIN@LISTSERV.UA.EDU
Sent: Thu, 5 Feb 2015 20:10
Subject: Re: Twelve different companies IBM has been (watch the wrap)


Well, you could try itworld.com and navigate or tinyurl:
 
http://tinyurl.com/nzzpzpn
 
 
In a message dated 2/5/2015 1:59:19 P.M. Central Standard Time,  
0050619ca8df-dmarc-requ...@listserv.ua.edu writes:

Unfortunately, it only goes up to the second pic. Maybe it's  me.

--
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: Google got its own airport

[Hardee, Chuck]

Where are the Men In Black when you need them?
Someone needs to ride herd over these two!


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richard Pinion
Sent: Wednesday, November 12, 2014 8:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Google got its own airport

So the galactic wars, not the clone wars, will be between Google and Microsoft?



--- thomas_amb...@keybank.com wrote:

From: Ambros, Thomas thomas_amb...@keybank.com
To:   IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Google got its own airport
Date: Wed, 12 Nov 2014 13:25:07 +

You started it... 

My OT contribution is that apparently they have this world sewn up so they're 
going for galactical domination.  

Thomas Ambros
zEnterprise Operating Systems
zEnterprise Systems Management
518-436-6433


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Wednesday, November 12, 2014 08:17
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Google got its own airport

Google subsidiary Planetary Ventures plans to use the historic Moffett Field in 
Silicon Valley for research and development in space exploration, aviation, 
robotics and other emerging technologies, according to a NASA statement.

http://www.industryweek.com/technology/google-takes-over-nasa-airport-silicon-valley
 

or (same text, other web page)

http://www.fin24.com/Tech/Google-takes-over-Nasa-airport-in-Silicon-Valley-20141112

From NASA themselves:

http://www.nasa.gov/press/2014/november/nasa-signs-lease-with-planetary-ventures-llc-for-use-of-moffett-airfield-and/

Interesting, now what next?

Ok, enough OT posts from myself. :-)

Groete / Greetings
Elardus Engelbrecht

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


This communication may contain privileged and/or confidential information. It 
is intended solely for the use of the addressee. If you are not the intended 
recipient, you are strictly prohibited from disclosing, copying, distributing 
or using any of this information. If you received this communication in error, 
please contact the sender immediately and destroy the material in its entirety, 
whether electronic or hard copy. This communication may contain nonpublic 
personal information about consumers subject to the restrictions of the 
Gramm-Leach-Bliley Act. You may not directly or indirectly reuse or redisclose 
such information for any purpose other than to provide the services for which 
you are receiving the information.

127 Public Square, Cleveland, OH 44114
If you prefer not to receive future e-mail offers for products or services from 
Key 
send an e-mail to mailto:dnereque...@key.com with 'No Promotional E-mails' in 
the 
SUBJECT line.


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




_
Netscape.  Just the Net You Need.

--
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

SMP/E APPLY output capture question

[Hardee, Chuck]

Hello Listers,

I am in need of capturing the output from an APPLY step, specifically the 
assembly and link output.
Currently my target zone has SYSPRINT defined as SYSOUT=*.
I have tried several things but, unless I've coded them incorrectly, they did 
not achieve the result I need.

I have tried supplying a defining a OUTPUT statement at the start of my job and 
then supplying a SYSPRINT DD with an OUTPUT= naming the OUTPUT statement's 
name. That didn't work, and I didn't get any indication from SMP/E as to 
errors, but my usermod was not applied.

I have tried defining the assembler utility as using an alternate SYSPRINT DD 
and then supplying that DD and I don't get the assembly output via the new DD 
name which I supplied in the JCL. In fact, I don't get any errors with that 
setup either but the usermod did not apply in the arrangement either.

Ultimately, what I want to accomplish it to have 2 copies of the output. One to 
go to our production control department as part of the documentation filed when 
locking down the source and the other to stay within our own library system so 
that if we have issues with the program being controlled, we have quicker and 
easier access to the current listing than we would if we had to go thru the 
production control library.

I can obtain the result I want, to a degree, if I manually change the output 
class, form and destination as we have JES writers to handle it, but I'd rather 
not have to remember to go and change the various JES attributes of the job if 
I can do it in the JCL.

If there is some way to cause SMP/E to spool its assembly and link steps to VIO 
that would be great as I could then follow the APPLY step with an IEBGENER and 
code SYSUT2 with the appropriate OUTPUT names and have the output handled as I 
want.

Anyone have any ideas?

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


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

Re: SMP/E APPLY output capture question

[Hardee, Chuck]

Thanks Christian, but I tried that already.
I changed the utility to use the DD name ASMPRINT and then coded an ASMPRINT DD 
with SYSYOUT=* and when the APPLY was executed I received nothing via that DD, 
the usermod was not applied and I received no errors indicating that there was 
a problem with the assembly or a problem in the APPLY.
Very misleading.

I will, however, try it again since you have indicated that it should work.
It is quite possible I did not have something quite right.

I'll update again when I have further news.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Christian Birr
Sent: Tuesday, November 11, 2014 8:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: SMP/E APPLY output capture question

Chuck,
in the SMP/E dialog select the global zone, under UTILITY select ASMA90 (or 
what else you might use), specify a print DD name and use this in your JCL and 
review the PARM statements.
Christian
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Hardee, Chuck
Gesendet: Dienstag, 11. November 2014 13:54
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: SMP/E APPLY output capture question

Hello Listers,

I am in need of capturing the output from an APPLY step, specifically the 
assembly and link output.
Currently my target zone has SYSPRINT defined as SYSOUT=*.
I have tried several things but, unless I've coded them incorrectly, they did 
not achieve the result I need.

I have tried supplying a defining a OUTPUT statement at the start of my job and 
then supplying a SYSPRINT DD with an OUTPUT= naming the OUTPUT statement's 
name. That didn't work, and I didn't get any indication from SMP/E as to 
errors, but my usermod was not applied.

I have tried defining the assembler utility as using an alternate SYSPRINT DD 
and then supplying that DD and I don't get the assembly output via the new DD 
name which I supplied in the JCL. In fact, I don't get any errors with that 
setup either but the usermod did not apply in the arrangement either.

Ultimately, what I want to accomplish it to have 2 copies of the output. One to 
go to our production control department as part of the documentation filed when 
locking down the source and the other to stay within our own library system so 
that if we have issues with the program being controlled, we have quicker and 
easier access to the current listing than we would if we had to go thru the 
production control library.

I can obtain the result I want, to a degree, if I manually change the output 
class, form and destination as we have JES writers to handle it, but I'd rather 
not have to remember to go and change the various JES attributes of the job if 
I can do it in the JCL.

If there is some way to cause SMP/E to spool its assembly and link steps to VIO 
that would be great as I could then follow the APPLY step with an IEBGENER and 
code SYSUT2 with the appropriate OUTPUT names and have the output handled as I 
want.

Anyone have any ideas?

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


--
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

Re: SMP/E APPLY output capture question

[Hardee, Chuck]

Thanks for the thought Lizette, but I did go down that path, but I found no way 
to specify the OUTPUT= parameter in the SYSPRINT DDDEF.

Do you have an idea of how I would accomplish that?

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Tuesday, November 11, 2014 8:48 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E APPLY output capture question

See if the /*OUTPUT Jcl statement could help.

Lizette


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
 Behalf Of Hardee, Chuck
 Sent: Tuesday, November 11, 2014 6:35 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: SMP/E APPLY output capture question
 
 Thanks Christian, but I tried that already.
 I changed the utility to use the DD name ASMPRINT and then coded an
 ASMPRINT DD with SYSYOUT=* and when the APPLY was executed I received
 nothing via that DD, the usermod was not applied and I received no errors
indicating
 that there was a problem with the assembly or a problem in the APPLY.
 Very misleading.
 
 I will, however, try it again since you have indicated that it should
work.
 It is quite possible I did not have something quite right.
 
 I'll update again when I have further news.
 
 C-
 
 Charles (Chuck) Hardee
 Senior Systems Engineer/Database Administration EAS Information Technology
 
 Thermo Fisher Scientific
 300 Industry Drive | Pittsburgh, PA 15275 Phone +1 (724) 517-2633 | Mobile
+1
 (412) 877-2809 | FAX: +1 (412) 490-9230 chuck.har...@thermofisher.com |
 www.thermofisher.com
 
 WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of
 this e-mail or the information herein by anyone other than the intended
recipient, or
 an employee or agent of a system responsible for delivering the message to
the
 intended recipient, is prohibited. If you are not the intended recipient,
please inform
 the sender and delete all copies.
 
 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
 Behalf Of Christian Birr
 Sent: Tuesday, November 11, 2014 8:27 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: AW: SMP/E APPLY output capture question
 
 Chuck,
 in the SMP/E dialog select the global zone, under UTILITY select ASMA90
(or what
 else you might use), specify a print DD name and use this in your JCL and
review
 the PARM statements.
 Christian
 -Ursprüngliche Nachricht-
 Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im
 Auftrag von Hardee, Chuck
 Gesendet: Dienstag, 11. November 2014 13:54
 An: IBM-MAIN@LISTSERV.UA.EDU
 Betreff: SMP/E APPLY output capture question
 
 Hello Listers,
 
 I am in need of capturing the output from an APPLY step, specifically the
assembly
 and link output.
 Currently my target zone has SYSPRINT defined as SYSOUT=*.
 I have tried several things but, unless I've coded them incorrectly, they
did not
 achieve the result I need.
 
 I have tried supplying a defining a OUTPUT statement at the start of my
job and
 then supplying a SYSPRINT DD with an OUTPUT= naming the OUTPUT
 statement's name. That didn't work, and I didn't get any indication from
SMP/E as to
 errors, but my usermod was not applied.
 
 I have tried defining the assembler utility as using an alternate SYSPRINT
DD and
 then supplying that DD and I don't get the assembly output via the new DD
name
 which I supplied in the JCL. In fact, I don't get any errors with that
setup either but
 the usermod did not apply in the arrangement either.
 
 Ultimately, what I want to accomplish it to have 2 copies of the output.
One to go to
 our production control department as part of the documentation filed when
locking
 down the source and the other to stay within our own library system so
that if we
 have issues with the program being controlled, we have quicker and easier
access
 to the current listing than we would if we had to go thru the production
control library.
 
 I can obtain the result I want, to a degree, if I manually change the
output class,
 form and destination as we have JES writers to handle it, but I'd rather
not have to
 remember to go and change the various JES attributes of the job if I can
do it in the
 JCL.
 
 If there is some way to cause SMP/E to spool its assembly and link steps

Re: SMP/E APPLY output capture question

[Hardee, Chuck]

While I would never rule out the possibility, I don't think that's the case. 
If I have no SYSPRINT override in the utility definition for the assembler or 
the linkage editor, and I have the DDDEF for SYSPRINT defined as SYSOUT=* in 
the target zone, the usermod APPLYs perfectly. No errors, on the assembly or 
the link.

All I'm changing at this point is the operating environment for SMP/E. I'm 
not changing the usermod in any way.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Shmuel Metz (Seymour J.)
Sent: Tuesday, November 11, 2014 8:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E APPLY output capture question

In
9b26bc6a6df52d4483dd73b1fe7b4b068b3e557...@uspho-mxvs07.amer.thermo.com,
on 11/11/2014
   at 05:54 AM, Hardee, Chuck chuck.har...@thermofisher.com said:

I have tried supplying a defining a OUTPUT statement at the start 
of my job and then supplying a SYSPRINT DD with an OUTPUT= naming 
the OUTPUT statement's name. That didn't work, and I didn't get any
indication from SMP/E as to errors, but my usermod was not applied.

Then you have other problems besides SYSPRINT. Check your packaging.

Anyone have any ideas?

T?
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see http://patriot.net/~shmuel/resume/brief.html 
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

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

Re: SMP/E APPLY output capture question

[Hardee, Chuck]

As I replied to Shmuel Metz, I am using a usermod that APPLYs just fine when I 
don't attempt to capture the output using any means.

The GLOBAL zone defines no override for the assembler or link utilities and the 
DDDEFs for SYSPRINT in the target zone says SYSOUT=*. With that arrangement, 
the usermod APPLYs perfectly, I get an assembly listing on SYSPRINT and a 
linkage report on SYS8.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Kurt Quackenbush
Sent: Tuesday, November 11, 2014 8:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E APPLY output capture question

 ... I didn't get any
 indication from SMP/E as to errors, but my usermod was not applied.

You received no errors, but the USERMOD was not applied?  What exactly 
did SMP/E tell you?  It sounds to me like id didn't actually perform any 
assemblies or link edits.  If not, then maybe that is why your 
redirected output didn't work as you hoped.

Kurt Quackenbush -- IBM, SMP/E Development

--
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: SMP/E APPLY output capture question

[Hardee, Chuck]

No, at least not intentionally.
When I run my usermod using no changes to the CSI and/or JCL, the output is 
directed, via the MSGCLASS parm on the JOB statement to class X, which is a 
hold queue. When I modify the output requirements to go to another class, class 
F in this case, it, too, is a held class that our Production Control personnel 
receive output in that has to be reviewed and then, if it passes muster, is 
filed into their source control system.

In the off chance that that was the case, I added HOLD=YES on the DD statement 
for SYSPRINT, but whether that worked or not, I can't say as I never received 
any output on that DD when I ran my APPLY, which is another issue I had pointed 
out in previous replies.

Frankly I am confused as to what is happening since what I am wanting to do 
should be very straight forward.



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Christian Birr
Sent: Tuesday, November 11, 2014 9:01 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: SMP/E APPLY output capture question

Chuck, would be that you specified an output class with outdisp=purge ? 
Happened to me a couple of times in various shops ;)
Christian

-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Hardee, Chuck
Gesendet: Dienstag, 11. November 2014 14:35
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: Re: SMP/E APPLY output capture question

Thanks Christian, but I tried that already.
I changed the utility to use the DD name ASMPRINT and then coded an ASMPRINT DD 
with SYSYOUT=* and when the APPLY was executed I received nothing via that DD, 
the usermod was not applied and I received no errors indicating that there was 
a problem with the assembly or a problem in the APPLY.
Very misleading.

I will, however, try it again since you have indicated that it should work.
It is quite possible I did not have something quite right.

I'll update again when I have further news.

C-

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Christian Birr
Sent: Tuesday, November 11, 2014 8:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: SMP/E APPLY output capture question

Chuck,
in the SMP/E dialog select the global zone, under UTILITY select ASMA90 (or 
what else you might use), specify a print DD name and use this in your JCL and 
review the PARM statements.
Christian
-Ursprüngliche Nachricht-
Von: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] Im Auftrag 
von Hardee, Chuck
Gesendet: Dienstag, 11. November 2014 13:54
An: IBM-MAIN@LISTSERV.UA.EDU
Betreff: SMP/E APPLY output capture question

Hello Listers,

I am in need of capturing the output from an APPLY step, specifically the 
assembly and link output.
Currently my target zone has SYSPRINT defined as SYSOUT=*.
I have tried several things but, unless I've coded them incorrectly, they did 
not achieve the result I need.

I have tried supplying a defining a OUTPUT statement at the start of my job and 
then supplying a SYSPRINT DD with an OUTPUT= naming the OUTPUT statement's 
name. That didn't work, and I didn't get any indication from SMP/E as to 
errors, but my usermod was not applied.

I have tried defining the assembler utility as using an alternate SYSPRINT DD 
and then supplying that DD and I don't get the assembly output via the new DD 
name which I supplied in the JCL. In fact, I don't get any errors with that 
setup either but the usermod did not apply in the arrangement either.

Ultimately, what I want to accomplish it to have 2 copies of the output. One

Re: SMP/E APPLY output capture question

[Hardee, Chuck]

See, that's the rub.
As I understand SMP/E, if there is no DD in the JCL, then SMP/E will allocate 
based on the DDDEFs.
If there is a DD in the JCL, then SMP/E will use it.

The first attempt at capturing the output was to do exactly as you indicated.
That didn't work for whatever reason, and I say it that way because not only 
did I get no output on SYSPRINT, I did not get any errors reported on the JES 
log, SYSMSGs, SMPOUT or SMPRPT.

And, I'm using a usermod that APPLYs with a return code of 0 and an assembly 
listing as well as a link map.

That's why I'm so confused about what's going on here. The CSI definitions are 
fine when I don't try to capture the output but when I supply my own DD 
statements I get nothing.

It's just not making sense to me why things aren't working as I would expect.

I don't know if it's a release thing or not. We're running z/OS 1.13 and SMP/E 
36.38.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chase, John
Sent: Tuesday, November 11, 2014 11:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E APPLY output capture question

 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Hardee, Chuck
 
 No, at least not intentionally.
 When I run my usermod using no changes to the CSI and/or JCL, the output is 
 directed, via the MSGCLASS
 parm on the JOB statement to class X, which is a hold queue. When I modify 
 the output requirements to
 go to another class, class F in this case, it, too, is a held class that our 
 Production Control
 personnel receive output in that has to be reviewed and then, if it passes 
 muster, is filed into their
 source control system.
 
 In the off chance that that was the case, I added HOLD=YES on the DD 
 statement for SYSPRINT, but
 whether that worked or not, I can't say as I never received any output on 
 that DD when I ran my APPLY,
 which is another issue I had pointed out in previous replies.
 
 Frankly I am confused as to what is happening since what I am wanting to do 
 should be very straight
 forward.

Indeed, JCL overrides just work.

Assuming you have DDDEFs for all required datasets, your APPLY job that works 
could be as simple as:

//jobname  JOB acctg.info,MSGCLASS=X,...
//stepname EXEC PGM=GIMSMP[,REGION=0M[,...]]
//SMPCSI   DD DISP=SHR,DSN=my.smp.global.csi
//SMPCNTL  DD *
  SET BDY(tgtzone) .
  APPLY S(usermod) ASSEM REDO .
/*

Based on your descriptions, you get your //SYSPRINT output in class X.

To get your //SYSPRINT output into class F, you need only add one JCL statement:

//jobname  JOB acctg.info,MSGCLASS=X,...
//stepname EXEC PGM=GIMSMP[,REGION=0M[,...]]
//SMPCSI   DD DISP=SHR,DSN=my.smp.global.csi
//SYSPRINT DD SYSOUT=F  === add this statement
//SMPCNTL  DD *
  SET BDY(tgtzone) .
  APPLY S(usermod) ASSEM REDO .
/*

It really is that simple.

-jc-

**
Information contained in this e-mail message and in any attachments thereto is 
confidential. If you are not the intended recipient, please destroy this 
message, delete any copies held on your systems, notify the sender immediately, 
and refrain from using or disclosing all or any part of its content to any 
other person.

--
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: SMP/E APPLY output capture question

[Hardee, Chuck]

Okay, I went back and revisited the JCL DD statements as you have indicated 
below.
I added a //SYSPRINT DD SYSOUT=* and reran the usermod APPLY.

It worked! Just as you indicated and just as I expected it to do the first time 
I tried this.

Now that I have something that works, I'm really confused as to what has 
transpired since I started this.
It's pretty hard to mess up a simple //SYSPRINT DD SYSOUT=* statement but 
that's all I can figure, I didn't have something right in the typing of the 
statement.

I'm going to go back and try the eventual modification that I want to make and 
see if I have the same result or something new.

Thanks John, and everyone else, for insisting that it should work.



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chase, John
Sent: Tuesday, November 11, 2014 11:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E APPLY output capture question

 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Hardee, Chuck
 
 No, at least not intentionally.
 When I run my usermod using no changes to the CSI and/or JCL, the output is 
 directed, via the MSGCLASS
 parm on the JOB statement to class X, which is a hold queue. When I modify 
 the output requirements to
 go to another class, class F in this case, it, too, is a held class that our 
 Production Control
 personnel receive output in that has to be reviewed and then, if it passes 
 muster, is filed into their
 source control system.
 
 In the off chance that that was the case, I added HOLD=YES on the DD 
 statement for SYSPRINT, but
 whether that worked or not, I can't say as I never received any output on 
 that DD when I ran my APPLY,
 which is another issue I had pointed out in previous replies.
 
 Frankly I am confused as to what is happening since what I am wanting to do 
 should be very straight
 forward.

Indeed, JCL overrides just work.

Assuming you have DDDEFs for all required datasets, your APPLY job that works 
could be as simple as:

//jobname  JOB acctg.info,MSGCLASS=X,...
//stepname EXEC PGM=GIMSMP[,REGION=0M[,...]]
//SMPCSI   DD DISP=SHR,DSN=my.smp.global.csi
//SMPCNTL  DD *
  SET BDY(tgtzone) .
  APPLY S(usermod) ASSEM REDO .
/*

Based on your descriptions, you get your //SYSPRINT output in class X.

To get your //SYSPRINT output into class F, you need only add one JCL statement:

//jobname  JOB acctg.info,MSGCLASS=X,...
//stepname EXEC PGM=GIMSMP[,REGION=0M[,...]]
//SMPCSI   DD DISP=SHR,DSN=my.smp.global.csi
//SYSPRINT DD SYSOUT=F  === add this statement
//SMPCNTL  DD *
  SET BDY(tgtzone) .
  APPLY S(usermod) ASSEM REDO .
/*

It really is that simple.

-jc-

**
Information contained in this e-mail message and in any attachments thereto is 
confidential. If you are not the intended recipient, please destroy this 
message, delete any copies held on your systems, notify the sender immediately, 
and refrain from using or disclosing all or any part of its content to any 
other person.

--
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: SMP/E APPLY output capture question

[Hardee, Chuck]

No, I have an APPLY CHECK step executing separately, ahead of, my APPLY.
It's the APPLY step I'm trying to capture.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
EAS Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Chase, John
Sent: Tuesday, November 11, 2014 11:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SMP/E APPLY output capture question

 -Original Message-
 From: IBM Mainframe Discussion List On Behalf Of Hardee, Chuck
 
 See, that's the rub.
 As I understand SMP/E, if there is no DD in the JCL, then SMP/E will allocate 
 based on the DDDEFs.
 If there is a DD in the JCL, then SMP/E will use it.
 
 The first attempt at capturing the output was to do exactly as you indicated.
 That didn't work for whatever reason, and I say it that way because not only 
 did I get no output on
 SYSPRINT, I did not get any errors reported on the JES log, SYSMSGs, SMPOUT 
 or SMPRPT.
 
 And, I'm using a usermod that APPLYs with a return code of 0 and an assembly 
 listing as well as a link
 map.

Are you perhaps trying to re-capture the //SYSPRINT by doing APPLY CHECK?  
With CHECK, you won't get any assembly or link-edit output.

-jc-

**
Information contained in this e-mail message and in any attachments thereto is 
confidential. If you are not the intended recipient, please destroy this 
message, delete any copies held on your systems, notify the sender immediately, 
and refrain from using or disclosing all or any part of its content to any 
other person.

--
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: xmitip txt2pdf

[Hardee, Chuck]

I use it all the time to spool job listings, assembly listing, etc for various 
reasons.
Don't have a problem with it at all.

Unfortunately, I had nothing to do with the current installation so I don't 
know if there were ever any problems with multi page PDFs.

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
CCG Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Brown
Sent: Friday, September 05, 2014 12:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: xmitip txt2pdf

Does anyone use Lionel Dycks txt2pdf process on z/os  to create multipage pdfs


Attempting to create 2 page pdf but result is just 1 page.

IN dd:report OUT dd:pdfs
IFEMPTY ERROR
ORIENT port
LM .25 TM .25 RM .25 BM .25
FONT  7 +
PAPER 8.5x11
IMAGE load/page1/'TEST.PAGE1.IMAGE'
IMAGE load/page2/'TEST.PAGE2.IMAGE'
IMAGE draw/ page1/0/0/100/0/36/36/0/0/1 last digit page #1
IMAGE draw/ page2/0/0/100/0/36/36/0/0/2 last digit page #2

Am I missing something?


Tim



--
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: DF/SORT question (challenge?)

[Hardee, Chuck]

Okay, let me say up front, I know nothing about the abilities of SORT other 
than simple sort this file on these keys and give me the output in this file. 
Okay, we're good?

Here's my question. If (can) sort insert records into its output on a break in 
key?
If so, why not sort the input file and, on each key break, generate an IEBUPDTE 
add control card and the write the record that belong to that card until the 
next key break. Do this for each key break and the resulting output file would 
be an IEUPDTE input stream that would then be fed into an IEBUPDTE job step 
that allocates a new PDS(e) and populates the members.

No need to dynamically create a dataset/member for every key break, just a 
single PS type output file, in key sequence, with control cards as needed.

Admittedly the control cards needed may be a bit more than a simple add/insert 
(don't recall what terminology IEBUPDTE uses, haven't used it in a while), and 
then there's the termination signal for each member, but if the idea has merit, 
well, it's worth a try.

Of course, all bets are off if the OP needs a unique PS type file for each key 
versus a member in a PDS(e) for each key.

Thanks for entertaining this idea.

Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
CCG Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of TonyIcloud-OPERA
Sent: Thursday, August 21, 2014 12:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DF/SORT question (challenge?)

Before I tried the solution cited below (TYVM BTW), I set up a test  
manually with some interesting results.  The input file is not sorted, and  
I'm only doing SORT FIELDS=COPY.  All I want to do is to break up the file  
into a bunch of little files.

Test #1. Read my input file, 229,762 records, lrecl=200/27800 FB , 310 DD  
statements, 310 OUTFIL INCLUDE statements.  RC=0, 310 members created, all  
the data checks out.

Test #2. Read the same input file, 321 DD statements, 321 OUTFIL INCLUDE  
statements, abends:

10.09.26 JOB08830 IEC036I 002-B4,IGC0005E,IDSXSB7A,AA,VS09610,4BB9,SHRE16,  
452
  452 IDSX00S.IDSXSB7.SYSE.FIDX03.PDSE

ICE185A 0 AN S002 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT  
(PHASE C 3)
Quickref provides:
B4 - Unable to create a system buffer required for PDSE processing.

I retried with regions of 16M, 32M, 0M, same result.  Not sure if our  
local storage police exit chokes off my attempt at 0M.


Interestingly, even though the abend occurred the output PDSE was  
populated with all 321 members however the last 8 members contain 0  
records.  Looks like DF/SORT was tripped up at the 313 mark by some system  
limitation. I'm going to consult with my sysprogs before we go to IBM for  
help.

P.S. My old successful attempt at writing 1,000 members occurred at a  
different company, a much smaller shop, oddly enough.






On Wed, 20 Aug 2014 12:01:00 -0500, Sri h Kolusu skol...@us.ibm.com  
wrote:

 Tony,

 It is quite easy to split the group of records into multiple members.  
 Here
 is a sample JCL which will give you the desired results of splitting the
 first 999 groups of records into a PDSE each containing the group of
 records. I also assumed your Input is already sorted on the field you  
 want
 to split. I assumed that the split field is 44 bytes in length. If it is
 different then you can change it in ALL the places referred by KEYBEGIN.

 This job creates a dynamic JCL which will then be submitted via INTRDR.
 Take a look at the output from Step0200 and then if everything looks ok
 then change the statement
 //SORTOUT  DD SYSOUT=*  to  //SORTOUT  DD SYSOUT=(*,INTRDR),RECFM=FB
 If you have more than 999 groups of records we will copy the rest of the
 records into another file which will then be used as input file to  
 further
 split. I will show you how to build the dynamic JCL's based on that. I
 chose the split to be 999 groups as the maximum number of DD statements
 per job step is 3273, based on the number of single DD statements allowed
 for a TIOT (task input output table) control block size of 64K. This  
 limit
 can be different depending on the installation defined TIOT size. The
 IBM-supplied default TIOT size is 32K.

 //*
 //*  BUILD DYNAMIC OUTFIL CARDS AND DDNAMES FOR EACH GROUP OF RECORDS *
 

Re: ASM calling C or C++ subroutines

[Hardee, Chuck]

David,

You say that the subroutine linkage is different. Can you tell me where the 
linkage is documented? I'd like to understand how XPLINK linkage works for 
incorporation into some of my routines.

Thanks,
Chuck

Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
CCG Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Tuesday, August 19, 2014 11:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ASM calling C or C++ subroutines

That looks good to me. Make sure that you setup the parameter lists 
correctly. C/C++ are call by value languages. The code path for calling 
a routine is just a few instructions. It loads LE control blocks into 
registers and then uses BSM to invoke the routine.

You certainly will need LE if your calling C/C++ code other than Metal/C.

You only need XPLINK if your C/C++ programs are compiled XPLINK. I 
always use XPLINK because it almost always generates faster code but the 
subroutine linkage is very different to OS linkage and you have to take 
that into consideration when debugging.

On 20/08/2014 4:28 AM, Donald Likens wrote:
 I have been looking at the LE documentation now for days and still not sure 
 what I need to do to have my Assembler program call C or C++ programs. I need 
 this interface to be very efficient because I will be calling these 
 subroutines maybe more than a 1,000,000 times a day. What I have come up with 
 is to use CEEPIPI to build the environment.

   LAR5,PPTBL   GET ADDRESS OF PIPI TABLE
   STR5,@CEXPTBLCEEXPTBL-ADDR - PIPI TABLE
   L R15,PPRTNPTR   GET ADDRESS OF CEEPIPI ROUTINE
 * INVOKE CEEPIPI ROUTINE
   CALL  (15),(INITSUB,@CEXPTBL,@SRVRTNS,RUNTMOPT,TOKEN)

 I will have three subroutines so I think I need to put each one of these 
 routines in the preinit table.

 Now I think I need to use CEEPIPI again when I want to call each subroutine.

   STR11,PARM
   L R15,PPRTNPTR   GET ADDRESS OF CEEPIPI ROUTINE
   CALL  (15),(CALLSUB,PTBINDEX,TOKEN,PARM,  X
 SUBRETC,SUBRSNC,SUBFBC)   INVOKE CEEPIPI ROUTINE

 Note:
 Note: The C routines have not been created yet, so I can't try these things 
 out.

 Questions:
 1) Do I have it correct?
 2) Do I even need LE?
 3) The book talks about XPLINK. I don't quite understand it. Is this 
 something I should explore more?

 --
 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: ASM calling C or C++ subroutines

[Hardee, Chuck]

Thanks!
I will take a look.


Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
CCG Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Leopold Strauss
Sent: Wednesday, August 20, 2014 5:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ASM calling C or C++ subroutines

Look at 'zOS Language Environment Vendor Interfaces'.

On 20.08.2014 11:35, Hardee, Chuck wrote:
 David,

 You say that the subroutine linkage is different. Can you tell me where the 
 linkage is documented? I'd like to understand how XPLINK linkage works for 
 incorporation into some of my routines.

 Thanks,
 Chuck

 Charles (Chuck) Hardee
 Senior Systems Engineer/Database Administration
 CCG Information Technology

 Thermo Fisher Scientific
 300 Industry Drive | Pittsburgh, PA 15275
 Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
 chuck.har...@thermofisher.com | www.thermofisher.com

 WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of 
 this e-mail or the information herein by anyone other than the intended 
 recipient, or an employee or agent of a system responsible for delivering the 
 message to the intended recipient, is prohibited. If you are not the intended 
 recipient, please inform the sender and delete all copies.

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
 Behalf Of David Crayford
 Sent: Tuesday, August 19, 2014 11:19 PM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: ASM calling C or C++ subroutines

 That looks good to me. Make sure that you setup the parameter lists
 correctly. C/C++ are call by value languages. The code path for calling
 a routine is just a few instructions. It loads LE control blocks into
 registers and then uses BSM to invoke the routine.

 You certainly will need LE if your calling C/C++ code other than Metal/C.

 You only need XPLINK if your C/C++ programs are compiled XPLINK. I
 always use XPLINK because it almost always generates faster code but the
 subroutine linkage is very different to OS linkage and you have to take
 that into consideration when debugging.

 On 20/08/2014 4:28 AM, Donald Likens wrote:
 I have been looking at the LE documentation now for days and still not sure 
 what I need to do to have my Assembler program call C or C++ programs. I 
 need this interface to be very efficient because I will be calling these 
 subroutines maybe more than a 1,000,000 times a day. What I have come up 
 with is to use CEEPIPI to build the environment.

LAR5,PPTBL   GET ADDRESS OF PIPI TABLE
STR5,@CEXPTBLCEEXPTBL-ADDR - PIPI TABLE
L R15,PPRTNPTR   GET ADDRESS OF CEEPIPI ROUTINE
 * INVOKE CEEPIPI ROUTINE
CALL  (15),(INITSUB,@CEXPTBL,@SRVRTNS,RUNTMOPT,TOKEN)

 I will have three subroutines so I think I need to put each one of these 
 routines in the preinit table.

 Now I think I need to use CEEPIPI again when I want to call each subroutine.

STR11,PARM
L R15,PPRTNPTR   GET ADDRESS OF CEEPIPI ROUTINE
CALL  (15),(CALLSUB,PTBINDEX,TOKEN,PARM,  X
  SUBRETC,SUBRSNC,SUBFBC)   INVOKE CEEPIPI ROUTINE

 Note:
 Note: The C routines have not been created yet, so I can't try these things 
 out.

 Questions:
 1) Do I have it correct?
 2) Do I even need LE?
 3) The book talks about XPLINK. I don't quite understand it. Is this 
 something I should explore more?

 --
 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


-- 
Mit freundlichen Grüßen / Kind Regards,
Leopold Strauss, Team DEV-zOsUnix, T: +43-2236-27551-331

--
For IBM-MAIN

Re: Return code 8 from open

[Hardee, Chuck]

He said he found that the SVC 99 allocate worked via ISRDDN.
It would seem to me that his program is being executed in a TSO session.

My question would be, would that message be written to the job log representing 
his session, the terminal screen as part of his output, or is it being held by 
TSO for him to ask for it?



Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
CCG Information Technology

Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
chuck.har...@thermofisher.com | www.thermofisher.com

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this 
e-mail or the information herein by anyone other than the intended recipient, 
or an employee or agent of a system responsible for delivering the message to 
the intended recipient, is prohibited. If you are not the intended recipient, 
please inform the sender and delete all copies.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jon Perryman
Sent: Wednesday, August 13, 2014 2:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Return code 8 from open




Probably a silly question but isn't there an error message in the job log 
describing the open error?

Jon Perryman

On Wednesday, August 13, 2014 8:22 AM, MichealButz michealb...@comcast.net 
wrote:
 
I am dynamically allocating a loadlib the SVC 99 is successful however I get
a return code 8 when I try to open it

I move the ddname returned by SVC 99 before I  open it here is the layout of
my DCB for the loadlib


--
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