DFSORT - SMF Records - GMT To EST

[Bill Woodger]

On Thursday, 4 February 2016 04:49:29 UTC, Gaur  wrote:
> Thanks Kolusu,
> 
> So here's the situation we have 5 way sysplex where 3 lpar's running with the 
> GMT timezone however 2 are running with separate asia time ...one is GMT -7 
> or 8 based on daylight saving and another is GMT +7 or 8  ...
> 
> Now requirement is to convert monthly collected the SMF Time and sync it 
> before get processed so that we do not compare apple with oranges 
> situation
> 
> Now I could certainly used the ERBCHGMT utility however issue with this I see 
> is with every year we will have to make the JCL Changes and go through the 
> change management cycle ...so instead of this was looking DFSORT where I have 
> parm library mentioned with the Time/date so that with every daylight saving 
> we adjust an hour accordingly without going lot of hassle..
> 
> Now I ran the example you gave and used the ERBSCAN to look at the data 
> before and after and see SMFTIME is coming out same , Do we have some way to 
> ensure DFSORT is really converting the time?
> 
> Rec-Num TypeRecLn SMFDate  SMFTime  RMFDate  RMFTime  Int-Len   
> SMFId/Vers S
> --- --- - - - - 
> -- -
>   1 01580 2015.306 00:00:19  
> 

Kolusu showed you how to do the type of calculation you'd need, using SYSIN 
data and plain-text dates and times (there are three SMF date formats 
available, and two SMF time formats, so without knowing which you are talking 
about, there was no point in his guessing).

"Since you haven't provided any kind of details of SMF records you are working 
with I am going to just show you an example of how it can be done."

No process is going to update the actual SMF records, so you can run ERBSCAN as 
much as you like, you'll never see the dates or times change.

If you have five systems, three on plain GMT, two in Asia using Daylight 
Saving, and one in the Americas using Daylight Saving (yes, I know that adds up 
to six) then "Sysplex reporting across time zones" already shows you how to do 
what you are asking (doesn't it?). You'd need three different processes, and 
then put all the adjusted data together. That's not exactly what the example 
shows, but you should be able to get there. 

With different parms at different times of the year? Isn't that a thing for 
your scheduler? Aren't you going to have some interesting "opportunities" when 
the time changes on three (or two) systems and not on the others?

System symbols for local dates and times can be easily accessed by DFSORT.

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

Count smf type 30-5 records

[Hilario Garcia]

Hello folks,

I need to extract some data from SMF type 30. The info are:

Userid
Jobname
Count (by Jobname on an expecific month)

I had tried using IBM Dfsort, but I can't get the number of a specific jobname 
on a user and on one month. I need this information:

USERID JOBNAME COUNT
user1joba 2
 jobb   18
 jobc  1

user2jobx  3

user3joby  2
 jobz  3

I had tried several Dfsort jobs but didn't work or the results are different to 
the correct.

I haven't any additional software like SAS, MXG, ...

Any suggestion on how to code a valid Dfsort for that ? Any example ?

Thanks in advance.

Kind Regards.

Hilario




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

Re: DFSORT - SMF Records - GMT To EST

[Martin Packer]

This worries me: You have to be careful to make sure the records remain 
internally consistent. Often there is MORE THAN ONE timestamp in a record. 
SMF~DTE and SMF~TME represent but one.

Cheers, Martin

Martin Packer,
zChampion, Principal Systems Investigator,
Worldwide Cloud & Systems Performance, IBM

+44-7802-245-584

email: martin_pac...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker
Blog: 
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker



From:   Ravi Gaur 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   04/02/2016 04:49
Subject:Re: DFSORT - SMF Records - GMT To EST
Sent by:IBM Mainframe Discussion List 



Thanks Kolusu,

So here's the situation we have 5 way sysplex where 3 lpar's running with 
the GMT timezone however 2 are running with separate asia time ...one is 
GMT -7 or 8 based on daylight saving and another is GMT +7 or 8  ...

Now requirement is to convert monthly collected the SMF Time and sync it 
before get processed so that we do not compare apple with oranges 
situation

Now I could certainly used the ERBCHGMT utility however issue with this I 
see is with every year we will have to make the JCL Changes and go through 
the change management cycle ...so instead of this was looking DFSORT where 
I have parm library mentioned with the Time/date so that with every 
daylight saving we adjust an hour accordingly without going lot of 
hassle..

Now I ran the example you gave and used the ERBSCAN to look at the data 
before and after and see SMFTIME is coming out same , Do we have some way 
to ensure DFSORT is really converting the time?

Rec-Num TypeRecLn SMFDate  SMFTime  RMFDate  RMFTime  Int-Len 
SMFId/Vers S
--- --- - - - - 
-- -
  1 01580 2015.306 00:00:19   

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



Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU

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

Re: Obtaining current ASID in REXX

[Binyamin Dissen]

PSAAOLD->ASCB (ASCBASID)

On Thu, 4 Feb 2016 12:03:18 + "Sankaranarayanan, Vignesh"
 wrote:

:>Hi folks,
:>
:>I'm looking for a piece of code in REXX to access the current ASID. I 
remember seeing this in one of the installation REXX'es that came with the BMC 
ICE for Control-M.
:>I'm hoping that one of you has had to do this in the past and can help me out 
here.
:>
:>Ex:
:>If I'm running a REXX via a job, the output should be the ASID of the job.
:>If I'm running a REXX via a ISPF, the output should be the ASID of my logon 
procedure.
:>
:>Thank you!
:>
:>- Vignesh
:>Mainframe Infrastructure
:>
:>
:>MARKSANDSPENCER.COM
:>
:>Unless otherwise stated above:
:>Marks and Spencer plc
:>Registered Office:
:>Waterside House
:>35 North Wharf Road
:>London
:>W2 1NW
:>
:>Registered No. 214436 in England and Wales.
:>
:>Telephone (020) 7935 4422
:>Facsimile (020) 7487 2670
:>
:>www.marksandspencer.com
:>
:>Please note that electronic mail may be monitored.
:>
:>This e-mail is confidential. If you received it by mistake, please let us 
know and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions,
:>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Director, Dissen Software, Bar & Grill - Israel


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

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

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

Re: Obtaining current ASID in REXX

[Sankaranarayanan, Vignesh]

? 
Sorry, I don't understand.
I'm looking this up now, hoping it's not an assembler way!

- Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Binyamin Dissen
Sent: Thursday, February 04, 2016 12:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Obtaining current ASID in REXX

PSAAOLD->ASCB (ASCBASID)

On Thu, 4 Feb 2016 12:03:18 + "Sankaranarayanan, Vignesh"
 wrote:

:>Hi folks,
:>
:>I'm looking for a piece of code in REXX to access the current ASID. I 
remember seeing this in one of the installation REXX'es that came with the BMC 
ICE for Control-M.
:>I'm hoping that one of you has had to do this in the past and can help me out 
here.
:>
:>Ex:
:>If I'm running a REXX via a job, the output should be the ASID of the job.
:>If I'm running a REXX via a ISPF, the output should be the ASID of my logon 
procedure.
:>
:>Thank you!
:>
:>- Vignesh
:>Mainframe Infrastructure
:>
:>
:>MARKSANDSPENCER.COM
:>
:>Unless otherwise stated above:
:>Marks and Spencer plc
:>Registered Office:
:>Waterside House
:>35 North Wharf Road
:>London
:>W2 1NW
:>
:>Registered No. 214436 in England and Wales.
:>
:>Telephone (020) 7935 4422
:>Facsimile (020) 7487 2670
:>
:>www.marksandspencer.com
:>
:>Please note that electronic mail may be monitored.
:>
:>This e-mail is confidential. If you received it by mistake, please let us 
know and then delete it from your system; you should not copy, disclose, or 
distribute its contents to anyone nor act in reliance on this e-mail, as this 
is prohibited and may be unlawful.
:>
:>--
:>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email 
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Director, Dissen Software, Bar & Grill - Israel


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

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

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

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

Obtaining current ASID in REXX

[Sankaranarayanan, Vignesh]

Hi folks,

I'm looking for a piece of code in REXX to access the current ASID. I remember 
seeing this in one of the installation REXX'es that came with the BMC ICE for 
Control-M.
I'm hoping that one of you has had to do this in the past and can help me out 
here.

Ex:
If I'm running a REXX via a job, the output should be the ASID of the job.
If I'm running a REXX via a ISPF, the output should be the ASID of my logon 
procedure.

Thank you!

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

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

Registered No. 214436 in England and Wales.

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

www.marksandspencer.com

Please note that electronic mail may be monitored.

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

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

Re: Obtaining current ASID in REXX

[Elardus Engelbrecht]

Sankaranarayanan, Vignesh wrote:

>Sorry, I don't understand.
>I'm looking this up now, hoping it's not an assembler way!

You use the REXX functions like C2D and STORAGE, etc. to chase those pointers.

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

Re: Anyone seen Mr. Gilmore?

[Aled Hughes]

Thanks for the info Tony, and Lindy reminded me of John's wife's name. Sadly, 
Mrs. Gilmore (Kate) passed away in January last year. She was an author. 


https://www.sfsite.com/news/2015/01/13/obituary-kate-gilmore/


She also had her own website: http://www.kategilmore.net/


We can only hope that John will return to add his wise counsel on the forum 
soon. 


Best regards
Aled L Hughes







-Original Message-
From: Tony Harminc 
To: IBM-MAIN 
Sent: Wed, 3 Feb 2016 23:46
Subject: Re: Anyone seen Mr. Gilmore?

On 3 February 2016 at 15:02, Pommier, Rex  wrote:
> Is this the same John Gilmore?  The obituary you listed is from January of 
> 2015, and I found a note from Elardus from November stating that John hadn't 
> posted anything since November 5, 2015.

Though John Thomas "Jack" Gilmore Jr. sounds like a fascinating
fellow, he cannot be "our" John Gilmore. The birthdate (even the
month) doesn't match, neither does his wife's first name, and it is
inconceivable that there would be no mention of our Mr Gilmore's
European education and language facility.

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: Question about secondary maintenance companies

[R.S.]

W dniu 2016-02-04 o 20:50, Lopez, Sharon pisze:

Does anyone have any experiences (good or bad) with secondary maintenance type 
companies that will support IBM mainframes?

CPUservice is fine. 35 years of experience.

--
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.2016 r. kapita zakadowy mBanku S.A. (w caoci 
wpacony) wynosi 168.955.696 zotych.


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

Re: JES3 to JES2 Migration (was JES2 to JES3 Migration)

[John Baker]

Cheryl, you may want to check out our help in this area (as well as the 
numerous other benefits of ThruPut Manager that you know and love :-)

http://www.mvssol.com/papers.htm

See the paper entitled: ThruPut Manager and JES3: Bringing the best of JES3 to 
JES2 installations.

See you at Share!

John Baker

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Tom Brennan]

You're right I think, and that would be another good analogy.  I'm 
pretty sure stdin and stdout are opened prior to calling the specified 
program, very much like JCL allocation is done before PGM= gets control.


These are the similarities I'm looking for that might help someone move 
from unix/windows to the mainframe environment without getting 
completely frustrated.


Ed Gould wrote:



To be fair to zOS There are "probably" the same files needed for UNIX  
its just they are "assumed".


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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Paul Gilmartin]

On Thu, 4 Feb 2016 15:30:53 -0600, Ed Gould wrote:

>On Feb 4, 2016, at 2:00 PM, Tom Brennan wrote:
>>
>> Unix Style:
>>
>> cat /etc/passwd | grep ^ted013: | awk -F':' '{print $3}'
>>
>> JCL Style:
>>
>> //CAT  EXEC PGM=CAT
>> //SYSUT1   DD   DSN=SYS1.ETC.PASSWD,DISP=SHR
>> //SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
>> //*
>> //GREP EXEC PGM=GREP
>> //SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
>> //SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
>> //SYSINDD   *
>>  ^ted013:
>> /*
>> //AWK  EXEC PGM=AWK
>> //SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
>> //SYSUT2   DD   SYSOUT=*
>> //SYSINDD   *
>>  awk -F':' '{print $3}'
>> /*
>> unix :)-SNIP-
>
>To be fair to zOS There are "probably" the same files needed for UNIX
>its just they are "assumed".
> 
No, they are not; not even as RAM disk files.  A pipe communicates directly
between processes (like "tasks").  A DOS partisan once explained his
misunderstanding of pipes to me that way:

CAT reads /etc/passwd and writes to temporary file TEMP1.
When CAT terminates, GREP reads TEMP1 and writes TEMP2
When GREP terminates, AWK reads TEMP2 and writes to stdout.

Tom's JCL is actually:

cat /etc/passwd >temp1; grep ^ted013 temp2; awk -F':' '{print $3}'; 
rm temp1 temp2

In Tom's UNIX example, the stages run concurrently.  This can make a big
difference if the first stage is long-running: you see output before it 
terminates
(subject to some annoying buffer latency).

I could (and have) connected Classic OS programs with POSIX pipes in Rexx.
That takes more than 16 lines.  (You could omit the comments and endfiles.)

I do see lack of temporary data sets as a design flaw of UNIX.

-- gil

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Joel C. Ewing]

On 02/04/2016 12:52 PM, Ed Gould wrote:
> http://destinationz.org/Mainframe-Solution/Trends/What-the-Heck-Is-JCL-and-Why-Does-It-Look-So-Funny
>
>
>
> What the Heck Is JCL and Why Does It Look So Funny?
> It’s important to give job control language its due respect helping
> others
> - See more at:
> http://destinationz.org/Mainframe-Solution/Trends/What-the-Heck-Is-JCL-and-Why-Does-It-Look-So-Funny#sthash.TRwMFSIg.dpuf
>
The article starts with a Fred Brooks quote  about JCL being the "worst
computer programming language ever devised", which if you class it as
such is probably true.  Job Control Language is indeed an artificial
language, but I wouldn't dignify it by calling it a programming
language.  Syntax is only part of the problem: even after enhancements
over the years, there is still no run-time looping capability, very
marginal conditional logic support, and painfully limited variable
support.  While it's true that JCL can execute any arbitrary program,
the interfaces between the JCL and those programs is also very limited,
greatly restricting what an invoked program can do to enhance the
capability of the JCL language itself.

Except for implementation limits on storage and array sizes, finite
external file space, and practical limitations on execution time,
programming languages like FORTRAN, COBOL, PL/I, Algol, Ada, etc. could
all be used to program a Universal Turing Machine and in theory solve
any computable problem, so you could envision these languages as all
having a some degree of functional equivalency.  Without loops, decent
conditional logic, arrays, or reasonable variable types JCL is unable to
play in that league.  There is a good reason why JCL is not normally
regarded as a "Programming" language.

-- 
Joel C. Ewing,Bentonville, AR   jcew...@acm.org 

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

Re: SMS

[Rob Schramm]

Dare I recommend the system commands manual?

If I didn't document it, I always start there.

On Thu, Feb 4, 2016, 4:39 PM Steve Beaver  wrote:

> I just flat forgot the he SETSMS commands to BACKUP and then ACTIVATE sms
> changes
>
>
> Steve
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
-- 

Rob Schramm
The Art of Mainframe, Inc

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

Re: IGD17279I due to insufficient space

[Graham Harris]

Do you have another dataclass you can use which has Space Constraint Relief
 = YES?

On 4 February 2016 at 17:25, Mike Geiger  wrote:

> Additional information.  The SCDS does match the ACDS(I really did do a
> setsms, many of them).  Had I been thinking a bit deeper I would have used
> the ACDS for the ISMF info!
>
> Mike
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Mike Geiger
> Sent: Thursday, February 04, 2016 12:09 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: IGD17279I due to insufficient space
>
> Looking for some insight.  I am configuring our new z/OS 2.2 ADCD at
> RSU1508 system(already have a 2.1, 1.13 and 1.11) Why is the following
> define failing?  Everything looks ok to me. Adequate space is available.
>
> All multi-volume allocations of any type fail.  SMS seems to be attempting
> to define all the space on a single volume.
>
>  DEFINE CLUSTER (NAME(USER.SPACE.ZFS) -
> VOLUMES(USER13 * * * *)  -
> DATACLASS(EXTENDED)-
> LINEAR MB(86000)  SHAREOPTIONS(3)) IGD17226I THERE IS AN
> INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY
> THIS REQUEST FOR DATA SET USER.SPACE.ZFS IGD17290I THERE WERE 1 CANDIDATE
> STORAGE GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION.
> THE CANDIDATE STORAGE GROUPS WERE:DEFAULT IGD17279I 5 VOLUMES WERE
> REJECTED BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE
> OF DATA SET USER.SPACE.ZFS IDC3003I FUNCTION TERMINATED. CONDITION CODE IS
> 12
>
>
> STORGRP  TYPESYSTEM= 1
> DEFAULT  POOL+
>   SPACE INFORMATION:
>   TOTAL SPACE = 132775MB USAGE% = 18 ALERT% = 0
>   TRACK-MANAGED SPACE = 132775MB USAGE% = 18 ALERT% = 0
> VOLUME   UNITSYSTEM= 1   STORGRP NAME
> USER10   0AA9+ DEFAULT
> USER11   0AAA+ DEFAULT
> USER12   0AAB+ DEFAULT
> USER13   0AAE+ DEFAULT
> USER14   0AAF+ DEFAULT
>
> VOLUME FREE   % ALLOC  FRAG   LARGESTFREE INDEX
>  FREE FREE
> SERIAL SPACE  FREE  SPACE  INDEX  EXTENT EXTENTS  STATUS
> DSCBSVIRS
> -(2)-- ---(3)---  (4)-  ---(5)---  -(6)-  ---(7)---  --(8)--  --(9)---
> -(10)--  -(11)--
> USER10 27176309K99 15771K  0  27176309K1  ENABLED
> 4446  909
> USER11 27176032K99 16048K  0  27176032K1  ENABLED
> 4445  909
> USER12 27187376K99  4704K  0  27184609K2  ENABLED
> 1446  909
> USER13 27176309K99 15771K  0  27176309K1  ENABLED
> 4446  909
> USER14 27176309K99 15771K  0  27176309K1  ENABLED
> 4446  909
>
>
> ISMF details for data class, storage class and storage group.
>
> CDS Name  . . . : SYS1.SCDS
> Data Class Name : EXTENDED  (media section omitted all blank)
>
> Description : FOR DATASET REQUIRING EXTENDED ATTRIBUTES
>
> Recfm  . . . . . . . . . :
> Lrecl  . . . . . . . . . :
> Override Space . . . . . : NO
> Space Avgrec . . . . . . :
>   Avg Value  . . . . :
>   Primary  . . . . . :
>   Secondary  . . . . :
>   Directory  . . . . :
> Retpd Or Expdt . . . . . :
> Volume Count . . . . . . : 255
> Add'l Volume Amount  . . :
> Data Set Name Type  . . . . . : EXTENDED
>   If Extended . . . . . . . . : PREFERRED
>   Extended Addressability . . : YES
>   Record Access Bias  . . . . : USER
>   RMODE31 . . . . . . . . . . :
> Space Constraint Relief . . . : NO
>   Reduce Space Up To (%)  . . :
>   Guaranteed Space Reduction  : NO
>   Dynamic Volume Count  . . . :
>
> Compaction  . . . . . . . . . :
> Spanned / Nonspanned  . . . . :
> System Managed Buffer  . . . :
> System Determined Blocksize  : NO
> Block Size Limit . . . . . . :
> EATTR  . . . . . . . . . . . :
> Recorg . . . . . . . . . . . :
> Keylen . . . . . . . . . . . :
> Keyoff . . . . . . . . . . . :
> CIsize Data  . . . . . . . . :
> % Freespace CI . . . . . . . :
> CA . . . . . . . :
> Shareoptions Xregion . . . . :
>  Xsystem . . . . :
> Reuse  . . . . . . . . . . . : NO
> Initial Load . . . . . . . . : RECOVERY
> BWO  . . . . . . . . . . . . :
> Log  . . . . . . . . . . . . :
> Logstream Id . . . . . . . . :
> FRlog  . . . . . . . . . . . :
> RLS CF Cache Value . . . . . : ALL
> RLS Above the 2-GB Bar . . . : NO
> Extent Constraint Removal  . : NO
> CA Reclaim . . . . . . . . . : YES
> Log Replicate  . . . . . . . : NO
>
>
> CDS Name  . . . . . : SYS1.SCDS
> Storage Class Name  : DEFAULT
>
> Description  : DEFAULT, UNASSIGNED GO HERE
>
> Performance Objectives
>   Direct Millisecond Response  . . . :
>   Direct Bias  . . . . . . . . . . . :
>   Sequential Millisecond Response  . :
>   

Re: memory leak doing gsk_environment_open()

[Charles Mills]

Good to know. I like the default behavior, but good to know. Thanks,

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Carl Kugler
Sent: Thursday, February 04, 2016 11:54 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: memory leak doing gsk_environment_open()

> if the requested storage that caused the heap to expand gets returned 
> with a free() or delete I do not believe the C runtime issues a 
> STORAGE RELEASE for the additional increment of heap: it keeps it around in 
> anticipation of future malloc() or new requests. It does not RELEASE the heap 
> storage until the enclave ends.

You can control that with the FREE option on the HEAP LE runtime option. 
See z/OS 2.2.0>z/OS Language Environment>z/OS Language Environment Programming 
Reference>Language Environment runtime options>Using the Language Environment 
runtime options>HEAP.
http://www-01.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ceea300/clheap.htm?lang=en-us

"KEEP
Specifies that an increment to user heap storage is not released when the last 
of the storage within that increment is freed.
FREE
Specifies that an increment to user heap storage is released when the last of 
the storage within that increment is freed."

KEEP is the default.

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Paul Gilmartin]

On Thu, 4 Feb 2016 15:03:12 -0600, Joel C. Ewing wrote:
>
>Except for implementation limits on storage and array sizes, finite
>external file space, and practical limitations on execution time,
>programming languages like FORTRAN, COBOL, PL/I, Algol, Ada, etc. could
>all be used to program a Universal Turing Machine and in theory solve
>any computable problem, so you could envision these languages as all
>having a some degree of functional equivalency.  Without loops, decent
>conditional logic, arrays, or reasonable variable types JCL is unable to
>play in that league.  There is a good reason why JCL is not normally
>regarded as a "Programming" language.
> 
JCL may be halfway there.  Recursion is equivalent in computational
power to iteration.  Since lately JCL PROC calls can be nested,
recursion should be possible, albeit with a severe " implementation
limit".  The half entirely missing is conditional logic in the converter.

-- gil

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

SMS

[Steve Beaver]

I just flat forgot the he SETSMS commands to BACKUP and then ACTIVATE sms 
changes


Steve   

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

Sort Job

[Bill Woodger]

Ron,

Kolusu develops the DFSORT product. Apparently you use a competing product, and 
it is not reasonable to get him to aid you with that.

Anyway, as I have said already, it is not the control cards that are difficult, 
it is knowing what you want to do.

With the REDEFINES there is, theoretically, nothing you need to do beyond the 
type of code you already have. Then tell your receiver how to identify on each 
record how many decimal places those fields have.

To my mind, that is not a good way to do it, but it is one way to do it. Better 
to have a field saying how many decimal places, or an embedded, actual, for 
real, decimal-point (which can be a comma for Continental Europe, for instance).

If you can say what you want to do, it is easy to show you how to do it. 
 
On Thursday, 4 February 2016 19:03:53 UTC, Ron Thomas  wrote:
> so kolusu, could you let me know how this can be reformatted using sort ? 
> Thanks!

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Pew, Curtis G]

On Feb 4, 2016, at 3:03 PM, Joel C. Ewing  wrote:
> 
> Job Control Language is indeed an artificial
> language, but I wouldn't dignify it by calling it a programming
> language.

When I do staff training on JCL, I describe it as a human interface language. 
Human-computer interfaces depend on input-output technologies. For the past two 
or three decades, when our main I/O technologies have been graphical monitors, 
keyboards, and mice, most of our computers have had windowed graphical 
interfaces supporting “point-and-click” interactions. With the invention of 
touch sensitive displays for smartphones and tablets, we’re in the middle of a 
transition to a new style of interfaces based on touching, pinching, swiping, 
etc. Those of us who’ve been around for a while remember an earlier transition 
to the “point-and-click” windowed interfaces from command line interfaces like 
the Unix or DOS or TSO READY prompts, when our main I/O technologies were 
keyboards and text monitors. JCL comes from an even earlier era when the punch 
card was the primary input technology.

When you think of an EXEC statement as the ancient equivalent of 
double-clicking or touching an application icon, and a DD statement as the 
equivalent of an open or save dialog, JCL makes more sense and some of it’s 
limitations seem more reasonable. On the other hand, thinking of it as a 
programming language (or even a scripting language) creates false expectations 
that lead to disappointment and frustration.

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

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Ed Gould]

On Feb 4, 2016, at 2:00 PM, Tom Brennan wrote:

That's great stuff, and how mainframe methods need to be taught  
today. College students understand unix and windows, and need to  
know the (can I say odd?) differences they will see on the  
mainframe, along with a bit of history.


I'm currently trying to write up some notes for some (possible) new  
mainframers who already know unix, and this is one of my comparisons:


Unix Style:

cat /etc/passwd | grep ^ted013: | awk -F':' '{print $3}'

JCL Style:

//CAT  EXEC PGM=CAT
//SYSUT1   DD   DSN=SYS1.ETC.PASSWD,DISP=SHR
//SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
//*
//GREP EXEC PGM=GREP
//SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
//SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
//SYSINDD   *
 ^ted013:
/*
//AWK  EXEC PGM=AWK
//SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
//SYSUT2   DD   SYSOUT=*
//SYSINDD   *
 awk -F':' '{print $3}'
/*

Of course we don't normally have MVS programs named CAT/GREP/AWK  
but I'm hoping to show how we chain programs together using JCL,  
and relate that to unix commands that a student today already knows  
well.  Then I just have to try and explain why it takes 16 lines of  
JCL to do the same thing as one line in  
unix :)-SNIP-


To be fair to zOS There are "probably" the same files needed for UNIX  
its just they are "assumed".


Ed

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Ed Gould]

On Feb 4, 2016, at 3:03 PM, Joel C. Ewing wrote:


On 02/04/2016 12:52 PM, Ed Gould wrote:
http://destinationz.org/Mainframe-Solution/Trends/What-the-Heck-Is- 
JCL-and-Why-Does-It-Look-So-Funny




What the Heck Is JCL and Why Does It Look So Funny?
It’s important to give job control language its due respect helping
others
- See more at:
http://destinationz.org/Mainframe-Solution/Trends/What-the-Heck-Is- 
JCL-and-Why-Does-It-Look-So-Funny#sthash.TRwMFSIg.dpuf


The article starts with a Fred Brooks quote  about JCL being the  
"worst

computer programming language ever devised", which if you class it as
such is probably true.  Job Control Language is indeed an artificial
language, but I wouldn't dignify it by calling it a programming
language.  Syntax is only part of the problem: even after enhancements
over the years, there is still no run-time looping capability, very
marginal conditional logic support, and painfully limited variable
support.  While it's true that JCL can execute any arbitrary program,
the interfaces between the JCL and those programs is also very  
limited,

greatly restricting what an invoked program can do to enhance the
capability of the JCL language itself.


Looping is there but not necessarily in the same set of JCL. One only  
has to feed the intrdr and walla you can loop .


Rf



Except for implementation limits on storage and array sizes, finite
external file space, and practical limitations on execution time,
programming languages like FORTRAN, COBOL, PL/I, Algol, Ada, etc.  
could

all be used to program a Universal Turing Machine and in theory solve
any computable problem, so you could envision these languages as all
having a some degree of functional equivalency.  Without loops, decent
conditional logic, arrays, or reasonable variable types JCL is  
unable to

play in that league.  There is a good reason why JCL is not normally
regarded as a "Programming" language.


Err what is ifthen, else is classic logic and as I mentioned earlier  
you can feed the intrdr to do another task of if you want to get  
original BPXBATCH can start another address space.


This is "relatively" new so its not surprising the author didn't  
mention it surprising .


Ed


--
Joel C. Ewing,Bentonville, AR   jcew...@acm.org 

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

[David Speake]

Come to think of it, CITRIX probably is not the villain.
They are running it in a browser window, logging on to a
web site inside  the firewall. Browser is probably the villain.
Oh well

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

Inline panel display was: Obtaining current ASID in REXX

[Dana Mitchell]

Thats cool.  I always wish ISPF had a way to display a panel from inline data.

Dana 

On Thu, 4 Feb 2016 17:23:58 +, Lindy Mayfield  
wrote:

>
>It runs under ISPF.  You just have to exec it.  I put all the ISPF stuff 
>inside the code as data. ;-)
>
>Kind regards,
>Lindy
>

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

Re: Count smf type 30-5 records

[Robert A. Rosenberg]

At 13:16 -0700 on 02/04/2016, Sri h Kolusu wrote about Re: Count smf 
type 30-5 records:



If you want DFSORT to extract the values from Raw SMF data then what
fields correspond to Userid, Jobname(SMF30JBN ??) and Date from the SMF-30
Record mapping? Remember the raw smf have variable length segments where
the offset and the length are stored in the record and you need
dynamically access the information which would require an addition pass of
data.


Due to the variable length segment issue, just using Sort Cards to 
map the file is not going to fly well. IMO, the simplest way of 
extracting the needed fields is to just have someone who is capable 
of writing simple Assembler code to just write a program to extract 
the fields and output a simple file with them. This file can then be 
sent through the sort which consolidates and counts them to output a 
report whenever a field changes.


I know that you are looking for a way to have sort handle all the 
work, but doing the record selection/parsing is better delegated to 
something that can locate the data. Back in the when I was still 
coding, this type of task was one that I would toss off as a 
Quick project in an hour or two.


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

Re: memory leak doing gsk_environment_open()

[Robert A. Rosenberg]

If the extra heap size is minor and one-time (being reused when 
needed) I would say to just let it stay allocated. Using the setting 
to free it after use might be a bad idea since the next time you need 
it you will go through another allocate cycle again followed by 
another release one. Is the extra effort/processing worth the saving 
of the Heap storage while not in use?




At 11:43 -0800 on 02/04/2016, Charles Mills wrote about Re: memory 
leak doing gsk_environment_open():



OK, I ran some tests.

The bad news is yes, in my environment, GSK seems to leak storage -- 
that is, it allocates storage that it does not free. The good news 
is that (1) it seems to be "one time," not per session; and (2) the 
storage is modest: eight allocations totaling 0x510 bytes.


I see an increase in HEAP (the heap specifically named HEAP) with 
GSK as opposed to plain old TCP, but it is not dramatic -- nowhere 
near a megabyte -- somewhere around 100K.


HTH

Charles

-Original Message-
From: IBM Mainframe Discussion List 
[mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Charles Mills

Sent: Tuesday, February 02, 2016 4:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: memory leak doing gsk_environment_open()


   
I use the gsk functions from C++ with no (known!) issues. I will 
look at the code when I get back to the office Thursday.


--
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: DFSORT - SMF Records - GMT To EST

[Andrew Rowley]

On 5/02/2016 5:15, Paul Gilmartin wrote:

I mentioned Java.  Not realistic.  It produces correct answers, but
performance is abysmal.


Do you say that because you tried it, or because everyone says it?

As part of the development of the API I have been doing some performance 
testing. These are CPU times to read/report about 8GB of SMF data:


DFSORT:
CP time 0.78 s

Assembler, reading every record but no reporting:
CP time 1.24 s

C reading every record, no report:
CP time 1.4 s

Java batch job, basic report:
CP time 0.9 s
+ zIIP time 2.4s

(These shouldn't be considered accurate benchmarks, they were tests to 
get a basic feel for performance.)


Java is not as good as assembler, but I wouldn't call it abysmal. I have 
ambitions to improve it although that may be difficult as most of the 
time seems to be in the I/O routines.


Regards

Andrew Rowley
Black Hill Software
+61 413 302 386

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Tom Brennan]

I probably wasn't clear that the 3 step job is just an example to let a 
unix person relate their data-passing methods to ours.  If I put all 
that in a single step it would kind of defeat the purpose of the example.


Ed Gould wrote:

The three jobsteps can be cut down to one if you use the "new"  control 
cards in sort.

Ask the sort people too show you how.



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

Re: DFSORT - SMF Records - GMT To EST

[Paul Gilmartin]

On Thu, 4 Feb 2016 18:21:04 -0700, Lizette Koehler wrote:

>There is an article I found that provides information on using REXX to handle 
>SMF Records. Looks like you might be able to use the DATE function in REXX to 
>do what you want.  Just a thought.
>
>http://ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rexx_smf_part1/
>
>http://www.ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rexx_smf_part2/
>
I believe Rexx has a fairly rich set of date formatting and converting 
functions,
but I know of none for time conversion; not even GMT<->LOCAL.

-- gil

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

Re: Stand-Alone DSS RESTORE with 3584 Library - How??

[Ed Jaffe]

On 2/4/2016 9:58 PM, Skip Robinson wrote:

I'd like to suggest an alternative recovery strategy...

Instead of standalone restore, plan to recover a system rather than a volume or 
two. You don't need to restore sysres. You should have at least two sysres 
volumes anyway that you swap between for maintenance. Would you really lose 
both of them? IPL from the alternate. What you really need is a single volume 
for critical components: master catalog, RACF, spool, PROC/PARMLIBs, whatever 
it takes to get a sysprog logged on to run actual recovery jobs. It does not 
have to be pretty, just minimally functional for a SME who knows how to put 
Humpty Dumpty back together again. That volume is always available and can be 
tested periodically to make sure it works. Just a thought.


There is no alternate sysres or existing system of any kind. (If there 
was, we would use it.)


What we have is a brand new zBC12 CEC, with an unformatted DS8xxx DASD 
box, in a brand new location twelve hundred miles away, with no starter 
or bootstrap system of any kind. As Paul Robichaux would say, "We're 
starting from dirt!"


Our plan is to send a sysprog carrying a tape to the new location with 
SA DSS RESTORE on file #1, a DASD volume with SA DSS RESTORE IPL text as 
file #2, and enough other volumes on files #3 through #n to bring up a 
simple MVS system that can then restore everything else -- including 
z/VM, zLinux, z/VSE, etc.


We need to test the process here to be sure it all works before anyone 
flies halfway across the country to do it for real. The problem is, we 
can't figure out how to mount the tape. Talk about "dirt!" :-0


--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

Re: Stand-Alone DSS RESTORE with 3584 Library - How??

[Crispin Hugo]

I have not tried this personally but IBM System Storage TS3500 Tape Library  
GUI under section  Cartridges allows one to select cartridge in Library and 
move it to a specific slot,  the slot can be any of the cartridge drives in the 
Library. I assume then that one could IPL from the cartridge drive. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: 05 February 2016 07:38
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Stand-Alone DSS RESTORE with 3584 Library - How??

On 2/4/2016 9:58 PM, Skip Robinson wrote:
> I'd like to suggest an alternative recovery strategy...
>
> Instead of standalone restore, plan to recover a system rather than a volume 
> or two. You don't need to restore sysres. You should have at least two sysres 
> volumes anyway that you swap between for maintenance. Would you really lose 
> both of them? IPL from the alternate. What you really need is a single volume 
> for critical components: master catalog, RACF, spool, PROC/PARMLIBs, whatever 
> it takes to get a sysprog logged on to run actual recovery jobs. It does not 
> have to be pretty, just minimally functional for a SME who knows how to put 
> Humpty Dumpty back together again. That volume is always available and can be 
> tested periodically to make sure it works. Just a thought.

There is no alternate sysres or existing system of any kind. (If there was, we 
would use it.)

What we have is a brand new zBC12 CEC, with an unformatted DS8xxx DASD box, in 
a brand new location twelve hundred miles away, with no starter or bootstrap 
system of any kind. As Paul Robichaux would say, "We're starting from dirt!"

Our plan is to send a sysprog carrying a tape to the new location with SA DSS 
RESTORE on file #1, a DASD volume with SA DSS RESTORE IPL text as file #2, and 
enough other volumes on files #3 through #n to bring up a simple MVS system 
that can then restore everything else -- including z/VM, zLinux, z/VSE, etc.

We need to test the process here to be sure it all works before anyone flies 
halfway across the country to do it for real. The problem is, we can't figure 
out how to mount the tape. Talk about "dirt!" :-0

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

-- 
This e-mail message has been scanned and cleared by Google Message Security 
and the UNICOM Global security systems. This message is for the named 
person's use only. If you receive this message in error, please delete it 
and notify the sender. 

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

Re: DFSORT - SMF Records - GMT To EST

[Ed Gould]

Andrew:

Its been a while since I have looked at timings, but if I recall  
correctly the SRB time can be a killer depending on what you are doing.
Also not to get into the middle of anything. DFSORT is *OPTIMIZED*  
for IO and it is FAST. So a simple assembler program can be slower  
that DFSORT just because of the IO.


Ed

On Feb 4, 2016, at 8:49 PM, Andrew Rowley wrote:


On 5/02/2016 13:37, Mike Schwab wrote:

C?  Can you give Lua a shot?
https://en.wikipedia.org/wiki/Lua_(programming_language)
http://www.lua.org/versions.html
http://luaforge.net/projects/mvs38/
http://lua4z.com/doc/manual/using.md.html
I don't have the time to learn Lua at the moment, but if someone  
else wants to try it I am happy to create the Java equivalent for a  
comparison.


The C and Assembler tests were just to gauge I/O cost, so they did  
nothing but read every record.


The Java test did create a basic report to ensure that the file  
read didn't get optimized out or something silly like that.


Andrew Rowley
Black Hill Software
+61 413 302 386

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

Java (was: DFSORT - SMF Records - GMT To EST)

[Paul Gilmartin]

On Fri, 5 Feb 2016 10:15:41 +1100, Andrew Rowley wrote:

>On 5/02/2016 5:15, Paul Gilmartin wrote:
>> I mentioned Java.  Not realistic.  It produces correct answers, but
>> performance is abysmal.
>>
>Do you say that because you tried it, or because everyone says it?
> 
Bad experience, probably arising from bad inexperience.

>As part of the development of the API I have been doing some performance
>testing. These are CPU times to read/report about 8GB of SMF data:
>
>DFSORT:
>CP time 0.78 s
>
>Assembler, reading every record but no reporting:
>CP time 1.24 s
> 
So, DFSORT outperforms Assembler.  The developers put a lot of
smarts into that.  But that's what DFSORT is for, not for time zone
conversion.

>C reading every record, no report:
>CP time 1.4 s
>
>Java batch job, basic report:
>CP time 0.9 s
>+ zIIP time 2.4s
>
OK.  I'm doing something very wrong.  (I believe we have no zIIPs.)  I'll post 
my source:

import java.text.ParseException;
import java.text.SimpleDateFormat;
import java.util.Date;
import java.util.TimeZone;

public class TimeZoneTest {
public static void main(String[] argv) throws ParseException {

SimpleDateFormat formatter = new SimpleDateFormat("dd-M- 
hh:mm:ss a");

String dateInString = "22-01-2015 10:15:55 AM";
// Date date = formatter.parse(dateInString);
Date date = new Date();
TimeZone tz = TimeZone.getDefault();

// From TimeZone America/Denver
System.out.println("TimeZone : " + tz.getID() + " - " + 
tz.getDisplayName());
System.out.println("TimeZone : " + tz);
System.out.println("Date : " + formatter.format(date));

// To Target TimeZone
SimpleDateFormat sdfTarget = new SimpleDateFormat("dd-M- 
hh:mm:ss a");
TimeZone tzInTarget = TimeZone.getTimeZone("Asia/Pyongyang");
sdfTarget.setTimeZone(tzInTarget);

String sDateInTarget = sdfTarget.format(date); // Convert to 
String first
Date dateInTarget = formatter.parse(sDateInTarget);

System.out.println("\nTimeZone : " + tzInTarget.getID() +
  " - " + tzInTarget.getDisplayName());
System.out.println("TimeZone : " + tzInTarget);
System.out.println("Date (String) : " + sDateInTarget);
System.out.println("Date (Object) : " + 
formatter.format(dateInTarget));
}
}

And output; not 8 GB data, but none at all:

user@OS/390.25.00: ls -al `whence java` 

-rwxr-xr-x   1 OMVSKERN OMVS  106496 Jul 16  2015 
/usr/lpp/java/J8.0_64/bin/java
user@OS/390.25.00: time java -version   

java version "1.8.0"
Java(TM) SE Runtime Environment (build pmz6480sr1fp10-20150716_01(SR1 FP10))
IBM J9 VM (build 2.8, JRE 1.8.0 z/OS s390x-64 Compressed References 
20150630_255633 (JIT enabled, AOT enabled)
J9VM - R28_jvm.28_20150630_1742_B255633
JIT  - tr.r14.java_20150625_95081.01
GC   - R28_jvm.28_20150630_1742_B255633_CMPRSS
J9CL - 20150630_255633)
JCL - 20150715_01 based on Oracle jdk8u51-b15

real0m 5.01s
user0m 2.04s
sys 0m 0.67s
user@OS/390.25.00: time java -jar zones.jar 

Date = 1970-01-01 00:00:00.000 GMT

time = 1454629394839
Date = 2016-02-04 23:43:14.839 GMT
Date = 2016-02-04 16:43:14.839 America/Denver
Date = 2016-02-04 18:43:14.839 America/New_York
Date = 2016-02-04 23:43:14.839 Europe/London
Date = 2016-02-05 10:43:14.839 Australia/Canberra
Date = 2016-02-05 13:43:14.839 Pacific/Apia
Date = 2016-02-05 08:43:14.839 Asia/Pyongyang

time = 130947840
Date = 2011-07-01 00:00:00.000 GMT
Date = 2011-06-30 18:00:00.000 America/Denver
Date = 2011-06-30 20:00:00.000 America/New_York
Date = 2011-07-01 01:00:00.000 Europe/London
Date = 2011-07-01 10:00:00.000 Australia/Canberra
Date = 2011-06-30 13:00:00.000 Pacific/Apia
Date = 2011-07-01 09:00:00.000 Asia/Pyongyang

time = 145160640
Date = 2016-01-01 00:00:00.000 GMT
Date = 2015-12-31 17:00:00.000 America/Denver
Date = 2015-12-31 19:00:00.000 America/New_York
Date = 2016-01-01 00:00:00.000 Europe/London
Date = 2016-01-01 11:00:00.000 Australia/Canberra
Date = 2016-01-01 14:00:00.000 Pacific/Apia
Date = 2016-01-01 09:00:00.000 Asia/Pyongyang

time = 145162440
Date = 2016-01-01 05:00:00.000 GMT
Date = 2015-12-31 22:00:00.000 America/Denver
Date = 2016-01-01 00:00:00.000 America/New_York
Date = 2016-01-01 05:00:00.000 Europe/London
Date = 2016-01-01 16:00:00.000 Australia/Canberra
Date = 2016-01-01 19:00:00.000 Pacific/Apia
Date = 2016-01-01 14:00:00.000 Asia/Pyongyang

real0m 5.62s
user0m 3.20s
sys 0m 1.07s
user@OS/390.25.00: 

(I notice that they have Samoa right, but not yet 

Re: Count smf type 30-5 records

[Clark Morris]

On 4 Feb 2016 14:05:30 -0800, in bit.listserv.ibm-main you wrote:

>At 13:16 -0700 on 02/04/2016, Sri h Kolusu wrote about Re: Count smf 
>type 30-5 records:
>
>>If you want DFSORT to extract the values from Raw SMF data then what
>>fields correspond to Userid, Jobname(SMF30JBN ??) and Date from the SMF-30
>>Record mapping? Remember the raw smf have variable length segments where
>>the offset and the length are stored in the record and you need
>>dynamically access the information which would require an addition pass of
>>data.
>
>Due to the variable length segment issue, just using Sort Cards to 
>map the file is not going to fly well. IMO, the simplest way of 
>extracting the needed fields is to just have someone who is capable 
>of writing simple Assembler code to just write a program to extract 
>the fields and output a simple file with them. This file can then be 
>sent through the sort which consolidates and counts them to output a 
>report whenever a field changes.
It also can be done in COBOL.  The program and data set usage program
I wrote did it using reference modification.  

Why IBM didn't go further with the JOBNAME, PROCNAME, STEPNAME fields
and make the variable length up to 255 characters and allow multiple
PROC names I don't know.  How are accounting records done for tasks
under UNIX systems services?

Clark Morris
>
>I know that you are looking for a way to have sort handle all the 
>work, but doing the record selection/parsing is better delegated to 
>something that can locate the data. Back in the when I was still 
>coding, this type of task was one that I would toss off as a 
>Quick project in an hour or two.
>
>--
>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: DFSORT - SMF Records - GMT To EST

[Mike Schwab]

C?  Can you give Lua a shot?
https://en.wikipedia.org/wiki/Lua_(programming_language)
http://www.lua.org/versions.html
http://luaforge.net/projects/mvs38/
http://lua4z.com/doc/manual/using.md.html


On Thu, Feb 4, 2016 at 5:15 PM, Andrew Rowley
 wrote:
> On 5/02/2016 5:15, Paul Gilmartin wrote:
>>
>> I mentioned Java.  Not realistic.  It produces correct answers, but
>> performance is abysmal.
>>
> Do you say that because you tried it, or because everyone says it?
>
> As part of the development of the API I have been doing some performance
> testing. These are CPU times to read/report about 8GB of SMF data:
>
> DFSORT:
> CP time 0.78 s
>
> Assembler, reading every record but no reporting:
> CP time 1.24 s
>
> C reading every record, no report:
> CP time 1.4 s
>
> Java batch job, basic report:
> CP time 0.9 s
> + zIIP time 2.4s
>
> (These shouldn't be considered accurate benchmarks, they were tests to get a
> basic feel for performance.)
>
> Java is not as good as assembler, but I wouldn't call it abysmal. I have
> ambitions to improve it although that may be difficult as most of the time
> seems to be in the I/O routines.
>
> Regards
>
> Andrew Rowley
> Black Hill Software
> +61 413 302 386
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



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

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

Re: DFSORT - SMF Records - GMT To EST

[Andrew Rowley]

On 5/02/2016 12:13, Tom Marchant wrote:

On Fri, 5 Feb 2016 10:15:41 +1100, Andrew Rowley wrote:


Java batch job, basic report:
CP time 0.9 s
+ zIIP time 2.4s

Is that normalized zIIP time or raw zIIP time?
And if raw, what level of kneecapping? That is, what model processor was it run 
on?

On the IBM Dallas RDP system, which has CPs running at full speed zIIP = CP.

Andrew Rowley
Black Hill Software
+61 413 302 386

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

Re: DFSORT - SMF Records - GMT To EST

[Lizette Koehler]

There is an article I found that provides information on using REXX to handle 
SMF Records. Looks like you might be able to use the DATE function in REXX to 
do what you want.  Just a thought.

http://ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rexx_smf_part1/

http://www.ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rexx_smf_part2/

Lizette

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

Re: Stand-Alone DSS RESTORE with 3584 Library - How??

[Mike Schwab]

Is there any way to log in to issue a mount command within the tape library?
Maybe manually mount the Stand Alone Restore tape the first time.
Leave one Stand Alone DASD volume up and erase everything else after exercises?
Refresh by restoring to another volume then IPLing from it?

On Thu, Feb 4, 2016 at 8:51 PM, Ed Jaffe  wrote:
> Learned Sysprogs:
>
> In "z/OS DFSMSdss Storage Administration" in the chapter entitled, "DFSMSdss
> stand-alone services" there is a section called "Using a tape library"
> wherein detailed procedures document how to IPL (or otherwise read) a tape
> from a 3494 or 3495 tape library into the stand-alone utility.
>
> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.adru000/tlib.htm
>
> Unfortunately, those procedures don't seem to apply to the 3584 tape
> library. I can find no mention of stand-alone device support whatsoever in
> the 3584 books. I've painstakingly examined every option in the web
> interface (specialist) to no avail...
>
> Are our folks supposed to drive into the office, export the needed
> cartridge, pause the library, open the door, and manually insert the tape
> into the TS1140 drive? Would that even work? If not, what is the proper
> procedure?
>
> Please advise...
>
> --
> Edward E Jaffe
> Phoenix Software International, Inc
> 831 Parkview Drive North
> El Segundo, CA 90245
> http://www.phoenixsoftware.com/
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



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

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

Re: DFSORT - SMF Records - GMT To EST

[Tom Marchant]

On Fri, 5 Feb 2016 10:15:41 +1100, Andrew Rowley wrote:

>Java batch job, basic report:
>CP time 0.9 s
>+ zIIP time 2.4s

Is that normalized zIIP time or raw zIIP time?
And if raw, what level of kneecapping? That is, what model processor was it run 
on?

-- 
Tom Marchant

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

Re: Count smf type 30-5 records

[Lizette Koehler]

There is an article I found that provides information on using REXX to handle
SMF Records. Looks like you might be able to use the DATE function in REXX to do
what you want.  Just a thought.

http://ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rexx_sm
f_part1/

http://www.ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rex
x_smf_part2/

Lizette

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Robert A. Rosenberg
> Sent: Thursday, February 04, 2016 2:52 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Count smf type 30-5 records
> 
> At 13:16 -0700 on 02/04/2016, Sri h Kolusu wrote about Re: Count smf type 30-5
> records:
> 
> >If you want DFSORT to extract the values from Raw SMF data then what
> >fields correspond to Userid, Jobname(SMF30JBN ??) and Date from the
> >SMF-30 Record mapping? Remember the raw smf have variable length
> >segments where the offset and the length are stored in the record and
> >you need dynamically access the information which would require an
> >addition pass of data.
> 
> Due to the variable length segment issue, just using Sort Cards to map the
> file is not going to fly well. IMO, the simplest way of extracting the needed
> fields is to just have someone who is capable of writing simple Assembler code
> to just write a program to extract the fields and output a simple file with
> them. This file can then be sent through the sort which consolidates and
> counts them to output a report whenever a field changes.
> 
> I know that you are looking for a way to have sort handle all the work, but
> doing the record selection/parsing is better delegated to something that can
> locate the data. Back in the when I was still coding, this type of task was
> one that I would toss off as a Quick project in an hour or two.
> 

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

Re: SMS

[Lizette Koehler]

A quick internet search with ibm setsms backup
May find what you are looking for.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Steve Beaver
> Sent: Thursday, February 04, 2016 2:39 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: SMS
> 
> I just flat forgot the he SETSMS commands to BACKUP and then ACTIVATE sms
> changes
> 
> 
> Steve
> 

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

Stand-Alone DSS RESTORE with 3584 Library - How??

[Ed Jaffe]

Learned Sysprogs:

In "z/OS DFSMSdss Storage Administration" in the chapter entitled, 
"DFSMSdss stand-alone services" there is a section called "Using a tape 
library" wherein detailed procedures document how to IPL (or otherwise 
read) a tape from a 3494 or 3495 tape library into the stand-alone utility.


https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.adru000/tlib.htm

Unfortunately, those procedures don't seem to apply to the 3584 tape 
library. I can find no mention of stand-alone device support whatsoever 
in the 3584 books. I've painstakingly examined every option in the web 
interface (specialist) to no avail...


Are our folks supposed to drive into the office, export the needed 
cartridge, pause the library, open the door, and manually insert the 
tape into the TS1140 drive? Would that even work? If not, what is the 
proper procedure?


Please advise...

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

Re: DFSORT - SMF Records - GMT To EST

[Andrew Rowley]

On 5/02/2016 13:37, Mike Schwab wrote:

C?  Can you give Lua a shot?
https://en.wikipedia.org/wiki/Lua_(programming_language)
http://www.lua.org/versions.html
http://luaforge.net/projects/mvs38/
http://lua4z.com/doc/manual/using.md.html
I don't have the time to learn Lua at the moment, but if someone else 
wants to try it I am happy to create the Java equivalent for a comparison.


The C and Assembler tests were just to gauge I/O cost, so they did 
nothing but read every record.


The Java test did create a basic report to ensure that the file read 
didn't get optimized out or something silly like that.


Andrew Rowley
Black Hill Software
+61 413 302 386

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

Re: Java (was: DFSORT - SMF Records - GMT To EST)

[Andrew Rowley]

On 5/02/2016 10:52, Paul Gilmartin wrote:

OK.  I'm doing something very wrong.  (I believe we have no zIIPs.)  I'll post 
my source:

...


I am using JZOS to run Java as a batch job, and these are my tests for 
general processing of SMF data rather than time zone conversion 
specifically. It wouldn't surprise me if the batch job is better than 
running under the shell.


Also there is a certain amount of time starting the JVM, which becomes 
less significant the more data you process.


I don't know enough to comment on your code, but I will run some tests 
applyng timezones to the date/times returned by the API. That will be 
interesting, because it obviously does require a certain amount of 
looking up rules.


Regards

Andrew Rowley
Black Hill Software
+61 413 302 386

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

Re: Obtaining current ASID in REXX

[Roberto Halais]

/* REXX */
ascb = C2D(Storage(224,4))
assb = C2D(Storage(D2X(ascb+336),4))
jsab = C2D(Storage(D2X(assb+168),4))
jbnm = Storage(D2X(jsab+28),8)
jbid = Storage(D2X(jsab+20),8)
usid = Storage(D2X(jsab+44),8)
Say 'JOBNAME='jbnm' JOBID='jbid' USERID='usid

Maybe you can get from here. This is working code.

On Thu, Feb 4, 2016 at 9:14 AM, Elardus Engelbrecht <
elardus.engelbre...@sita.co.za> wrote:

> Sankaranarayanan, Vignesh wrote:
>
>
> >I'm looking to add a REXX logic to the beginning of an ad-hoc STC.
> >Runs twice in an hour. Problem is, sometimes some instances just hang
> around due to an XCOM issue.
> >Yes, the *real* answer is to fix the XCOM issue but I'm just handing one
> thing at a time.
>
> XCOM? Hmmm, smells like a TCP/IP and/or a firewall problem.
>
> >So my idea of handling this is to add a starting step to the STC that
> does the following in REXX:
> >1. Issue D A,
> >2. Find if there are active instances, apart from itself
> >3. Cancel all active instances (sometimes, I found instances from many
> days ago just hanging around doing nothing)
> >4. REXX exits cleanly so that a new instance runs
>
> Good. Point 2+3 will not work for your attempt.
>
> Check Mark Zelden's website for his REXX utility which lists ALL ASIDs
> currently running. Using the output will help you to locate ALL the
> instances and get rid of them.
>
> HTH!
>
> 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
>



-- 
"I am as you, in you, for you. One as you in all, as all, forever. My call
is your call."

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

Re: Obtaining current ASID in REXX

[Sankaranarayanan, Vignesh]

Yup, I can understand that much! But my expertise is way too limited to even 
try to go chasing after memory addresses.

– Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Thursday, February 04, 2016 12:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Obtaining current ASID in REXX

Sankaranarayanan, Vignesh wrote:

>Sorry, I don't understand.
>I'm looking this up now, hoping it's not an assembler way!

You use the REXX functions like C2D and STORAGE, etc. to chase those pointers.

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

MARKSANDSPENCER.COM

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

Registered No. 214436 in England and Wales.

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

www.marksandspencer.com

Please note that electronic mail may be monitored.

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

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

Re: Obtaining current ASID in REXX

[Elardus Engelbrecht]

Sankaranarayanan, Vignesh wrote:


>I'm looking to add a REXX logic to the beginning of an ad-hoc STC. 
>Runs twice in an hour. Problem is, sometimes some instances just hang around 
>due to an XCOM issue. 
>Yes, the *real* answer is to fix the XCOM issue but I'm just handing one thing 
>at a time. 

XCOM? Hmmm, smells like a TCP/IP and/or a firewall problem.
 
>So my idea of handling this is to add a starting step to the STC that does the 
>following in REXX: 
>1. Issue D A, 
>2. Find if there are active instances, apart from itself 
>3. Cancel all active instances (sometimes, I found instances from many days 
>ago just hanging around doing nothing) 
>4. REXX exits cleanly so that a new instance runs 

Good. Point 2+3 will not work for your attempt. 

Check Mark Zelden's website for his REXX utility which lists ALL ASIDs 
currently running. Using the output will help you to locate ALL the instances 
and get rid of them.

HTH!

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

Re: Obtaining current ASID in REXX

[Sankaranarayanan, Vignesh]

Yup, I have a copy of Mark's program available. Was hoping to find a 
simpler/shorter block of code that would work :)

2+3 won't work... why?

The XCOM bit works 99% of the time, there are just some times that it doesn't 
work. The next run that happens within half an hour goes OK, in most cases.

– Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Thursday, February 04, 2016 1:15 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Obtaining current ASID in REXX

Sankaranarayanan, Vignesh wrote:


>I'm looking to add a REXX logic to the beginning of an ad-hoc STC.
>Runs twice in an hour. Problem is, sometimes some instances just hang around 
>due to an XCOM issue.
>Yes, the *real* answer is to fix the XCOM issue but I'm just handing one thing 
>at a time.

XCOM? Hmmm, smells like a TCP/IP and/or a firewall problem.

>So my idea of handling this is to add a starting step to the STC that does the 
>following in REXX:
>1. Issue D A,
>2. Find if there are active instances, apart from itself 3. Cancel all
>active instances (sometimes, I found instances from many days ago just
>hanging around doing nothing) 4. REXX exits cleanly so that a new
>instance runs

Good. Point 2+3 will not work for your attempt.

Check Mark Zelden's website for his REXX utility which lists ALL ASIDs 
currently running. Using the output will help you to locate ALL the instances 
and get rid of them.

HTH!

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

MARKSANDSPENCER.COM

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

Registered No. 214436 in England and Wales.

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

www.marksandspencer.com

Please note that electronic mail may be monitored.

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

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

Re: Obtaining current ASID in REXX

[Elardus Engelbrecht]

Sankaranarayanan, Vignesh wrote:

>Yup, I have a copy of Mark's program available. Was hoping to find a 
>simpler/shorter block of code that would work :) 
 
;-D

>2+3 won't work... why? 

Simply, because you initially said in your first post, if your program is 
running in batch, it should shows the ASID of itself. Same for your TSO 
session, it should says same for the TSO session. 

This will not work because you said ('Find if there are active instances, apart 
from itself ') later you want all instances to get rid of. Thus you need 
something to check all running ASIDs and then get rid of them.
 
>The XCOM bit works 99% of the time, there are just some times that it doesn't 
>work. The next run that happens within half an hour goes OK, in most cases. 

If that is repeatable, you should check with the sysprogs and vendor. They 
can't make their problem yours...

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

Re: Obtaining current ASID in REXX

[Lucas Rosalen]

Maybe you could try this REXX with some adjustments:

trace Off

 'pipe MVS D A,CIC*',

   '! corrwait 5',

   '! sep',

   '! loc /A=/',

   '! stem result.'



 if result.0 > 0 then

   do i = 1 to result.0

say 'task:' word(result.i,1) 'asid:' word(result.i,6)=> this "6"
might change

   end

return


With small enhancements, this would let you get the "MVS C taskname,A="
command issued

---
*Lucas Rosalen*
Emails: rosalen.lu...@gmail.com / *lrosa...@pl.ibm.com
*
LinkedIn: http://br.linkedin.com/in/lrosalen
Phone: +48 792 809 198


2016-02-04 14:55 GMT+01:00 Elardus Engelbrecht <
elardus.engelbre...@sita.co.za>:

> Sankaranarayanan, Vignesh wrote:
>
> >Yup, I have a copy of Mark's program available. Was hoping to find a
> simpler/shorter block of code that would work :)
>
> ;-D
>
> >2+3 won't work... why?
>
> Simply, because you initially said in your first post, if your program is
> running in batch, it should shows the ASID of itself. Same for your TSO
> session, it should says same for the TSO session.
>
> This will not work because you said ('Find if there are active instances,
> apart from itself ') later you want all instances to get rid of. Thus you
> need something to check all running ASIDs and then get rid of them.
>
> >The XCOM bit works 99% of the time, there are just some times that it
> doesn't work. The next run that happens within half an hour goes OK, in
> most cases.
>
> If that is repeatable, you should check with the sysprogs and vendor. They
> can't make their problem yours...
>
> 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
>

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

Re: Anybody using SDSFAUX and new functions yet?

[Marna WALLE]

Cliff,
Since it's open, you can't get the PTF yet.  However, if you have the problem 
you could contact the support center and see if there is a ++APAR available.  
You could also get on the interested party list if you want.
-Marna WALLE
z/OS Installation
IBM Poughkeepsie

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

Re: Obtaining current ASID in REXX

[Mike Myers]

Vignesh:

What Binyamin was telling you is that in the PSA (Prefixed Storage 
Area), there is a pointer to the current ASCB (Address Space Control 
Block). In that control block at the field named ASCBASID, you will find 
the ASID value you want. In either fashion, JOB or TSO/ISPF, this is the 
value you are after. In REXX, it's pretty simple and I could give you 
the two lines you want, but this is an opportunity to learn something.


First, you ought to go to Mark Zelden's webpage 
(mzeldon.com/mvsutil.html) and download his iplinfo rexx procedure, 
which is a wonderful example of using REXX to search data in storage. 
Once you have it, browse or edit it and search for the first occurence 
of ASCB. You'll see a line that sets the variable ASCB from data located 
at location 224 in fixed storage, which is the storage address of the 
PSAAOLD field. Now you have the address of the ASCB.


Next, you need to find where in the ASCB the ASID value is located.  If 
you are goinf to want to play around with control blocks, you need to 
learn to interpret them and should be looking at the MVS Control Blocks 
manual that contains the ASCB layout. The manual is online, so  layout 
you can look at it. When you do, find the ASCB and look for the ASCBASID 
field. get it's offset and add it to the value you got for ASCB. Using a 
similar REXX line as you see that gets the ASCB value, get your ASID.


If you get this far and are still stuck, email me and I'll help you get 
further.


Mike Myers
Senior z/OS systems programmer and consultant
Mentor Services Corporation

02/04/2016 07:54 AM, Elardus Engelbrecht wrote:

Binyamin Dissen wrote:


PSAAOLD->ASCB (ASCBASID)

That chasing of the pointers should work.

Vignesh wrote:


:>If I'm running a REXX via a job, the output should be the ASID of the job.
:>If I'm running a REXX via a ISPF, the output should be the ASID of my logon 
procedure.

What do you want to do with that ASID? Perhaps there is a better solution or 
way to get this info.

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



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

Re: IBMLINK DOWN

[Clark Morris]

On 3 Feb 2016 18:36:51 -0800, in bit.listserv.ibm-main you wrote:

>No I am in panel to download to your workstation and get:

Ther needs to be a SHARE requirement for 100 percent availability.  I
suspect Microsoft has it.

Clark Morris
>
>Our apologies
>We are sorry. We are unable to process your request at this time. Please try 
>again later.
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Field, Alan
>Sent: Wednesday, February 3, 2016 9:32 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: IBMLINK DOWN
>
>Not for me at 20:30 CST. I am in the SRD page waiting to enter a ptf number. 
>
>Is that where you are trying to get to?
>
>Alan Field
>Systems Engineer Principal
>Blue Cross Blue Shield of MN
>
>651.662.3546
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Skellen, Frank
>Sent: Wednesday, February 03, 2016 8:21 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: IBMLINK DOWN
>
>Can anyone get into IBM link..
>
>I need to get a ptf before my POR tonight.
>
>-frank
>
>
>
>This e-mail message (including any attachments) is for the sole use of the 
>intended recipient(s) and may contain confidential and privileged information. 
>If the reader of this message is not the intended recipient, you are hereby 
>notified that any dissemination, distribution or copying of this message 
>(including any attachments) is strictly prohibited.
>
>If you have received this message in error, please contact the sender by reply 
>e-mail message and destroy all copies of the original message (including 
>attachments).
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
>lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>This email and any files transmitted with it are confidential and intended 
>solely for the use of the individual or entity to whom they are addressed. If 
>you are not the named addressee you must not disseminate, distribute or copy 
>this e-mail. Please notify the sender immediately by e-mail if you have 
>received this e-mail by mistake and delete this e-mail from your system. If 
>you are not the intended recipient you are notified that disclosing, copying, 
>distributing or taking any action in reliance on the contents of this 
>information is strictly prohibited.
>
>--
>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: DFSORT - SMF Records - GMT To EST

[David Crayford]

On 5/02/2016 10:49 AM, Andrew Rowley wrote:

On 5/02/2016 13:37, Mike Schwab wrote:

C?  Can you give Lua a shot?
https://en.wikipedia.org/wiki/Lua_(programming_language)
http://www.lua.org/versions.html
http://luaforge.net/projects/mvs38/
http://lua4z.com/doc/manual/using.md.html
I don't have the time to learn Lua at the moment, but if someone else 
wants to try it I am happy to create the Java equivalent for a 
comparison.




Lua is within an order of magnitude to C 
http://users.tpg.com.au/crayford/rexx-lua-c-io-benchmark.htm. The 
overhead is the Lua VM and string libraries. LuaJIT (not on z/OS)
is snapping on the heels on gcc -O3 and would kick Javas backside. I've 
seen it beat C++!


I did some comparisons with Java and it's difficult to gauge because of 
the JVM and JIT overhead. Java is a fast horse that needs a couple of 
laps around the track to warm up.


The C and Assembler tests were just to gauge I/O cost, so they did 
nothing but read every record.


The Java test did create a basic report to ensure that the file read 
didn't get optimized out or something silly like that.


Andrew Rowley
Black Hill Software
+61 413 302 386

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


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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Ed Gould]

I was thinking a little more simpler (maybe). Example: The TSO logon  
proc or to go to more extremes MSTRJCL or another simpler is the JES2  
proclib.



Ed

On Feb 4, 2016, at 4:03 PM, Tom Brennan wrote:

You're right I think, and that would be another good analogy.  I'm  
pretty sure stdin and stdout are opened prior to calling the  
specified program, very much like JCL allocation is done before  
PGM= gets control.


These are the similarities I'm looking for that might help someone  
move from unix/windows to the mainframe environment without getting  
completely frustrated.


Ed Gould wrote:

To be fair to zOS There are "probably" the same files needed for  
UNIX  its just they are "assumed".


--
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: Stand-Alone DSS RESTORE with 3584 Library - How??

[Skip Robinson]

I'd like to suggest an alternative recovery strategy. Once upon a time it made 
sense to devote a tape or two to standalone restore. We kept a couple of 
cartridges in a drawer just in case. Two problems evolved over time.

1. What would we restore? There are so many different components required to 
get a system running. We would need an IPLable resvol, a RACF volume, a JES 
volume; a PARMLIB, PROCLIB, and who knows what else. Just to get a system 
capable of accepting logons. Missing just one of those could be insurmountable.

2. Tape technology has totally transformed. I haven't held a cartridge in my 
hand for years. What would I do with one anyway? Tape here is completely 
virtual except for a few 'real drives' that hold data offloaded from virtual. 
There is literally no place to insert and read a DSS recovery volume. 

Instead of standalone restore, plan to recover a system rather than a volume or 
two. You don't need to restore sysres. You should have at least two sysres 
volumes anyway that you swap between for maintenance. Would you really lose 
both of them? IPL from the alternate. What you really need is a single volume 
for critical components: master catalog, RACF, spool, PROC/PARMLIBs, whatever 
it takes to get a sysprog logged on to run actual recovery jobs. It does not 
have to be pretty, just minimally functional for a SME who knows how to put 
Humpty Dumpty back together again. That volume is always available and can be 
tested periodically to make sure it works. Just a thought.



.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
jo.skip.robin...@att.net

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Anthony Thompson
> Sent: Thursday, February 4, 2016 09:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [Bulk] Re: Stand-Alone DSS RESTORE with 3584 Library - How??
> 
> Not sure if this helps... we don't have any such advanced gear.
> 
> http://www-01.ibm.com/support/docview.wss?uid=nas8N1015538
> 
> Ant.
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Ed Jaffe
> Sent: Friday, 5 February 2016 12:58 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Stand-Alone DSS RESTORE with 3584 Library - How??
> 
> On 2/4/2016 7:17 PM, Mike Schwab wrote:
> > Is there any way to log in to issue a mount command within the tape library?
> 
> Not that I can find. http://publibfp.dhe.ibm.com/epubs/pdf/a3205604.pdf
> 
> --
> Edward E Jaffe
> Phoenix Software International, Inc
> 831 Parkview Drive North
> El Segundo, CA 90245
> http://www.phoenixsoftware.com/

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

Re: Stand-Alone DSS RESTORE with 3584 Library - How??

[Ed Jaffe]

On 2/4/2016 7:17 PM, Mike Schwab wrote:

Is there any way to log in to issue a mount command within the tape library?


Not that I can find. http://publibfp.dhe.ibm.com/epubs/pdf/a3205604.pdf

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Ed Gould]

On Feb 4, 2016, at 2:00 PM, Tom Brennan wrote:

That's great stuff, and how mainframe methods need to be taught  
today. College students understand unix and windows, and need to  
know the (can I say odd?) differences they will see on the  
mainframe, along with a bit of history.


I'm currently trying to write up some notes for some (possible) new  
mainframers who already know unix, and this is one of my comparisons:


Unix Style:

cat /etc/passwd | grep ^ted013: | awk -F':' '{print $3}'

JCL Style:

//CAT  EXEC PGM=CAT
//SYSUT1   DD   DSN=SYS1.ETC.PASSWD,DISP=SHR
//SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
//*
//GREP EXEC PGM=GREP
//SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
//SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
//SYSINDD   *
 ^ted013:
/*
//AWK  EXEC PGM=AWK
//SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
//SYSUT2   DD   SYSOUT=*
//SYSINDD   *
 awk -F':' '{print $3}'
/*

Of course we don't normally have MVS programs named CAT/GREP/AWK  
but I'm hoping to show how we chain programs together using JCL,  
and relate that to unix commands that a student today already knows  
well.  Then I just have to try and explain why it takes 16 lines of  
JCL to do the same thing as one line in unix :)

-SNIP-
The three jobsteps can be cut down to one if you use the "new"  
control cards in sort.

Ask the sort people too show you how.

Ed

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

Re: Count smf type 30-5 records

[Robert A. Rosenberg]

Thanks for the article. I will read it just to see what it suggests.


At 18:28 -0700 on 02/04/2016, Lizette Koehler wrote about Re: Count 
smf type 30-5 records:



There is an article I found that provides information on using REXX to handle
SMF Records. Looks like you might be able to use the DATE function 
in REXX to do

what you want.  Just a thought.

http://ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rexx_sm
f_part1/

http://www.ibmsystemsmag.com/mainframe/tipstechniques/applicationdevelopment/rex
x_smf_part2/

Lizette


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
 Behalf Of Robert A. Rosenberg
 Sent: Thursday, February 04, 2016 2:52 PM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: Count smf type 30-5 records

 At 13:16 -0700 on 02/04/2016, Sri h Kolusu wrote about Re: Count 
smf type 30-5

 records:

 >If you want DFSORT to extract the values from Raw SMF data then what
 >fields correspond to Userid, Jobname(SMF30JBN ??) and Date from the
 >SMF-30 Record mapping? Remember the raw smf have variable length
 >segments where the offset and the length are stored in the record and
 >you need dynamically access the information which would require an
 >addition pass of data.

 Due to the variable length segment issue, just using Sort Cards to map the
 file is not going to fly well. IMO, the simplest way of extracting 
the needed
 fields is to just have someone who is capable of writing simple 
Assembler code

 to just write a program to extract the fields and output a simple file with
 them. This file can then be sent through the sort which consolidates and
 counts them to output a report whenever a field changes.

 I know that you are looking for a way to have sort handle all the work, but
 doing the record selection/parsing is better delegated to something that can
 locate the data. Back in the when I was still coding, this type of task was
 one that I would toss off as a Quick project in an hour or two.



--
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: Stand-Alone DSS RESTORE with 3584 Library - How??

[Anthony Thompson]

Not sure if this helps... we don't have any such advanced gear.

http://www-01.ibm.com/support/docview.wss?uid=nas8N1015538

Ant.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Friday, 5 February 2016 12:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Stand-Alone DSS RESTORE with 3584 Library - How??

On 2/4/2016 7:17 PM, Mike Schwab wrote:
> Is there any way to log in to issue a mount command within the tape library?

Not that I can find. http://publibfp.dhe.ibm.com/epubs/pdf/a3205604.pdf

--
Edward E Jaffe
Phoenix Software International, Inc
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.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: Count smf type 30-5 records

[Ed Gould]

On Feb 4, 2016, at 3:52 PM, Robert A. Rosenberg wrote:

At 13:16 -0700 on 02/04/2016, Sri h Kolusu wrote about Re: Count  
smf type 30-5 records:



If you want DFSORT to extract the values from Raw SMF data then what
fields correspond to Userid, Jobname(SMF30JBN ??) and Date from  
the SMF-30
Record mapping? Remember the raw smf have variable length segments  
where

the offset and the length are stored in the record and you need
dynamically access the information which would require an addition  
pass of

data.


Due to the variable length segment issue, just using Sort Cards to  
map the file is not going to fly well. IMO, the simplest way of  
extracting the needed fields is to just have someone who is capable  
of writing simple Assembler code to just write a program to extract  
the fields and output a simple file with them. This file can then  
be sent through the sort which consolidates and counts them to  
output a report whenever a field changes.


I know that you are looking for a way to have sort handle all the  
work, but doing the record selection/parsing is better delegated to  
something that can locate the data. Back in the when I was still  
coding, this type of task was one that I would toss off as a  
Quick project in an hour or two.


I don't know off the top of my head but EASYTRIEVE ($) can do it  
without even breaking a sweat in probably 6 or 7 lines of code (or  
less).

SAS should be able to do it as well ($$).

Ed

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

Re: IBM Destination z - What the Heck Is JCL and Why Does It Look So Funny?

[Ed Gould]

Paul,

The part I think you are missing is that cat and grep and awk are  
system commands and as such are included in UNIX
Z/OS has no real equivalence (unless you are talking OE then that is  
a whole separate discussion).

Please compare apple to apples. Not your wish list.

Ed


On Feb 4, 2016, at 4:08 PM, Paul Gilmartin wrote:


On Thu, 4 Feb 2016 15:30:53 -0600, Ed Gould wrote:


On Feb 4, 2016, at 2:00 PM, Tom Brennan wrote:


Unix Style:

cat /etc/passwd | grep ^ted013: | awk -F':' '{print $3}'

JCL Style:

//CAT  EXEC PGM=CAT
//SYSUT1   DD   DSN=SYS1.ETC.PASSWD,DISP=SHR
//SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
//*
//GREP EXEC PGM=GREP
//SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
//SYSUT2   DD   DSN=,DISP=(NEW,PASS),SPACE=(CYL,(1,1))
//SYSINDD   *
 ^ted013:
/*
//AWK  EXEC PGM=AWK
//SYSUT1   DD   DSN=,DISP=(OLD,DELETE)
//SYSUT2   DD   SYSOUT=*
//SYSINDD   *
 awk -F':' '{print $3}'
/*
unix :)-SNIP-


To be fair to zOS There are "probably" the same files needed for UNIX
its just they are "assumed".

No, they are not; not even as RAM disk files.  A pipe communicates  
directly

between processes (like "tasks").  A DOS partisan once explained his
misunderstanding of pipes to me that way:

CAT reads /etc/passwd and writes to temporary file TEMP1.
When CAT terminates, GREP reads TEMP1 and writes TEMP2
When GREP terminates, AWK reads TEMP2 and writes to stdout.

Tom's JCL is actually:

cat /etc/passwd >temp1; grep ^ted013 temp2; awk -F':'  
'{print $3}'; rm temp1 temp2


In Tom's UNIX example, the stages run concurrently.  This can make  
a big
difference if the first stage is long-running: you see output  
before it terminates

(subject to some annoying buffer latency).

I could (and have) connected Classic OS programs with POSIX pipes  
in Rexx.
That takes more than 16 lines.  (You could omit the comments and  
endfiles.)


I do see lack of temporary data sets as a design flaw of UNIX.

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

Catalog VVDS confusion

[Peter Ten Eyck]

In z/OS 1.13 we have "usable" dataset (currently used by a CICS region) that 
has its VVDS entry pointing to a different user catalog than the one related to 
by its master catalog alias.

This is not correct. Under what circumstances is this a problem?

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

Re: memory leak doing gsk_environment_open()

[Janet Graff]

That was an awesome suggestion!  I am having a great time going through my code 
and finding a couple of leaks.  I do note that I have several leaks on 
setlocale().  It's only 828 bytes but since I call it once per thread it might 
add up.

I have another leak on dllinit() for 155CC0 bytes

Does anyone have any suggestions for freeing that memory?

Janet

>Try the following runtime option HEAPCHK(ON,1,0,10,10). It will produce 
>a dump with a trace of all memory allocations that have no free.

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

Re: IBMLINK DOWN

[Richards, Robert B.]

Shopz is now functioning normally.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: Thursday, February 04, 2016 10:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBMLINK DOWN

I have heard from SWG ESW ShopCat L2 Support that they are having a problem on 
their end with their server, are treating it as a SEV1 issue and hope to have 
it resolved shortly.

The assumption on my part is that SRD and Shopz use the same set of servers.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Clark Morris
Sent: Thursday, February 04, 2016 10:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBMLINK DOWN

On 3 Feb 2016 18:36:51 -0800, in bit.listserv.ibm-main you wrote:

>No I am in panel to download to your workstation and get:

Ther needs to be a SHARE requirement for 100 percent availability.  I suspect 
Microsoft has it.

Clark Morris
>
>Our apologies
>We are sorry. We are unable to process your request at this time. Please try 
>again later.
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>On Behalf Of Field, Alan
>Sent: Wednesday, February 3, 2016 9:32 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: IBMLINK DOWN
>
>Not for me at 20:30 CST. I am in the SRD page waiting to enter a ptf number. 
>
>Is that where you are trying to get to?
>
>Alan Field
>Systems Engineer Principal
>Blue Cross Blue Shield of MN
>
>651.662.3546
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>On Behalf Of Skellen, Frank
>Sent: Wednesday, February 03, 2016 8:21 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: IBMLINK DOWN
>
>Can anyone get into IBM link..
>
>I need to get a ptf before my POR tonight.
>
>-frank
>
>
>
>This e-mail message (including any attachments) is for the sole use of the 
>intended recipient(s) and may contain confidential and privileged information. 
>If the reader of this message is not the intended recipient, you are hereby 
>notified that any dissemination, distribution or copying of this message 
>(including any attachments) is strictly prohibited.
>
>If you have received this message in error, please contact the sender by reply 
>e-mail message and destroy all copies of the original message (including 
>attachments).
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send 
>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>This email and any files transmitted with it are confidential and intended 
>solely for the use of the individual or entity to whom they are addressed. If 
>you are not the named addressee you must not disseminate, distribute or copy 
>this e-mail. Please notify the sender immediately by e-mail if you have 
>received this e-mail by mistake and delete this e-mail from your system. If 
>you are not the intended recipient you are notified that disclosing, copying, 
>distributing or taking any action in reliance on the contents of this 
>information is strictly prohibited.
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send 
>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send 
>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

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

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

Sort Job

[Bill Woodger]

Unix server we knew already.

The Mainframe system knows about the data. A program using the data already 
knows which of the fields involved in each of the REDEFINES to use.

Mainframe: I'm going to give you some numbers in character format. They can 
have zero to n decimal places or an actual decimal-point (your choice), and can 
be signed (leading + or -) or unsigned (your choice). They will be fixed-width. 
What is the most convenient for you?
Unix: 
Mainframe: OK, that's fine.

For the answers, you use a MASK, with or without an actual decimal place, and, 
if required, an indicator of the number of decimal places. 

For the REDEFINES fields, you generate two fields "IF (some condition) use 
FIELDA and make FIELDB zero, ELSE use FIELDB and make FIELDA zero".

The important part is knowing what you want. If you know all at once, it avoids 
revisits to the task.

Once you know what you want, it is easy in SORT. You want to get the "knowing" 
done first, to avoid multiple changes to the output record-layout.

Once you know, describe. The control cards themselves are unproblematic, but 
until you know, exactly which control cards is problematic.


On Thursday, 4 February 2016 16:30:14 UTC, Ron Thomas  wrote:
> Ok. the file is going to a unix server. Could you please let me know how this 
> can be done in a sort card as i am not very sure how to do this ? then this 
> will save some time for me . 
> 
> 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

GIM35912I_Error on Apply check

[zos reader]

Hi All,

I am applying cumulative maintenance for a compuware produce abendaid12.4.

I have received the entire ptf's for 12.4 level, when i trying the Apply
check it sounds some sysmods are missing.

GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED SYSMODS
FAILED OR WERE MISSING.
GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.

I also checked in SMPe panels to see whether the pre-requisite AAD026Y is
there in TZONE or DLIB, but i can find AAD026Y is there in MOD for both
TZONE & DLIB but its not allowing me to apply ACD026Y

Can anyone guide me to fix this issue.

Thanks,
Samat

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

Re: GIM35912I_Error on Apply check

[Lizette Koehler]

I would suggest you contact the vendor for assistance.  They may have a 
solution for this issue.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of zos reader
> Sent: Thursday, February 04, 2016 9:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: GIM35912I_Error on Apply check
> 
> Hi All,
> 
> I am applying cumulative maintenance for a compuware produce abendaid12.4.
> 
> I have received the entire ptf's for 12.4 level, when i trying the Apply check
> it sounds some sysmods are missing.
> 
> GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED SYSMODS
> FAILED OR WERE MISSING.
> GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.
> 
> I also checked in SMPe panels to see whether the pre-requisite AAD026Y is
> there in TZONE or DLIB, but i can find AAD026Y is there in MOD for both TZONE
> & DLIB but its not allowing me to apply ACD026Y
> 
> Can anyone guide me to fix this issue.
> 
> Thanks,
> Samat
> 

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

Re: GIM35912I_Error on Apply check

[retired mainframer]

Show us the APPLY command you are using.

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of zos reader
> Sent: Thursday, February 04, 2016 8:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: GIM35912I_Error on Apply check
> 
> Hi All,
> 
> I am applying cumulative maintenance for a compuware produce abendaid12.4.
> 
> I have received the entire ptf's for 12.4 level, when i trying the Apply
> check it sounds some sysmods are missing.
> 
> GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y.
> REQUIRED SYSMODS
> FAILED OR WERE MISSING.
> GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.
> 
> I also checked in SMPe panels to see whether the pre-requisite AAD026Y is
> there in TZONE or DLIB, but i can find AAD026Y is there in MOD for both
> TZONE & DLIB but its not allowing me to apply ACD026Y
> 
> Can anyone guide me to fix this issue.

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

Re: Sort Job

[Martin Packer]

In outline redefines could be achieved with DFSORT Symbols  and = / 
POSITION.

Cheers, Martin

Martin Packer,
zChampion, Principal Systems Investigator,
Worldwide Cloud & Systems Performance, IBM

+44-7802-245-584

email: martin_pac...@uk.ibm.com

Twitter / Facebook IDs: MartinPacker
Blog: 
https://www.ibm.com/developerworks/mydeveloperworks/blogs/MartinPacker



From:   Ron Thomas 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   04/02/2016 16:30
Subject:Re: Sort Job
Sent by:IBM Mainframe Discussion List 



Ok. the file is going to a unix server. Could you please let me know how 
this can be done in a sort card as i am not very sure how to do this ? 
then this will save some time for me . 

Thanks
Ron T

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



Unless stated otherwise above:
IBM United Kingdom Limited - Registered in England and Wales with number 
741598. 
Registered office: PO Box 41, North Harbour, Portsmouth, Hampshire PO6 3AU

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

FW: SIS outage

[Richards, Robert B.]

The ShopzSeries issue has been resolved. There was a problem with a server on 
their end.

Bob 

-Original Message-
From: Richards, Robert B. 
Sent: Thursday, February 04, 2016 9:35 AM
To: 'IBM Mainframe Discussion List'
Subject: RE: SIS outage

There was a maintenance window last night for ShopzSeries. It said 7pm to 
midnight MST.

Unless the issue is on my end, it builds the package but when you click on 
"download", the window opens up but does not populate with the necessary JCL to 
perform the RFN.

I've opened a SR and will post the solution when it is known.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Staller, Allan
Sent: Thursday, February 04, 2016 9:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SIS outage

As I have stated numerous times. The "new tools" that IBM is replacing the 
traditional "green screen" apps are designed by a bunch of PFCSK's with no 
concept of enterprise operations.

In addition (although improving), the new tools are not as reliable or 
available as their predecessors. Nor do they perform better.


z/OS, the flagship operating system claims "6 nines" of availability (about 31 
seconds/year). 
This amounts to about  9 1/2 years' worth  of z/OS outages.

The support tools should be as available as the systems they are supporting.

IBM should be embarrassed that they cannot provide this availability.


"Service Information Search (SIS) application is going to be unavailable next 
Friday, January 05th, starting at 21:00 Eastern Time through Saturday, ending 
at 02:00 AM Eastern Time."


This email ? including attachments ? may contain confidential information. If 
you are not the intended recipient, do not copy, distribute or act on it. 
Instead, notify the sender immediately and delete the message.

--
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 on SDATA when asking for a dump

[Alan Schwartz]

We have some automation processes that code an SDATA option when generating
an svc dump. I thought that the system would automatically use the options
I specify for SDUMP at ipl time.

In reading the Commands Manual it says "If you do not specify SDATA, or if
you specify SDATA with no options, the system uses these SDUMPX macro
options: ALLPSA, SQA, SUM, and IO.  Also, SDATA=SERVERS is always used for
operator dumps."

My ipl sets are:

CD SET,SDUMP=(ALLPSA,ALLNUC,NUC,SQA,LSQA,COUPLE)'
CD SET,SDUMP=(RGN,LPA,TRT,SWA,CSA,SUM,GRSQ,XESDATA),ADD'
CD SET,SDUMP,MAXSPACE=2500M,TYPE=XMEME,ADD'

So I took an svc dump of a stc and when I analyze it I can see COUPLE
information which makes me think it is using my sets but that goes against
the manual.  Which is right?

Alan Schwartz
SO Delivery, Server Systems Operations

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

Sort Job

[Bill Woodger]

Martin,

The REDEFINESes are not a problem in themselves. The data is identically 
represented for each of the definitions involved in the REDEFINES (the 
decimal-point is an "implied" COBOL thing).

What is a problem is how the receiving system is to know how many decimal 
places there are in that particular piece of data, because that is the only 
difference in the definitions, the number of implied decimal places. For the 
receiving system, implied is not good enough, they need to know.

Even if we were to say that the REDEFINES had two completely distinct and 
incompatible definitions, the data itself is not a problem, it fits in the same 
space (subject to short/long, where one or other of the REDEFINES items is 
padded, effectively).

For me, rather than saying "look at this, then use that field as..." it is 
better "look at this, use that field, else use another field" and better still 
"here are two fields, one will be an initial value and the other will contain 
the data, without you having to know the setting of look at this, but by all 
means cross check".

On Thursday, 4 February 2016 16:47:29 UTC, Martin Packer  wrote:
> In outline redefines could be achieved with DFSORT Symbols  and = / 
> POSITION.
> 
> Cheers, Martin
> 

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

Re: Obtaining current ASID in REXX

[Lizette Koehler]

If you were not aware, there is a TSO REXX list that could also be very help in 
all things REXX.

To join, if you have not done so, 
TSO REXXhttp://www2.marist.edu/htbin/wlvindex?TSO-REXX

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Sankaranarayanan, Vignesh
> Sent: Thursday, February 04, 2016 6:00 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Obtaining current ASID in REXX
> 
> Yup, I can understand that much! But my expertise is way too limited to even
> try to go chasing after memory addresses.
> 
> – Vignesh
> Mainframe Infrastructure
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Elardus Engelbrecht
> Sent: Thursday, February 04, 2016 12:56 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Obtaining current ASID in REXX
> 
> Sankaranarayanan, Vignesh wrote:
> 
> >Sorry, I don't understand.
> >I'm looking this up now, hoping it's not an assembler way!
> 
> You use the REXX functions like C2D and STORAGE, etc. to chase those pointers.
> 
> 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
> 
> MARKSANDSPENCER.COM
> 
>  Unless otherwise stated above:
> Marks and Spencer plc
> Registered Office:
> Waterside House
> 35 North Wharf Road
> London
> W2 1NW
> 
> Registered No. 214436 in England and Wales.
> 
> Telephone (020) 7935 4422
> Facsimile (020) 7487 2670
> 
> www.marksandspencer.com

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

Re: GIM35912I_Error on Apply check

[Greg Shirey]

Call Compuware - they will be happy to guide you in fixing the issue.Unlike 
IBM, Compuware provides how-to assistance as part of their product support. 

Regards,
Greg Shirey
Ben E. Keith Company 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of zos reader
Sent: Thursday, February 04, 2016 10:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: GIM35912I_Error on Apply check

Hi All,

I am applying cumulative maintenance for a compuware produce abendaid12.4.

I have received the entire ptf's for 12.4 level, when i trying the Apply check 
it sounds some sysmods are missing.

GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED SYSMODS 
FAILED OR WERE MISSING.
GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.

I also checked in SMPe panels to see whether the pre-requisite AAD026Y is there 
in TZONE or DLIB, but i can find AAD026Y is there in MOD for both TZONE & DLIB 
but its not allowing me to apply ACD026Y

Can anyone guide me to fix this issue.

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

Re: Obtaining current ASID in REXX

[Sankaranarayanan, Vignesh]

I'm looking to add a REXX logic to the beginning of an ad-hoc STC.
Runs twice in an hour. Problem is, sometimes some instances just hang around 
due to an XCOM issue.
Yes, the *real* answer is to fix the XCOM issue but I'm just handing one thing 
at a time.

So my idea of handling this is to add a starting step to the STC that does the 
following in REXX:
1. Issue D A,
2. Find if there are active instances, apart from itself
3. Cancel all active instances (sometimes, I found instances from many days ago 
just hanging around doing nothing)
4. REXX exits cleanly so that a new instance runs

– Vignesh
Mainframe Infrastructure

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Thursday, February 04, 2016 12:54 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Obtaining current ASID in REXX

Binyamin Dissen wrote:

>PSAAOLD->ASCB (ASCBASID)

That chasing of the pointers should work.

Vignesh wrote:

>:>If I'm running a REXX via a job, the output should be the ASID of the job.
>:>If I'm running a REXX via a ISPF, the output should be the ASID of my logon 
>procedure.

What do you want to do with that ASID? Perhaps there is a better solution or 
way to get this info.

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

MARKSANDSPENCER.COM

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

Registered No. 214436 in England and Wales.

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

www.marksandspencer.com

Please note that electronic mail may be monitored.

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

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

Re: Count smf type 30-5 records

[Elardus Engelbrecht]

Hilario Garcia wrote:

>I need to extract some data from SMF type 30. The info are:

>Userid
>Jobname
>Count (by Jobname on an expecific month)

>I had tried using IBM Dfsort, but I can't get the number of a specific jobname 
>on a user and on one month. I need this information:

Try this fun ICETOOL job, (it does not exactly give you the output with the 
USERID and your intended format), but you can try this out and modify it:

//***
//**EXTRACT SMF RECORDS type 30 subtype 5  
//***
//SMF30EXEC  PGM=ICETOOL 
//TOOLMSG  DD  SYSOUT=*  
//DFSMSG   DD  SYSOUT=*  
//VLSHCNTL DD  * 
 OPTION COPY,VLSHRT  
 INCLUDE COND=(6,1,CH,EQ,X'1E',AND,  
  178,1,CH,EQ,X'05') 
/*   
//RAWSMF   DD  DISP=SHR,DSN=?   
//SORTSMF  DD  DISP=(NEW,DELETE,DELETE),SPACE=(CYL,(50,50,0))
//VREPTDD  SYSOUT=*  
//PRINTDD  SYSOUT=*  
//TOOLIN   DD  *  CONTROL STATEMENTS 
  SORT FROM(RAWSMF) TO(SORTSMF) USING(VLSH)  
  DISPLAY FROM(SORTSMF) LIST(VREPT) -
 HEADER('SMFTYP')  ON(6,1,BI) -  
 HEADER('DATE')ON(11,4,DT1,E'/99/99') -  
 HEADER('TIME')ON(7,4,TM1,E'99:99:99') - 
 HEADER('SYSTEM')  ON(15,4,CH) -
 HEADER('JOBNAME')  ON(215,8,CH)
  

 OCCURS  FROM(SORTSMF) LIST(PRINT) -   
 PAGE -
 TITLE('TEST ')-   
 DATE(4MD/) -  
 TIME(24:)  -  
 BLANK -   
 ON(15,4,CH)  HEADER('SYS') -  
 ON(215,8,CH)  HEADER('JOBNAME') - 
 ON(VALCNT)HEADER('COUNT') 


Output for the count part:

- 1 -TEST 2016/02/04

SYSJOBNAME  COUNT   
      ---   
   ABCDE1   
   ABCDEFG  4   

I will see if I can get a sample with the userid... (but you could change the 
SYSID with USERID in above example)

HTH!

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

Re: SIS outage

[Staller, Allan]

As I have stated numerous times. The "new tools" that IBM is replacing the 
traditional "green screen" apps are designed by a bunch of 
PFCSK's with no concept of enterprise operations.

In addition (although improving), the new tools are not as reliable or 
available as their predecessors. Nor do they perform better.


z/OS, the flagship operating system claims "6 nines" of availability (about 31 
seconds/year). 
This amounts to about  9 1/2 years' worth  of z/OS outages.

The support tools should be as available as the systems they are supporting.

IBM should be embarrassed that they cannot provide this availability.


"Service Information Search (SIS) application is going to be unavailable next 
Friday, January 05th, starting at 21:00 Eastern Time through Saturday, ending 
at 02:00 AM Eastern Time."


This email – including attachments – may contain confidential information. If 
you are not the intended recipient, do not copy, distribute or act on it. 
Instead, notify the sender immediately and delete the message.

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

Re: SIS outage

[Richards, Robert B.]

There was a maintenance window last night for ShopzSeries. It said 7pm to 
midnight MST.

Unless the issue is on my end, it builds the package but when you click on 
"download", the window opens up but does not populate with the necessary JCL to 
perform the RFN.

I've opened a SR and will post the solution when it is known.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Staller, Allan
Sent: Thursday, February 04, 2016 9:31 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SIS outage

As I have stated numerous times. The "new tools" that IBM is replacing the 
traditional "green screen" apps are designed by a bunch of PFCSK's with no 
concept of enterprise operations.

In addition (although improving), the new tools are not as reliable or 
available as their predecessors. Nor do they perform better.


z/OS, the flagship operating system claims "6 nines" of availability (about 31 
seconds/year). 
This amounts to about  9 1/2 years' worth  of z/OS outages.

The support tools should be as available as the systems they are supporting.

IBM should be embarrassed that they cannot provide this availability.


"Service Information Search (SIS) application is going to be unavailable next 
Friday, January 05th, starting at 21:00 Eastern Time through Saturday, ending 
at 02:00 AM Eastern Time."


This email ? including attachments ? may contain confidential information. If 
you are not the intended recipient, do not copy, distribute or act on it. 
Instead, notify the sender immediately and delete the message.

--
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: Count smf type 30-5 records

[Lizette Koehler]

On www.ibm.com is this webpage
http://www-01.ibm.com/support/docview.wss?uid=isg3T794


It has lots of examples, including some SMF ones, with using DFSORT.

You can also check the IBM Main archives for this type of question. There has 
probably been discussions in the past.


And I am sure a member of DFSORT will pop in soon.

For papers, online books, news, tips, examples and more, visit the DFSORT 
website at URL:
http://www.ibm.com/storage/dfsort

Lizette



> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Hilario Garcia
> Sent: Thursday, February 04, 2016 5:48 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Count smf type 30-5 records
> 
> Hello folks,
> 
> I need to extract some data from SMF type 30. The info are:
> 
> Userid
> Jobname
> Count (by Jobname on an expecific month)
> 
> I had tried using IBM Dfsort, but I can't get the number of a specific jobname
> on a user and on one month. I need this information:
> 
> USERID JOBNAME COUNT
> user1joba 2
>  jobb   18
>  jobc  1
> 
> user2jobx  3
> 
> user3joby  2
>  jobz  3
> 
> I had tried several Dfsort jobs but didn't work or the results are different
> to the correct.
> 
> I haven't any additional software like SAS, MXG, ...
> 
> Any suggestion on how to code a valid Dfsort for that ? Any example ?
> 
> Thanks in advance.
> 
> Kind Regards.
> 
> Hilario
> 
> 
> 
> 
> --
> 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: IBMLINK DOWN

[Richards, Robert B.]

I have heard from SWG ESW ShopCat L2 Support that they are having a problem on 
their end with their server, are treating it as a SEV1 issue and hope to have 
it resolved shortly.

The assumption on my part is that SRD and Shopz use the same set of servers.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Clark Morris
Sent: Thursday, February 04, 2016 10:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: IBMLINK DOWN

On 3 Feb 2016 18:36:51 -0800, in bit.listserv.ibm-main you wrote:

>No I am in panel to download to your workstation and get:

Ther needs to be a SHARE requirement for 100 percent availability.  I suspect 
Microsoft has it.

Clark Morris
>
>Our apologies
>We are sorry. We are unable to process your request at this time. Please try 
>again later.
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>On Behalf Of Field, Alan
>Sent: Wednesday, February 3, 2016 9:32 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: IBMLINK DOWN
>
>Not for me at 20:30 CST. I am in the SRD page waiting to enter a ptf number. 
>
>Is that where you are trying to get to?
>
>Alan Field
>Systems Engineer Principal
>Blue Cross Blue Shield of MN
>
>651.662.3546
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>On Behalf Of Skellen, Frank
>Sent: Wednesday, February 03, 2016 8:21 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: IBMLINK DOWN
>
>Can anyone get into IBM link..
>
>I need to get a ptf before my POR tonight.
>
>-frank
>
>
>
>This e-mail message (including any attachments) is for the sole use of the 
>intended recipient(s) and may contain confidential and privileged information. 
>If the reader of this message is not the intended recipient, you are hereby 
>notified that any dissemination, distribution or copying of this message 
>(including any attachments) is strictly prohibited.
>
>If you have received this message in error, please contact the sender by reply 
>e-mail message and destroy all copies of the original message (including 
>attachments).
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send 
>email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>This email and any files transmitted with it are confidential and intended 
>solely for the use of the individual or entity to whom they are addressed. If 
>you are not the named addressee you must not disseminate, distribute or copy 
>this e-mail. Please notify the sender immediately by e-mail if you have 
>received this e-mail by mistake and delete this e-mail from your system. If 
>you are not the intended recipient you are notified that disclosing, copying, 
>distributing or taking any action in reliance on the contents of this 
>information is strictly prohibited.
>
>--
>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: Sort Job

[Ron Thomas]

Thanks Bill .  Here is one structure that has redefines so in this case how the 
sort need to be  to be put in ?

01  WEIGHT-TABLE1.
 02  WEIGHT-TABLE.
 03  KEY1.
 04  KEY-CODEPICTURE X(1).
 04  KEY-DIV PICTURE X(1).
 04  KEY-BRAND   PICTURE X(2).
 04  KEY-STYLE   PICTURE X(7).
 04  KEY-FILLER  PICTURE X(8).
 03  WGHT-SPRD.
 04  UNIT-WGHT   PICTURE S9(3)V9(4)
 OCCURS 8 TIMES.
 03  WGHT-SPRD-SCRN
   REDEFINES WGHT-SPRD.
 04  UNIT-WGHT-SCRN
 PICTURE S9(7)
OCCURS 8 TIMES.
03  SOLID-CAS-SPRD.
04  SOLID-CAS-PAIRS
PICTURE S9(4)
OCCURS 8 TIMES.
03  CAS-FACTOR  PICTURE S9(1)V9(4).
03  POS-FACTOR
  REDEFINES CAS-FACTOR
PICTURE S9(2)V9(3).
03  CHG-DATE.
04  CHG-YY  PICTURE X(1).
04  CHG-MM  PICTURE X(1).

Thanks
Ron T

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

Re: Sort Job

[Ron Thomas]

Ok. the file is going to a unix server. Could you please let me know how this 
can be done in a sort card as i am not very sure how to do this ? then this 
will save some time for me . 

Thanks
Ron T

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

IGD17279I due to insufficient space

[Mike Geiger]

Looking for some insight.  I am configuring our new z/OS 2.2 ADCD at RSU1508 
system(already have a 2.1, 1.13 and 1.11)
Why is the following define failing?  Everything looks ok to me. Adequate space 
is available.

All multi-volume allocations of any type fail.  SMS seems to be attempting to 
define all the space on a single volume.

 DEFINE CLUSTER (NAME(USER.SPACE.ZFS) -
VOLUMES(USER13 * * * *)  -
DATACLASS(EXTENDED)-
LINEAR MB(86000)  SHAREOPTIONS(3))
IGD17226I THERE IS AN INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE
STORAGE GROUP(S) TO SATISFY THIS REQUEST FOR DATA SET
USER.SPACE.ZFS
IGD17290I THERE WERE 1 CANDIDATE STORAGE GROUPS OF WHICH THE FIRST 1
WERE ELIGIBLE FOR VOLUME SELECTION.
THE CANDIDATE STORAGE GROUPS WERE:DEFAULT
IGD17279I 5 VOLUMES WERE REJECTED BECAUSE OF INSUFF TOTAL SPACE
IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET
USER.SPACE.ZFS
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12


STORGRP  TYPESYSTEM= 1
DEFAULT  POOL+
  SPACE INFORMATION:
  TOTAL SPACE = 132775MB USAGE% = 18 ALERT% = 0
  TRACK-MANAGED SPACE = 132775MB USAGE% = 18 ALERT% = 0
VOLUME   UNITSYSTEM= 1   STORGRP NAME
USER10   0AA9+ DEFAULT
USER11   0AAA+ DEFAULT
USER12   0AAB+ DEFAULT
USER13   0AAE+ DEFAULT
USER14   0AAF+ DEFAULT

VOLUME FREE   % ALLOC  FRAG   LARGESTFREE INDEX FREE
 FREE
SERIAL SPACE  FREE  SPACE  INDEX  EXTENT EXTENTS  STATUSDSCBS   
 VIRS
-(2)-- ---(3)---  (4)-  ---(5)---  -(6)-  ---(7)---  --(8)--  --(9)---  -(10)-- 
 -(11)--
USER10 27176309K99 15771K  0  27176309K1  ENABLED  4446 
 909
USER11 27176032K99 16048K  0  27176032K1  ENABLED  4445 
 909
USER12 27187376K99  4704K  0  27184609K2  ENABLED  1446 
 909
USER13 27176309K99 15771K  0  27176309K1  ENABLED  4446 
 909
USER14 27176309K99 15771K  0  27176309K1  ENABLED  4446 
 909


ISMF details for data class, storage class and storage group.

CDS Name  . . . : SYS1.SCDS
Data Class Name : EXTENDED  (media section omitted all blank)

Description : FOR DATASET REQUIRING EXTENDED ATTRIBUTES

Recfm  . . . . . . . . . :
Lrecl  . . . . . . . . . :
Override Space . . . . . : NO
Space Avgrec . . . . . . :
  Avg Value  . . . . :
  Primary  . . . . . :
  Secondary  . . . . :
  Directory  . . . . :
Retpd Or Expdt . . . . . :
Volume Count . . . . . . : 255
Add'l Volume Amount  . . :
Data Set Name Type  . . . . . : EXTENDED
  If Extended . . . . . . . . : PREFERRED
  Extended Addressability . . : YES
  Record Access Bias  . . . . : USER
  RMODE31 . . . . . . . . . . :
Space Constraint Relief . . . : NO
  Reduce Space Up To (%)  . . :
  Guaranteed Space Reduction  : NO
  Dynamic Volume Count  . . . :

Compaction  . . . . . . . . . :
Spanned / Nonspanned  . . . . :
System Managed Buffer  . . . :
System Determined Blocksize  : NO
Block Size Limit . . . . . . :
EATTR  . . . . . . . . . . . :
Recorg . . . . . . . . . . . :
Keylen . . . . . . . . . . . :
Keyoff . . . . . . . . . . . :
CIsize Data  . . . . . . . . :
% Freespace CI . . . . . . . :
CA . . . . . . . :
Shareoptions Xregion . . . . :
 Xsystem . . . . :
Reuse  . . . . . . . . . . . : NO
Initial Load . . . . . . . . : RECOVERY
BWO  . . . . . . . . . . . . :
Log  . . . . . . . . . . . . :
Logstream Id . . . . . . . . :
FRlog  . . . . . . . . . . . :
RLS CF Cache Value . . . . . : ALL
RLS Above the 2-GB Bar . . . : NO
Extent Constraint Removal  . : NO
CA Reclaim . . . . . . . . . : YES
Log Replicate  . . . . . . . : NO


CDS Name  . . . . . : SYS1.SCDS
Storage Class Name  : DEFAULT

Description  : DEFAULT, UNASSIGNED GO HERE

Performance Objectives
  Direct Millisecond Response  . . . :
  Direct Bias  . . . . . . . . . . . :
  Sequential Millisecond Response  . :
  Sequential Bias  . . . . . . . . . :
  Initial Access Response Seconds  . :
  Sustained Data Rate (MB/sec) . . . :
  OAM Sublevel . . . . . . . . . . . :
Availability . . . . . . . . . . . . : NOPREF
Accessibility  . . . . . . . . . . . : NOPREF
  Backup . . . . . . . . . . . . . . :
  Versioning . . . . . . . . . . . . :

Guaranteed Space  . . . . . . . . : NO
Guaranteed Synchronous Write  . . : NO
Multi-Tiered SGs  . . . . . . . . :
Parallel Access Volume Capability : NOPREF
Cache Set Name  . . . . . . . . . :
CF Direct Weight  . . . . . . . . :
CF Sequential Weight  . . . . . . :
Lock Set Name . . . . . . . . . . :
Disconnect Sphere at CLOSE  . . . : NO

CDS Name  . . . . . : SYS1.SCDS
Storage Group Name  : DEFAULT

Description  : DEFAULT POOL

Auto Migrate . . 

Re: Anyone seen Mr. Gilmore?

[Lindy Mayfield]

That explains why I didn't get a reply to the email I sent to her asking if Mr. 
Gilmore was ok.  :-(

-Lindy

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Aled Hughes
Sent: torstaina 4. helmikuuta 2016 11.42
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Anyone seen Mr. Gilmore?

Thanks for the info Tony, and Lindy reminded me of John's wife's name. Sadly, 
Mrs. Gilmore (Kate) passed away in January last year. She was an author. 


https://www.sfsite.com/news/2015/01/13/obituary-kate-gilmore/


She also had her own website: http://www.kategilmore.net/


We can only hope that John will return to add his wise counsel on the forum 
soon. 


Best regards
Aled L Hughes







-Original Message-
From: Tony Harminc 
To: IBM-MAIN 
Sent: Wed, 3 Feb 2016 23:46
Subject: Re: Anyone seen Mr. Gilmore?

On 3 February 2016 at 15:02, Pommier, Rex  wrote:
> Is this the same John Gilmore?  The obituary you listed is from January of 
> 2015, and I found a note from Elardus from November stating that John hadn't 
> posted anything since November 5, 2015.

Though John Thomas "Jack" Gilmore Jr. sounds like a fascinating fellow, he 
cannot be "our" John Gilmore. The birthdate (even the
month) doesn't match, neither does his wife's first name, and it is 
inconceivable that there would be no mention of our Mr Gilmore's European 
education and language facility.

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

Re: GIM35912I_Error on Apply check

[Lucas Rosalen]

Well, it looks like you're missing PTF AAD026Y in your RECEIVE job.
Try to browse the dataset you had in SMPPTFIN DD when you performed the
RECEIVE. Then try to FIND AAD026Y inside it. If it's not there, you might
have gotten a package with missing PTFs...

---
*Lucas Rosalen*
Emails: rosalen.lu...@gmail.com / *lrosa...@pl.ibm.com
*
LinkedIn: http://br.linkedin.com/in/lrosalen
Phone: +48 792 809 198


2016-02-04 18:31 GMT+01:00 zos reader :

> Thanks All for your assistance..
>
> here is Apply command
>
> //*
> //SMPCNTL  DD *
>  SET BOUNDARY(Target).
>  APPLY CHECK FORFMID
>(
> MKAZ241
>)
>PTFS
>BYPASS(HOLDSYSTEM,HOLDUSER).
> /*
>
> On Thu, Feb 4, 2016 at 10:40 PM, Greg Shirey 
> wrote:
>
> > Call Compuware - they will be happy to guide you in fixing the issue.
> > Unlike IBM, Compuware provides how-to assistance as part of their product
> > support.
> >
> > Regards,
> > Greg Shirey
> > Ben E. Keith Company
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> > Behalf Of zos reader
> > Sent: Thursday, February 04, 2016 10:55 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: GIM35912I_Error on Apply check
> >
> > Hi All,
> >
> > I am applying cumulative maintenance for a compuware produce
> abendaid12.4.
> >
> > I have received the entire ptf's for 12.4 level, when i trying the Apply
> > check it sounds some sysmods are missing.
> >
> > GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED SYSMODS
> > FAILED OR WERE MISSING.
> > GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.
> >
> > I also checked in SMPe panels to see whether the pre-requisite AAD026Y is
> > there in TZONE or DLIB, but i can find AAD026Y is there in MOD for both
> > TZONE & DLIB but its not allowing me to apply ACD026Y
> >
> > Can anyone guide me to fix this issue.
> >
> > --
> > 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: Sort Job

[Sri h Kolusu]

>>>Martin :  In outline redefines could be achieved with DFSORT Symbols 
and = /  POSITION.
>>>Bill : The REDEFINESes are not a problem in themselves. The data is 
identically represented for each of the definitions involved in the 
REDEFINES (the decimal-point is an "implied" COBOL thing).

Martin/Bill,

OP's Shop uses Competitive product of DFSORT  and so your suggestions 
about using DFSORT symbols which may or may not be supported and we don't 
want another discussion about using them incorrectly.  :)

Thanks,
Kolusu
DFSORT Development
IBM Corporation

IBM Mainframe Discussion List  wrote on 
02/04/2016 10:08:19 AM:

> From: Bill Woodger 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 02/04/2016 10:08 AM
> Subject: Sort Job
> Sent by: IBM Mainframe Discussion List 
> 
> Martin,
> 
> The REDEFINESes are not a problem in themselves. The data is 
> identically represented for each of the definitions involved in the 
> REDEFINES (the decimal-point is an "implied" COBOL thing).
> 
> What is a problem is how the receiving system is to know how many 
> decimal places there are in that particular piece of data, because 
> that is the only difference in the definitions, the number of 
> implied decimal places. For the receiving system, implied is not 
> good enough, they need to know.
> 
> Even if we were to say that the REDEFINES had two completely 
> distinct and incompatible definitions, the data itself is not a 
> problem, it fits in the same space (subject to short/long, where one
> or other of the REDEFINES items is padded, effectively).
> 
> For me, rather than saying "look at this, then use that field as..."
> it is better "look at this, use that field, else use another field" 
> and better still "here are two fields, one will be an initial value 
> and the other will contain the data, without you having to know the 
> setting of look at this, but by all means cross check".
> 
> On Thursday, 4 February 2016 16:47:29 UTC, Martin Packer  wrote:
> > In outline redefines could be achieved with DFSORT Symbols  and = / 
> > POSITION.
> > 
> > Cheers, Martin
> > 
> 
> --
> 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: GIM35912I_Error on Apply check

[Ed Gould]

Greg:
Through the years I have found Compuware and FDR has pretty darn good  
support unlike some other vendors who charge a lot for their product.  
BTW FDR is reasonably priced.


Ed


On Feb 4, 2016, at 11:10 AM, Greg Shirey wrote:

Call Compuware - they will be happy to guide you in fixing the  
issue.Unlike IBM, Compuware provides how-to assistance as part  
of their product support.


Regards,
Greg Shirey
Ben E. Keith Company

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM- 
m...@listserv.ua.edu] On Behalf Of zos reader

Sent: Thursday, February 04, 2016 10:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: GIM35912I_Error on Apply check

Hi All,

I am applying cumulative maintenance for a compuware produce  
abendaid12.4.


I have received the entire ptf's for 12.4 level, when i trying the  
Apply check it sounds some sysmods are missing.


GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED  
SYSMODS FAILED OR WERE MISSING.

GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.

I also checked in SMPe panels to see whether the pre-requisite  
AAD026Y is there in TZONE or DLIB, but i can find AAD026Y is there  
in MOD for both TZONE & DLIB but its not allowing me to apply ACD026Y


Can anyone guide me to fix this issue.

--
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: GIM35912I_Error on Apply check

[zos reader]

Hi Lucas,

AAD026Y is the Requisite for ACD026Y. Already ACD026Y is received and its
there in Global zone.
I am applying Cumulative Maintenance PTF's and it has n numbers of PTF's,
so i have selected PTFS in Apply command

On Thu, Feb 4, 2016 at 11:24 PM, Ed Gould  wrote:

> Greg:
> Through the years I have found Compuware and FDR has pretty darn good
> support unlike some other vendors who charge a lot for their product. BTW
> FDR is reasonably priced.
>
> Ed
>
>
>
> On Feb 4, 2016, at 11:10 AM, Greg Shirey wrote:
>
> Call Compuware - they will be happy to guide you in fixing the issue.
>> Unlike IBM, Compuware provides how-to assistance as part of their product
>> support.
>>
>> Regards,
>> Greg Shirey
>> Ben E. Keith Company
>>
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>> Behalf Of zos reader
>> Sent: Thursday, February 04, 2016 10:55 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: GIM35912I_Error on Apply check
>>
>> Hi All,
>>
>> I am applying cumulative maintenance for a compuware produce abendaid12.4.
>>
>> I have received the entire ptf's for 12.4 level, when i trying the Apply
>> check it sounds some sysmods are missing.
>>
>> GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED SYSMODS
>> FAILED OR WERE MISSING.
>> GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.
>>
>> I also checked in SMPe panels to see whether the pre-requisite AAD026Y is
>> there in TZONE or DLIB, but i can find AAD026Y is there in MOD for both
>> TZONE & DLIB but its not allowing me to apply ACD026Y
>>
>> Can anyone guide me to fix this issue.
>>
>> --
>> 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: Obtaining current ASID in REXX

[Lindy Mayfield]

Here is a little Rexx utility that I wrote to display a bunch of good stuff 
from the ASCB, including ASID in both hex and decimal.  Mostly it was used to 
explore 522 timeout issues, but it shows some cool stuff, plus shows you one 
way to make your way through the control blocks.

http://7cats.eu/downloads/d522.rexx.v3.05.txt

It runs under ISPF.  You just have to exec it.  I put all the ISPF stuff inside 
the code as data. ;-)

Kind regards,
Lindy

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sankaranarayanan, Vignesh
Sent: torstaina 4. helmikuuta 2016 13.03
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Obtaining current ASID in REXX

Hi folks,

I'm looking for a piece of code in REXX to access the current ASID. I remember 
seeing this in one of the installation REXX'es that came with the BMC ICE for 
Control-M.
I'm hoping that one of you has had to do this in the past and can help me out 
here.

Ex:
If I'm running a REXX via a job, the output should be the ASID of the job.
If I'm running a REXX via a ISPF, the output should be the ASID of my logon 
procedure.

Thank you!

- Vignesh
Mainframe Infrastructure


MARKSANDSPENCER.COM

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

Registered No. 214436 in England and Wales.

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

www.marksandspencer.com

Please note that electronic mail may be monitored.

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

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

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

Re: GIM35912I_Error on Apply check

[zos reader]

Thanks All for your assistance..

here is Apply command

//*
//SMPCNTL  DD *
 SET BOUNDARY(Target).
 APPLY CHECK FORFMID
   (
MKAZ241
   )
   PTFS
   BYPASS(HOLDSYSTEM,HOLDUSER).
/*

On Thu, Feb 4, 2016 at 10:40 PM, Greg Shirey  wrote:

> Call Compuware - they will be happy to guide you in fixing the issue.
> Unlike IBM, Compuware provides how-to assistance as part of their product
> support.
>
> Regards,
> Greg Shirey
> Ben E. Keith Company
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of zos reader
> Sent: Thursday, February 04, 2016 10:55 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: GIM35912I_Error on Apply check
>
> Hi All,
>
> I am applying cumulative maintenance for a compuware produce abendaid12.4.
>
> I have received the entire ptf's for 12.4 level, when i trying the Apply
> check it sounds some sysmods are missing.
>
> GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED SYSMODS
> FAILED OR WERE MISSING.
> GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.
>
> I also checked in SMPe panels to see whether the pre-requisite AAD026Y is
> there in TZONE or DLIB, but i can find AAD026Y is there in MOD for both
> TZONE & DLIB but its not allowing me to apply ACD026Y
>
> Can anyone guide me to fix this issue.
>
> --
> 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: DFSORT - SMF Records - GMT To EST

[Sri h Kolusu]

>>And Ravi has clarified that he wants the technique to be aware of 
Daylight Saving Time.  And I recall the rules in the U.S. changed in 2006. 
 And more
recently in the Nation of Samoa.
Sigh.  DFSORT (and DB2) ought to be savvy to:
https://www.iana.org/time-zones

(Java knows this.  Linux knows this.  ... )

Paul,

 I am not sure as to what your gripe is but it is really sad to see you 
complain on every bit of DFSORT when you don't realize the full potential 
of its capability. May be it is time for your shop to pay for a training 
class on DFSORT and I will be more than happy to show you its full 
potential. Here is a small sample Job that calculates the Day light 
savings begin date and end date and then adjust the offset according to 
them and as well as gives the option for the user to pick whatever time 
zone he wants these calculations to be based on. If the user does not pass 
a time zone then it defaults to PST.

And just for your record, according to "National Institute of Standards 
and Technology" the DST rules are changed in 2007.

http://www.nist.gov/pml/div688/dst.cfm

What are the current rules for daylight saving time?
The rules for DST changed in 2007 for the first time in more than 20 
years. The new changes were enacted by the Energy Policy Act of 2005, 
which extended the length of DST in the interest of reducing energy 
consumption. The rules increased the duration of DST by about one month. 
DST is now in effect for 238 days, or about 65% of the year, although 
Congress retained the right to revert to the prior law should the change 
prove unpopular or if energy savings are not significant. At present, 
daylight saving time in the United States
begins at 2:00 a.m. on the second Sunday of March and
ends at 2:00 a.m. on the first Sunday of November


Please feel free to email if you have any further questions or you want to 
know what else DFSORT can do.


>>>So here's the situation we have 5 way sysplex where 3 lpar's running 
with the GMT timezone however 2 are running with separate asia time .one 
is GMT -7 or 8 based on 
daylight saving and another is GMT +7or 8  ...

Ravi, 

Here is a DFSORT Job that give the desired results. You can pass the 
timezone you prefer as SET parameter.

//   SET TIMEZONE='EST'
//*
//STEP0100 EXEC PGM=SORT,PARM=('JP1""')
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
2016-03-1301:59:59  << DST OFF |
2016-03-1302:00:00  << DST ON  |
2016-03-1400:00:00  << DST ON  |
2016-11-0601:59:59  << DST ON  |
2016-11-0602:00:00  << DST ON  |
2016-11-0602:00:01  << DST OFF |
2016-11-0700:00:00  << DST OFF |
//SORTOUT  DD SYSOUT=*
//SYSINDD *
  OPTION COPY
  INREC IFOUTLEN=80,IFTHEN=(WHEN=INIT,
*** GET DAY LIGHT SAVINGS BEGIN DATE I.E 2ND SUNDAY OF MARCH  **

   OVERLAY=(081:DATE2,$ MM
085:C'0301',  $ MARCH 1ST
081:081,8,Y4T,SUBDAYS,+1,TOGREG=Y4T,  $ FEB LAST DAY
081:081,8,Y4T,NEXTDSUN,TOGREG=Y4T,$ 1ST SUN IN MARCH
081:081,8,Y4T,NEXTDSUN,TOGREG=Y4T,$ 2ND SUN IN MARCH
C'02',$ 02:00:00 TIME

*** GET DAY LIGHT SAVINGS END DATE I.E 1st SUNDAY OF NOVEMBER **

096:DATE2,$ MM
100:C'1031',  $ OCTOBER 31ST
096:096,8,Y4T,NEXTDSUN,TOGREG=Y4T,$ 1ST SUN IN NOV
C'015959',$ 01:59:59 TIME

*** CONCAT INPUT DATE AND TIME TO COMPARE THE DST TIME RANGE  **

111:01,10,UFF,M11,LENGTH=8,   $ DATE TO CCYYMMDD
15,08,UFF,M11,LENGTH=6,   $ TIME TO HHMMSS

*** GET THE TIMEZONE FROM THE CUSTOMER INPUT ***

126:JP1,

*** SET THE OFFSET FROM THE TIMEZONE ***

130:126,3,CHANGE=(2,C'PST',C'08', $ PST IS GMT-8
C'MST',C'07', $ MST IS GMT-7
C'CST',C'06', $ CST IS GMT-6
C'EST',C'05'),$ EST IS GMT-5
  NOMATCH=(C'08'))),  $ NONE = 8

*** CHECK FOR DST START AND END DATES AND ADJUST THE OFFSET **

  IFTHEN=(WHEN=((111,14,CH,GE,81,14,CH),AND,  $ DST BEGIN
(111,14,CH,LE,96,14,CH)), $ DST END
   OVERLAY=(130:130,2,ZD,SUB,+1,EDIT=(TT)),   $ SUBTRACT 1
   HIT=NEXT),

*** NOW PERFORM THE TIME - OFFSET CALCULATIONS **

  IFTHEN=(WHEN=(130,1,FS,EQ,NUM),
OVERLAY=(134:(119,2,ZD,MUL,+3600,ADD, $ (HH * 3600 +
  121,2,ZD,MUL,+0060,ADD, $  MM * 0060 +
  123,2,ZD),SUB,  $  SS) -
  130,2,ZD,MUL,+3600,ZD,LENGTH=8),$  OFF * 3600
   HIT=NEXT),

*** IF TIME IS NEGTIVE THEN ADJUST THE DATE AS DATE - 1  ***

  IFTHEN=(WHEN=(134,8,ZD,LT,0),
  

Sort Job

[Bill Woodger]

On Thursday, 4 February 2016 16:19:10 UTC, Ron Thomas  wrote:
> Ok.  so what i believe we need to create a COBOL program to reformat the data 
>  so that the receiver will be able to understand in the right way .  
> 
> Thanks
> Ron T
> 

No, I don't see how you come to that conclusion.

Your COBOL program will be doing the same things as you can do with SORT. If 
you want to do a COBOL program, that's fine, but there is no need to.

Where is your file going? A DB? Some external system? Written in what?

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

Sort Job

[Bill Woodger]

There are two REDEFINES there. Both a doing the same thing, which is using a 
different number of decimal places than the original definition.

For the data, since there is no actual indication of the decimal-point, once 
choice is to do nothing. The data is identical to look at, whichever COBOL 
definition you use.

That may not be enough for your receiver. But it may. Somewhere in the record 
will be one or more items which identify the circumstances in which one field 
is used, as against the other.

Some general ways to deal with that: rely on the receiver being able to 
accurately mimic the existing business logic; create two fields, one will have 
a value, the other always zero, and populate appropriately on your side; have 
an actual decimal point, which is in different places depending on the business 
logic (having BUILT the record, IFTHEN=(WHEN=(logcalexpression) with OVERLAY 
and a different edit mask for the non-default records.

Other than the physical decimal-point, you could have an extra field for the 
number of decimal places (effectively a scaling-factor).

Going to an external source, it is best that your data does not need 
interpretation. So scaling-factor or actual decimal-point for all non-integer 
(even perhaps integer) fields, and consult with the receiver as to which they'd 
be able to process more easily.

Of course, if there is already code written, you can end up with a 
less-than-elegant mix. Which can confuse, annoy, be source of error, cause 
consternation to auditors, etc.

If you're still designing, just provide the most simple format possible. If in 
the middle of things and no way back, try to keep it simple.

On Thursday, 4 February 2016 15:24:38 UTC, Ron Thomas  wrote:
> Thanks Bill .  Here is one structure that has redefines so in this case how 
> the sort need to be  to be put in ?
> 
> 01  WEIGHT-TABLE1.
>  02  WEIGHT-TABLE.
>  03  KEY1.
>  04  KEY-CODEPICTURE X(1).
>  04  KEY-DIV PICTURE X(1).
>  04  KEY-BRAND   PICTURE X(2).
>  04  KEY-STYLE   PICTURE X(7).
>  04  KEY-FILLER  PICTURE X(8).
>  03  WGHT-SPRD.
>  04  UNIT-WGHT   PICTURE S9(3)V9(4)
>  OCCURS 8 TIMES.
>  03  WGHT-SPRD-SCRN
>REDEFINES WGHT-SPRD.
>  04  UNIT-WGHT-SCRN
>  PICTURE S9(7)
> OCCURS 8 TIMES.
> 03  SOLID-CAS-SPRD.
> 04  SOLID-CAS-PAIRS
> PICTURE S9(4)
> OCCURS 8 TIMES.
> 03  CAS-FACTOR  PICTURE S9(1)V9(4).
> 03  POS-FACTOR
>   REDEFINES CAS-FACTOR
> PICTURE S9(2)V9(3).
> 03  CHG-DATE.
> 04  CHG-YY  PICTURE X(1).
> 04  CHG-MM  PICTURE X(1).
> 
> Thanks
> Ron T

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

Re: Sort Job

[Ron Thomas]

Ok.  so what i believe we need to create a COBOL program to reformat the data  
so that the receiver will be able to understand in the right way .  

Thanks
Ron T

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

Re: IGD17279I due to insufficient space

[Mike Geiger]

Additional information.  The SCDS does match the ACDS(I really did do a setsms, 
many of them).  Had I been thinking a bit deeper I would have used the ACDS for 
the ISMF info!

Mike

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mike Geiger
Sent: Thursday, February 04, 2016 12:09 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IGD17279I due to insufficient space

Looking for some insight.  I am configuring our new z/OS 2.2 ADCD at RSU1508 
system(already have a 2.1, 1.13 and 1.11) Why is the following define failing?  
Everything looks ok to me. Adequate space is available.

All multi-volume allocations of any type fail.  SMS seems to be attempting to 
define all the space on a single volume.

 DEFINE CLUSTER (NAME(USER.SPACE.ZFS) -
VOLUMES(USER13 * * * *)  -
DATACLASS(EXTENDED)-
LINEAR MB(86000)  SHAREOPTIONS(3)) IGD17226I THERE IS AN 
INSUFFICIENT NUMBER OF VOLUMES IN THE ELIGIBLE STORAGE GROUP(S) TO SATISFY THIS 
REQUEST FOR DATA SET USER.SPACE.ZFS IGD17290I THERE WERE 1 CANDIDATE STORAGE 
GROUPS OF WHICH THE FIRST 1 WERE ELIGIBLE FOR VOLUME SELECTION.
THE CANDIDATE STORAGE GROUPS WERE:DEFAULT IGD17279I 5 VOLUMES WERE REJECTED 
BECAUSE OF INSUFF TOTAL SPACE IGD17219I UNABLE TO CONTINUE DEFINE OF DATA SET 
USER.SPACE.ZFS IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12


STORGRP  TYPESYSTEM= 1
DEFAULT  POOL+
  SPACE INFORMATION:
  TOTAL SPACE = 132775MB USAGE% = 18 ALERT% = 0
  TRACK-MANAGED SPACE = 132775MB USAGE% = 18 ALERT% = 0
VOLUME   UNITSYSTEM= 1   STORGRP NAME
USER10   0AA9+ DEFAULT
USER11   0AAA+ DEFAULT
USER12   0AAB+ DEFAULT
USER13   0AAE+ DEFAULT
USER14   0AAF+ DEFAULT

VOLUME FREE   % ALLOC  FRAG   LARGESTFREE INDEX FREE
 FREE
SERIAL SPACE  FREE  SPACE  INDEX  EXTENT EXTENTS  STATUSDSCBS   
 VIRS
-(2)-- ---(3)---  (4)-  ---(5)---  -(6)-  ---(7)---  --(8)--  --(9)---  -(10)-- 
 -(11)--
USER10 27176309K99 15771K  0  27176309K1  ENABLED  4446 
 909
USER11 27176032K99 16048K  0  27176032K1  ENABLED  4445 
 909
USER12 27187376K99  4704K  0  27184609K2  ENABLED  1446 
 909
USER13 27176309K99 15771K  0  27176309K1  ENABLED  4446 
 909
USER14 27176309K99 15771K  0  27176309K1  ENABLED  4446 
 909


ISMF details for data class, storage class and storage group.

CDS Name  . . . : SYS1.SCDS
Data Class Name : EXTENDED  (media section omitted all blank)

Description : FOR DATASET REQUIRING EXTENDED ATTRIBUTES

Recfm  . . . . . . . . . :
Lrecl  . . . . . . . . . :
Override Space . . . . . : NO
Space Avgrec . . . . . . :
  Avg Value  . . . . :
  Primary  . . . . . :
  Secondary  . . . . :
  Directory  . . . . :
Retpd Or Expdt . . . . . :
Volume Count . . . . . . : 255
Add'l Volume Amount  . . :
Data Set Name Type  . . . . . : EXTENDED
  If Extended . . . . . . . . : PREFERRED
  Extended Addressability . . : YES
  Record Access Bias  . . . . : USER
  RMODE31 . . . . . . . . . . :
Space Constraint Relief . . . : NO
  Reduce Space Up To (%)  . . :
  Guaranteed Space Reduction  : NO
  Dynamic Volume Count  . . . :

Compaction  . . . . . . . . . :
Spanned / Nonspanned  . . . . :
System Managed Buffer  . . . :
System Determined Blocksize  : NO
Block Size Limit . . . . . . :
EATTR  . . . . . . . . . . . :
Recorg . . . . . . . . . . . :
Keylen . . . . . . . . . . . :
Keyoff . . . . . . . . . . . :
CIsize Data  . . . . . . . . :
% Freespace CI . . . . . . . :
CA . . . . . . . :
Shareoptions Xregion . . . . :
 Xsystem . . . . :
Reuse  . . . . . . . . . . . : NO
Initial Load . . . . . . . . : RECOVERY
BWO  . . . . . . . . . . . . :
Log  . . . . . . . . . . . . :
Logstream Id . . . . . . . . :
FRlog  . . . . . . . . . . . :
RLS CF Cache Value . . . . . : ALL
RLS Above the 2-GB Bar . . . : NO
Extent Constraint Removal  . : NO
CA Reclaim . . . . . . . . . : YES
Log Replicate  . . . . . . . : NO


CDS Name  . . . . . : SYS1.SCDS
Storage Class Name  : DEFAULT

Description  : DEFAULT, UNASSIGNED GO HERE

Performance Objectives
  Direct Millisecond Response  . . . :
  Direct Bias  . . . . . . . . . . . :
  Sequential Millisecond Response  . :
  Sequential Bias  . . . . . . . . . :
  Initial Access Response Seconds  . :
  Sustained Data Rate (MB/sec) . . . :
  OAM Sublevel . . . . . . . . . . . :
Availability . . . . . . . . . . . . : NOPREF Accessibility  . . . . . . . . . 
. . : NOPREF
  Backup . . . . . . . . . . . . . . :
  Versioning . . . . . . . . . . . . :

Guaranteed Space  

Re: Anyone seen Mr. Gilmore?

[zMan]

As for Shmuel, his ISP shut down without notice. I saw a post of his to
another list saying that he was using his wife's GMail for the time being
(why not get his own?).

On Thu, Feb 4, 2016 at 12:17 PM, Lindy Mayfield 
wrote:

> That explains why I didn't get a reply to the email I sent to her asking
> if Mr. Gilmore was ok.  :-(
>
> -Lindy
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Aled Hughes
> Sent: torstaina 4. helmikuuta 2016 11.42
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Anyone seen Mr. Gilmore?
>
> Thanks for the info Tony, and Lindy reminded me of John's wife's name.
> Sadly, Mrs. Gilmore (Kate) passed away in January last year. She was an
> author.
>
>
> https://www.sfsite.com/news/2015/01/13/obituary-kate-gilmore/
>
>
> She also had her own website: http://www.kategilmore.net/
>
>
> We can only hope that John will return to add his wise counsel on the
> forum soon.
>
>
> Best regards
> Aled L Hughes
>
>
>
>
>
>
>
> -Original Message-
> From: Tony Harminc 
> To: IBM-MAIN 
> Sent: Wed, 3 Feb 2016 23:46
> Subject: Re: Anyone seen Mr. Gilmore?
>
> On 3 February 2016 at 15:02, Pommier, Rex  wrote:
> > Is this the same John Gilmore?  The obituary you listed is from January
> of 2015, and I found a note from Elardus from November stating that John
> hadn't posted anything since November 5, 2015.
>
> Though John Thomas "Jack" Gilmore Jr. sounds like a fascinating fellow, he
> cannot be "our" John Gilmore. The birthdate (even the
> month) doesn't match, neither does his wife's first name, and it is
> inconceivable that there would be no mention of our Mr Gilmore's European
> education and language facility.
>
> 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
>



-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

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

Re: SIS outage

[Mike Schwab]

For a long term solution, suggest migrating to Linux on System Z.

On Thu, Feb 4, 2016 at 8:35 AM, Richards, Robert B.
 wrote:
> There was a maintenance window last night for ShopzSeries. It said 7pm to 
> midnight MST.
>
> Unless the issue is on my end, it builds the package but when you click on 
> "download", the window opens up but does not populate with the necessary JCL 
> to perform the RFN.
>
> I've opened a SR and will post the solution when it is known.
>
> Bob
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of Staller, Allan
> Sent: Thursday, February 04, 2016 9:31 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: SIS outage
>
> As I have stated numerous times. The "new tools" that IBM is replacing the 
> traditional "green screen" apps are designed by a bunch of PFCSK's with no 
> concept of enterprise operations.
>
> In addition (although improving), the new tools are not as reliable or 
> available as their predecessors. Nor do they perform better.
>
>
> z/OS, the flagship operating system claims "6 nines" of availability (about 
> 31 seconds/year).
> This amounts to about  9 1/2 years' worth  of z/OS outages.
>
> The support tools should be as available as the systems they are supporting.
>
> IBM should be embarrassed that they cannot provide this availability.
>
> 
> "Service Information Search (SIS) application is going to be unavailable next 
> Friday, January 05th, starting at 21:00 Eastern Time through Saturday, ending 
> at 02:00 AM Eastern Time."
> 
>
> This email ? including attachments ? may contain confidential information. If 
> you are not the intended recipient, do not copy, distribute or act on it. 
> Instead, notify the sender immediately and delete the message.
>
> --
> 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



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

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

Re: GIM35912I_Error on Apply check

[Tom Marchant]

On Thu, 4 Feb 2016 22:24:58 +0530, zos reader wrote:

>I am applying cumulative maintenance for a compuware produce abendaid12.4.
>
>I have received the entire ptf's for 12.4 level, when i trying the Apply
>check it sounds some sysmods are missing.
>
>GIM30209E ** APPLY PROCESSING FAILED FOR SYSMOD ACD026Y. REQUIRED SYSMODS
>FAILED OR WERE MISSING.
>GIM35912ICONDITIONAL REQUISITE SYSMOD AAD026Y WAS MISSING.

Add GROUP to the APPLY.

Your APPLY CHECK is only for Abend-AID Common. AAD026Y is a PTF for 
Abend-AID Batch Dump Capture, a different FMID. GROUP will cause SMP/E 
to also select the AAD026Y PTF because of the IF...REQ.

A better solution would be to also include FMID MPAA240 so that you apply 
the maintenance for both products. If you also have Abend-AID for CICS in 
the same target zone, you should include those PTFs as well.

Compuware Support would have been able to help you with this.

-- 
Tom Marchant
Abend-AID development
Compuware

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

Re: DFSORT - SMF Records - GMT To EST

[Sri h Kolusu]

 What does the "I" in IBM stand for?

Paul,

My apologies about the earlier clarification of "I". 

Since OP asked for a specific timezone (EST to be precise), I am not sure 
as to what you are trying to bring in "International" into the discussion.

Thanks,
Kolusu



From:   Sri h Kolusu/Silicon Valley/IBM@IBMUS
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   02/04/2016 11:40 AM
Subject:Re: DFSORT - SMF Records - GMT To EST
Sent by:IBM Mainframe Discussion List 



>>Hmmm...  Your example covers 4 time zones, all in the contiguous USA. 
And I don't see that it accounts for the 2007 change.

Paul,

What 2007 change don't you see accounted for? The first IFTHEN=(WHEN=INIT 
calculates the begin and end dates of DST based off NIST rules and there 
is a check to subtract 1 from the offset. So please check once again.

>>> Alaska and Hawaii add two more.  And Hawaii and Arizona don't observe 
Daylight saving  time. Not Samoa?  USA only? 

My example just shows the prominent time zones . If the user wants more 
time zones, all he needs to do is add more time zones in the CHANGE 
command. It is simple change. You can add any number of time zones you 
want.

>> What does the "I" in IBM stand for?

If you are referring to the "I"  in the text about the training , it 
refers to myself as I will be the one providing the training.

>>I wonder whether the IANA database could be extracted and formatted as a 

canned procedure for DFSORT?

You can extract the database and generate DFSORT symbols that can be used 
in the Time zone command

>>> Your example shows me that DFSORT is not the best tool for the job; it 

can be done, but like Samuel Johnson's dog, it is surprising that it is > 
done at all.

Thanks for the opinion but I would really appreciate if you can stop the 
comparison for DFSORT. 

>>> STCKCONV and CONVTOD are hot the answer; their capabilities are 
pathetic.

For the record, DFSORT does use STCKCONV.  If the time is in TOD format 
then you can use DFSORT TC1 format to convert it to readable format 

Example: 099,8,TC1,EDIT=(TT:TT:TT),   $ TOD TIME 

The 8 bytes of an input clock value, in the basic time-of-day (TOD) 
format, is converted to a Z'hhmmss' value. The STCKCONV macro is used to 
do the conversion.

>>I mentioned Java.  Not realistic.  It produces correct answers, but 
performance is abysmal.

DFSORT does produces the correct answers provided you list out all the 
timezones you want


Thanks,
Kolusu

IBM Mainframe Discussion List  wrote on 
02/04/2016 11:15:34 AM:

> From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 02/04/2016 11:16 AM
> Subject: Re: DFSORT - SMF Records - GMT To EST
> Sent by: IBM Mainframe Discussion List 
> 
> On Thu, 4 Feb 2016 10:37:53 -0700, Sri h Kolusu wrote:
> 
> >>>And Ravi has clarified that he wants the technique to be aware of 
> >Daylight Saving Time.  And I recall the rules in the U.S. changed in 
2006. 
> > And more
> >recently in the Nation of Samoa.
> >Sigh.  DFSORT (and DB2) ought to be savvy to:
> >https://www.iana.org/time-zones
> >
> >(Java knows this.  Linux knows this.  ... )
> >
> >Paul,
> >
> > I am not sure as to what your gripe is but it is really sad to see you 


> >complain on every bit of DFSORT when you don't realize the full 
potential 
> >of its capability. May be it is time for your shop to pay for a 
training 
> >class on DFSORT and I will be more than happy to show you its full 
> >potential. Here is a small sample Job that calculates the Day light 
> >savings begin date and end date and then adjust the offset according to 


> >them and as well as gives the option for the user to pick whatever time 


> >zone he wants these calculations to be based on. If the user does not 
pass 
> >a time zone then it defaults to PST.
> >
> >And just for your record, according to "National Institute of Standards 


> >and Technology" the DST rules are changed in 2007.
> >
> >http://www.nist.gov/pml/div688/dst.cfm
> > 
> Thanks for the correction.  I was close.  And the important point is 
that
> today's rules don't cover even the last several years, within the 
relevance
> of DB2 (though perhaps not SMF) data.
> 
> Your example shows me that DFSORT is not the best tool for the job;
> it can be done, but like Samuel Johnson's dog, it is surprising that it 
is
> done at all.
> 
> Time conversion functions should be modular, outside DFSORT, and
> available to all applications.
> 
> Hmmm...  Your example covers 4 time zones, all in the contiguous USA.
> And I don't see that it accounts for the 2007 change.  Alaska and Hawaii
> add two more.  And Hawaii and Arizona don't observe Daylight saving
> time.
> 
> Not Samoa?  USA only?  What does the "I" in IBM stand for?
> 
> I wonder whether the IANA database could be extracted and formatted
> as a canned procedure for DFSORT?
> 
> Again, I don't believe