Re: zOS LPAR on Rental Basis for POC

[Timothy Sipples]

Another potential option is the IBM Z Development & Test Environment, or
"ZD&T" for short. Details are available here:

https://developer.ibm.com/mainframe/products/z-systems-development-test-environment/

http://millennialmainframer.com/2017/12/z-development-test-personal-mainframe/

"Proof of Concept" use sounds like it should comply with the ZD&T license
terms, but please check that.

There are two term licensing options available for ZD&T: a one year term
license and a perpetual license. z/OS and most IBM software products that
run on z/OS are included. CA is separately responsible for ACF2 licensing.

The IBM PartnerWorld Z Personal Development Tool ("ZPDT") is ZD&T's
"sibling" and is another potential option, with its own terms and
conditions. Details are available here:

https://www.ibm.com/partnerworld/wps/servlet/ContentHandler/pw_com_zpdt


Timothy Sipples
IT Architect Executive, Industry Solutions, IBM Z and LinuxONE, AP/GCG/MEA
E-Mail: sipp...@sg.ibm.com

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

Re: DFSORT: RACFICE query - how to extract all commands containing some text value

[Martin Packer]

This, I think, could use some Symbols love.

Cheers, Martin

Martin Packer

> On 14 Dec 2017, at 05:54, Bruce Hewson  wrote:
>
> Thanks all, especially to Kolusu & Elardus.
>
> My final JCL:-
>
> //***
> //EXTRACT  EXEC PGM=ICETOOL
> //IRRADU00 DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.ALL
> //EXTRACT  DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.EXTRACT
> //PRINTDD DISP=(MOD,DELETE),
> //UNIT=3390,
> //LRECL=500,RECFM=FB,BLKSIZE=0,
> //SPACE=(TRK,(15,15)),
> //DSN=XYZZY.RACFICE.REPORT.CSMADMIN
> //TOOLMSG  DD DUMMY
> //DFSMSG   DD DUMMY
> //SYSINDD *
> /*
> //*--
> //TOOLIN   DD *
> COPYFROM(IRRADU00) TO(EXTRACT) USING(RACF)
> /*
> //*--
> //RACFCNTL DD *
> OUTFILE FNAMES=EXTRACT,
>  INCLUDE=(1,8192,SS,EQ,C'XYZZY')
> OPTION VLSCMP
> /*
> //REPORT   EXEC PGM=ICETOOL
> //EXTRACT  DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.EXTRACT
> //TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
> //TEMP0002 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
> //TEMP0003 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
> //TEMP0004 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
> //TEMP0005 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
> //TEMP0006 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
> //TEMP0007 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))
> //PRINTDD DISP=(MOD,CATLG),
> //UNIT=3390,
> //LRECL=500,RECFM=FB,BLKSIZE=0,
> //SPACE=(TRK,(15,15)),
> //DSN=XYZZY.RACFICE.REPORT.CSMADMIN
> //TOOLMSG  DD DUMMY
> //DFSMSG   DD DUMMY
> //SYSINDD *
> /*
> //*--
> //TOOLIN   DD *
> SORTFROM(EXTRACT) TO(TEMP0001) USING(ADDU)
> DISPLAY FROM(TEMP0001) LIST(PRINT)  -
> NOCC-
> WIDTH(500)  -
> TITLE('RACF ADDUSER Command Report')-
> DATE(4MD/)  -
> TIME(24:)   -
> PAGE-
> BLANK   -
> ON(32,10,CH)   HEADER('DATE')   -
> ON(23,8,CH)HEADER('TIME')   -
> ON(43,4,CH)HEADER('SMFID')  -
> ON(14,8,CH)HEADER('RESULT') -
> ON(5,8,CH) HEADER('COMMAND')-
> ON(508,8,CH)   HEADER('USER ID')-
> ON(517,138,CH) HEADER('KEYWORDS')   -
> ON(63,8,CH)HEADER('ISSUER') -
> ON(72,8,CH)HEADER('GROUP')  -
> ON(175,8,CH)   HEADER('TERMINAL')   -
> ON(184,8,CH)   HEADER('JOB NAME')   -
> ON(295,20,CH)  HEADER('USER NAME')
> SORTFROM(EXTRACT) TO(TEMP0002) USING(ALTU)
> DISPLAY FROM(TEMP0002) LIST(PRINT)  -
> NOCC-
> WIDTH(500)  -
> TITLE('RACF ALTUSER Command Report')-
> DATE(4MD/)  -
> TIME(24:)   -
> PAGE-
> BLANK   -
> ON(32,10,CH)   HEADER('DATE')   -
> ON(23,8,CH)HEADER('TIME')   -
> ON(43,4,CH)HEADER('SMFID')  -
> ON(14,8,CH)HEADER('RESULT') -
> ON(5,8,CH) HEADER('COMMAND')-
> ON(522,8,CH)   HEADER('USER ID')-
> ON(286,8,CH)   HEADER('OWNER  ')-
> ON(531,127,CH) HEADER('KEYWORDS USED')  -
> ON(63,8,CH)HEADER('ISSUER') -
> ON(72,8,CH)HEADER('GROUP')  -
> ON(175,8,CH)   HEADER('TERMINAL')   -
> ON(184,8,CH)   HEADER('JOB NAME')   -
> ON(295,20,CH)  HEADER('USER NAME')
> SORTFROM(EXTRACT) TO(TEMP0003) USING(CONU)
> DISPLAY FROM(TEMP0003) LIST(PRINT)  -
> NOCC-
> WIDTH(500)  -
> TITLE('RACF CONNECT Command Report')-
> DATE(4MD/)  -
> TIME(24:)   -
> PAGE-
> BLANK   -
> ON(32,10,CH)   HEADER('DATE')   -
> ON(23,8,CH)HEADER('TIME')   -
> ON(43,4,CH)HEADER('SMFID')  -
> ON(14,8,CH)HEADER('RESULT') -
> ON(5,8,CH) HEADER('COMMAND')-
> ON(498,8,CH)   HEADER('USER ID')-
> ON(507,138,CH) HEADER('KEYWORDS USED')  -
> ON(63,8,CH)HEADER('ISSUER') -
> ON(72,8,CH)HEADER(

Re: Strange application (or A.P.A) behaviour.

[Bernd Oppolzer]

When I worked for a big insurance company (for more than 20 years),
we did all our insurance math using binary FP. After some problems
(rounding issues) in the beginning, it worked without problems, and
it still does today. It was driven by the design decision to have the same
software working on all platforms, Windows, OS/2, all sorts of Unixes,
and IBM mainframe, and to use C to do this. The project started in 1992
and was in hindsight very successful. Before that, the insurance math was
done using Mainframe ASSEMBLER.

I conceived and held the C classes to enable the existing ASSEMBLER and 
PL/1

developers to code in C for all the different platforms in the first years.
Later I worked on the project as a developer and consultant.

Kind regards

Bernd



Am 14.12.2017 um 02:23 schrieb Frank Swarbrick:

I was going to say that too, but then decided not to.  But it certainly makes 
me wonder!

From: IBM Mainframe Discussion List  on behalf of Tony 
Harminc 
Sent: Wednesday, December 13, 2017 6:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Strange application (or A.P.A) behaviour.

On 12 December 2017 at 11:47, Massimo Biancucci  wrote:

Thanks for your support.

One of the programs does heavy use of FP variables (mortgage calculation).

I hate to ask, but *binary* FP for financial calculations?

Tony H.



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

Re: "make" question

[Paul Gilmartin]

On Thu, 14 Dec 2017 13:40:14 +0800, David Crayford wrote:

>Swing by Rockets ported talks and download and install gmake. Nobody
>uses the z/OS make including IBM developers.
>
It would have been a boon if Unix System services had been ASCII-based rather 
than
EBCDIC, and relied on GNU tools.

>On 14/12/2017 9:58 AM, Frank Swarbrick wrote:
>> I wrote my first "makefile" today.  Took me some time to understand the 
>> requirement for tab characters.  Having only the ISPF editor (oedit), tab 
>> characters are not very friendly on 3270 screens.
>>
There ought to be an RFE here.  Tab could be handled cleverly on a 3270 screen.

But ISPF is perhaps not the best editor for makefiles or many other UNIXy tools.

EBCDIC tab is x'05'.

>> GNUMake has an special variable called ".RECIPEPREFIX" that allows 
>> replacement of the tab character with another character.  This does not 
>> appear to be an option on z/OS.  Does z/OS by chance have anything similar, 
>> perhaps with a different name?

-- gil

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

Re: DFSORT: RACFICE query - how to extract all commands containing some text value

[Bruce Hewson]

Thanks all, especially to Kolusu & Elardus.

My final JCL:-

//***
//EXTRACT  EXEC PGM=ICETOOL  
//IRRADU00 DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.ALL
//EXTRACT  DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.EXTRACT
//PRINTDD DISP=(MOD,DELETE), 
//UNIT=3390, 
//LRECL=500,RECFM=FB,BLKSIZE=0,  
//SPACE=(TRK,(15,15)),   
//DSN=XYZZY.RACFICE.REPORT.CSMADMIN  
//TOOLMSG  DD DUMMY  
//DFSMSG   DD DUMMY  
//SYSINDD *  
/*   
//*--
//TOOLIN   DD *  
 COPYFROM(IRRADU00) TO(EXTRACT) USING(RACF)  
/*   
//*--
//RACFCNTL DD *  
 OUTFILE FNAMES=EXTRACT, 
  INCLUDE=(1,8192,SS,EQ,C'XYZZY')
 OPTION VLSCMP   
/*   
//REPORT   EXEC PGM=ICETOOL  
//EXTRACT  DD DISP=OLD,DSN=XYZZY.RACFICE.IRRADU00.EXTRACT
//TEMP0001 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))  
//TEMP0002 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))  
//TEMP0003 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))  
//TEMP0004 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))  
//TEMP0005 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))  
//TEMP0006 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))  
//TEMP0007 DD DISP=(NEW,DELETE,DELETE),SPACE=(0,(1000,350))  
//PRINTDD DISP=(MOD,CATLG),  
//UNIT=3390, 
//LRECL=500,RECFM=FB,BLKSIZE=0,  
//SPACE=(TRK,(15,15)),   
//DSN=XYZZY.RACFICE.REPORT.CSMADMIN  
//TOOLMSG  DD DUMMY  
//DFSMSG   DD DUMMY  
//SYSINDD *  
/*   
//*--
//TOOLIN   DD *  
 SORTFROM(EXTRACT) TO(TEMP0001) USING(ADDU)  
 DISPLAY FROM(TEMP0001) LIST(PRINT)  -   
 NOCC-   
 WIDTH(500)  -   
 TITLE('RACF ADDUSER Command Report')-   
 DATE(4MD/)  -   
 TIME(24:)   -   
 PAGE-   
 BLANK   -   
 ON(32,10,CH)   HEADER('DATE')   -   
 ON(23,8,CH)HEADER('TIME')   -   
 ON(43,4,CH)HEADER('SMFID')  -   
 ON(14,8,CH)HEADER('RESULT') -   
 ON(5,8,CH) HEADER('COMMAND')-   
 ON(508,8,CH)   HEADER('USER ID')-   
 ON(517,138,CH) HEADER('KEYWORDS')   -   
 ON(63,8,CH)HEADER('ISSUER') -   
 ON(72,8,CH)HEADER('GROUP')  -   
 ON(175,8,CH)   HEADER('TERMINAL')   -   
 ON(184,8,CH)   HEADER('JOB NAME')   -   
 ON(295,20,CH)  HEADER('USER NAME')  
 SORTFROM(EXTRACT) TO(TEMP0002) USING(ALTU)  
 DISPLAY FROM(TEMP0002) LIST(PRINT)  -   
 NOCC-   
 WIDTH(500)  -   
 TITLE('RACF ALTUSER Command Report')-   
 DATE(4MD/)  -   
 TIME(24:)

Re: "make" question

[David Crayford]

Swing by Rockets ported talks and download and install gmake. Nobody 
uses the z/OS make including IBM developers.



On 14/12/2017 9:58 AM, Frank Swarbrick wrote:

I wrote my first "makefile" today.  Took me some time to understand the 
requirement for tab characters.  Having only the ISPF editor (oedit), tab characters are 
not very friendly on 3270 screens.

GNUMake has an special variable called ".RECIPEPREFIX" that allows replacement 
of the tab character with another character.  This does not appear to be an option on 
z/OS.  Does z/OS by chance have anything similar, perhaps with a different name?

Thanks,
Frank

--
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: zOS LPAR on Rental Basis for POC

[Peter]

Hi

I can ask them but do they rent it out ?

On 14-Dec-2017 8:50 AM, "Wayne Bickerdike"  wrote:

> Have you asked CA? They have an education LPAR.
>
>
>
> On Thu, Dec 14, 2017 at 7:53 AM, Charles Mills  wrote:
>
> > It is definitely hosted on something that sits somewhere in the vicinity
> > of z/OS. I think I recognize names of the form
> >
> > HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP)
> >
> > 
> >
> > Charles
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> > Behalf Of Dana Mitchell
> > Sent: Wednesday, December 13, 2017 12:50 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: zOS LPAR on Rental Basis for POC
> >
> > Charles,
> >
> > I can reach that, it must be public.
> >
> > /MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP). MVSDS=Cool, it looks
> > like that's actually hosted on apache on a z/OS lpar.  Nothing like
> eating
> > your own dog food!
> >
> > Dana
> >
> > On Wed, 13 Dec 2017 10:53:17 -0800, Charles Mills 
> > wrote:
> >
> > >It's not clear to me what is public and what I am reaching only because
> I
> > am signed it. Can you open this link?
> > >
> > >http://dtsc.dfw.ibm.com/MVSDS/'HTTPD2.ENROL.PUBLIC.
> > SHTML(ZOSRDP)'?ibm-view=Review...
> > >
> > >Charles
> > >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email
> > to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
>
>
> --
> Wayne V. Bickerdike
>
> --
> 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: zOS LPAR on Rental Basis for POC

[Wayne Bickerdike]

Have you asked CA? They have an education LPAR.



On Thu, Dec 14, 2017 at 7:53 AM, Charles Mills  wrote:

> It is definitely hosted on something that sits somewhere in the vicinity
> of z/OS. I think I recognize names of the form
>
> HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP)
>
> 
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Dana Mitchell
> Sent: Wednesday, December 13, 2017 12:50 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: zOS LPAR on Rental Basis for POC
>
> Charles,
>
> I can reach that, it must be public.
>
> /MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP). MVSDS=Cool, it looks
> like that's actually hosted on apache on a z/OS lpar.  Nothing like eating
> your own dog food!
>
> Dana
>
> On Wed, 13 Dec 2017 10:53:17 -0800, Charles Mills 
> wrote:
>
> >It's not clear to me what is public and what I am reaching only because I
> am signed it. Can you open this link?
> >
> >http://dtsc.dfw.ibm.com/MVSDS/'HTTPD2.ENROL.PUBLIC.
> SHTML(ZOSRDP)'?ibm-view=Review...
> >
> >Charles
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Wayne V. Bickerdike

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

Re: COBOL compilers -- a third parameter?

[Charles Mills]

Thanks. Very helpful. 
Exactly the sort of clues I am looking for. 

CharlesSent from a mobile; please excuse the brevity.
 Original message From: Tony Harminc  Date: 
12/13/17  4:56 PM  (GMT-08:00) To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: COBOL 
compilers -- a third parameter? 
On 13 December 2017 at 14:02, Charles Mills  wrote:
> May I throw an odd question out here without fully explaining myself? Is
> "inquiring minds want to know" enough of a reason for this question?

A couple of people on this list always seem to want a Business Reason
for any question. Most of us are a bit more relaxed about it. Nothing
wrong with curiosity...

> The IBM COBOL compilers -- Enterprise V4/5/6, COBOL for OS/390, COBOL for
> MVS and VM, earlier compilers -- are all documented as accepting two
> parameters off of R1: the first is the standard PARM= halfword length and
> character string and the second is the semi-standard DD name override table.
>
> I have seen some circumstantial evidence that they also accept a third
> parameter (and for all I know, a fourth or fifth). I have a reason for being
> curious about its or their function.
>
> Can anyone enlighten me, on- or off-list? Charlesm at mcn dot org. Any clues
> would be appreciated. If you just said "I have also seen circumstantial
> evidence of this" or "I once heard it was for ___" it might be a help.

As Shmuel says, the page number is a traditional use after Options and
DDNAMEs. The point being that you can invoke multiple utilities (or
the same one multiple times) and have a consistently numbered listing
in one output file. I have no idea if COBOL supports this.

I recently raised on this list the issue of the disappearance of the
IEBCPARM macro from z/OS. Turns out it was a packaging error, and it
will be restored. Of course it's for the IEB utilities (or maybe even
just for IEBCOPY), but it has OPTIONS, DDNAMES, PAGENUM, and then
EXITS in its mapping - all fullword pointers to halfword
length+. The EXITS layout is almost certainly unique to
IEBCOPY, but perhaps 


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

"make" question

[Frank Swarbrick]

I wrote my first "makefile" today.  Took me some time to understand the 
requirement for tab characters.  Having only the ISPF editor (oedit), tab 
characters are not very friendly on 3270 screens.

GNUMake has an special variable called ".RECIPEPREFIX" that allows replacement 
of the tab character with another character.  This does not appear to be an 
option on z/OS.  Does z/OS by chance have anything similar, perhaps with a 
different name?

Thanks,
Frank

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

Re: Strange application (or A.P.A) behaviour.

[Frank Swarbrick]

I was going to say that too, but then decided not to.  But it certainly makes 
me wonder!

From: IBM Mainframe Discussion List  on behalf of 
Tony Harminc 
Sent: Wednesday, December 13, 2017 6:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Strange application (or A.P.A) behaviour.

On 12 December 2017 at 11:47, Massimo Biancucci  wrote:
> Thanks for your support.
>
> One of the programs does heavy use of FP variables (mortgage calculation).

I hate to ask, but *binary* FP for financial calculations?

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: Strange application (or A.P.A) behaviour.

[Tony Harminc]

On 12 December 2017 at 11:47, Massimo Biancucci  wrote:
> Thanks for your support.
>
> One of the programs does heavy use of FP variables (mortgage calculation).

I hate to ask, but *binary* FP for financial calculations?

Tony H.

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

Re: COBOL compilers -- a third parameter?

[Tony Harminc]

On 13 December 2017 at 14:02, Charles Mills  wrote:
> May I throw an odd question out here without fully explaining myself? Is
> "inquiring minds want to know" enough of a reason for this question?

A couple of people on this list always seem to want a Business Reason
for any question. Most of us are a bit more relaxed about it. Nothing
wrong with curiosity...

> The IBM COBOL compilers -- Enterprise V4/5/6, COBOL for OS/390, COBOL for
> MVS and VM, earlier compilers -- are all documented as accepting two
> parameters off of R1: the first is the standard PARM= halfword length and
> character string and the second is the semi-standard DD name override table.
>
> I have seen some circumstantial evidence that they also accept a third
> parameter (and for all I know, a fourth or fifth). I have a reason for being
> curious about its or their function.
>
> Can anyone enlighten me, on- or off-list? Charlesm at mcn dot org. Any clues
> would be appreciated. If you just said "I have also seen circumstantial
> evidence of this" or "I once heard it was for ___" it might be a help.

As Shmuel says, the page number is a traditional use after Options and
DDNAMEs. The point being that you can invoke multiple utilities (or
the same one multiple times) and have a consistently numbered listing
in one output file. I have no idea if COBOL supports this.

I recently raised on this list the issue of the disappearance of the
IEBCPARM macro from z/OS. Turns out it was a packaging error, and it
will be restored. Of course it's for the IEB utilities (or maybe even
just for IEBCOPY), but it has OPTIONS, DDNAMES, PAGENUM, and then
EXITS in its mapping - all fullword pointers to halfword
length+. The EXITS layout is almost certainly unique to
IEBCOPY, but perhaps it's used similarly by other programs.

As for secret magic COBOL options, sorry but I have no idea. Try
passing something in with a non-zero but bogus pointer and see who
abends...

Tony H.

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

Re: Back up of your largest DB

[Mike Schwab]

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.2.0/com.ibm.zos.v2r2.adru000/bwoims.htm
Includes backup while open.

http://www.redbooks.ibm.com/abstracts/redp4452.html?Open


On Wed, Dec 13, 2017 at 4:10 PM, Edward Gould  wrote:
> Hi all:
>
> This question I am posing caught me off guard and was wondering what the MF 
> world does about Data Base backups.
> The largest DB I had e been exposed to was around 60 3350 volumes and that 
> was 20+ years ago.
> The backup of the entire DB took about 3 hours and that was by a special back 
> program written by the vendor.
>
> The webinar that I watched was of course a PC Data base.
>
> One of the questions was:
> Have a file system so large or dense that you haven't completed a full backup 
> in several months, if ever
> ——
> Have any of you had this much data to back up you couldn’t do it … for 
> several months??
>
> I talked with a friend whose company has a large (credit history of all the 
> people in the US (plus a few over seas)) and according to him they back the 
> data up in several ways, but the current back up is to replicate the data and 
> then back it up off the replicated data and he said 3-4 hours. When I told 
> him of the comment that was made in the webinar, he said: “If I couldn’t back 
> up the data in 4 hours tops, he would be fired.”
>
> I though this might be an interesting question for the people on here.
> How long does it take to backup your largest DB ?
> What are the various methodologies do you use for backup of your largest DB?
> Finally would you still have your job, if any portion of your DB went for say 
> over 1 day without a proper backup?
> The 1 day is a variable and I plucked it out of nowhere and was wondering 
> what is your magic number?
>
> Ed
>
>
> --
> 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

Back up of your largest DB

[Edward Gould]

Hi all:

This question I am posing caught me off guard and was wondering what the MF 
world does about Data Base backups.
The largest DB I had e been exposed to was around 60 3350 volumes and that was 
20+ years ago.
The backup of the entire DB took about 3 hours and that was by a special back 
program written by the vendor.

The webinar that I watched was of course a PC Data base.

One of the questions was: 
Have a file system so large or dense that you haven't completed a full backup 
in several months, if ever
——
Have any of you had this much data to back up you couldn’t do it … for several 
months??

I talked with a friend whose company has a large (credit history of all the 
people in the US (plus a few over seas)) and according to him they back the 
data up in several ways, but the current back up is to replicate the data and 
then back it up off the replicated data and he said 3-4 hours. When I told him 
of the comment that was made in the webinar, he said: “If I couldn’t back up 
the data in 4 hours tops, he would be fired.”

I though this might be an interesting question for the people on here.
How long does it take to backup your largest DB ?
What are the various methodologies do you use for backup of your largest DB?
Finally would you still have your job, if any portion of your DB went for say 
over 1 day without a proper backup?
The 1 day is a variable and I plucked it out of nowhere and was wondering what 
is your magic number?

Ed


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

Re: Cobol 5/6 - Compile listing integrated into load module

[Brian Peterson]

> In versions 5 and 6 of Cobol, IBM has introduced the option of including
> the compile listing (or at least the data from which a compile listing can
> be derived) into the load module for subsequent debug processing.
> Presumably this obviates the need to maintain something like the DDIO file
> required by Compuware's Expeditor product.

For what it's worth, Compuware tools no longer "require" separate DDIO files.  
Check out "Embedded Source Support" which is a new feature - it basically puts 
the DDIO information into NOLOAD segments of the program object.  It is a new 
option, but separate DDIO files are still supported of course.  Sure sounds a 
lot simpler to manage, but we've not tried it yet.

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

Re: zOS LPAR on Rental Basis for POC

[Charles Mills]

It is definitely hosted on something that sits somewhere in the vicinity of 
z/OS. I think I recognize names of the form

HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP)



Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Dana Mitchell
Sent: Wednesday, December 13, 2017 12:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: zOS LPAR on Rental Basis for POC

Charles,

I can reach that, it must be public.   

/MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP). MVSDS=Cool, it looks like 
that's actually hosted on apache on a z/OS lpar.  Nothing like eating your own 
dog food!

Dana  

On Wed, 13 Dec 2017 10:53:17 -0800, Charles Mills  wrote:

>It's not clear to me what is public and what I am reaching only because I am 
>signed it. Can you open this link?
>
>http://dtsc.dfw.ibm.com/MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP)'?ibm-view=Review...
> 
>   
>Charles
>

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

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

Re: zOS LPAR on Rental Basis for POC

[Dana Mitchell]

Charles,

I can reach that, it must be public.   

/MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP). MVSDS=Cool, it looks like 
that's actually hosted on apache on a z/OS lpar.  Nothing like eating your own 
dog food!

Dana  

On Wed, 13 Dec 2017 10:53:17 -0800, Charles Mills  wrote:

>It's not clear to me what is public and what I am reaching only because I am 
>signed it. Can you open this link?
>
>http://dtsc.dfw.ibm.com/MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP)'?ibm-view=Review...
> 
>
>Charles
>

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

Re: zOS LPAR on Rental Basis for POC

[Peter]

Hi Charles

Thank you so much

Not Sure if CA can give me ACF2 only for 30 days usage.

Peter

On 14-Dec-2017 12:24 AM, "Charles Mills"  wrote:

> It's not clear to me what is public and what I am reaching only because I
> am signed it. Can you open this link?
>
> http://dtsc.dfw.ibm.com/MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(
> ZOSRDP)'?ibm-view=Review...
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter
> Sent: Wednesday, December 13, 2017 9:13 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: zOS LPAR on Rental Basis for POC
>
> Hello Charles
>
> Thank you so much for the information
>
> Is there any ibm link where I can register and pay for the service ?
>
> Regards
> Peter
>
> On 13-Dec-2017 10:09 PM, "Charles Mills"  wrote:
>
> You can rent an LPAR from IBM very economically and with some proper
> cajoling I believe CA will let you install ACF2 on it. You will need to
> become a CA "partner."
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter
> Sent: Tuesday, December 12, 2017 11:30 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: zOS LPAR on Rental Basis for POC
>
> Hello
>
> Is there any company who provide zOS LPAR image on rental basis ? I am
> looking for a zOS LPAR with ACF2 to perform a Proof of Concept(POC). So
> looking for Pay as you use kind of service would help me.
>
> Please advise me if there is any such vendors are available providing zOS
> image with ACF2 on Rental(Pay as you use).
>
> --
> 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

FYI: IBM reminds staff not to break customers in pre-Xmas fix-this-now rush

[Mark Regan]

https://www.theregister.co.uk/2017/12/13/ibm_australia_mistakes/

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

Re: Possible Debug issue

[Seymour J Metz]

REGION=0M might even give you less than the default region; you really need to 
know what your installation's exits are doing.


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


From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Wednesday, December 13, 2017 2:10 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Possible Debug issue

I seem to recall trying REGION=0M not working in this case.  Over-allocation or 
something.  Can't recall the details.  Perhaps I imagined it?

From: IBM Mainframe Discussion List  on behalf of 
Peter Hunkeler 
Sent: Tuesday, December 12, 2017 11:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: Re: Possible Debug issue

>Debug Tool and Fault Analyzer seem to take a huge amount of memory when 
>working with COBOL 5.  Try setting REGION=2000M.


What release of z/OS managed to move the whole common area above the bar?
Seriously, 2000M will probably never be available in the private region. But if 
you want to see how much you need to be able to debug, within the maximum 
available, specify REGION=0M.


--
Peter Hunkeler





--
Peter Hunkeler

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

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

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

Re: Possible Debug issue

[Frank Swarbrick]

If you have the ability to open an SR regarding this, could you do so?  I have 
to go through my sysprogs to do so, so if someone else was to do it instead it 
would be very convenient for me.  :-)

From: IBM Mainframe Discussion List  on behalf of 
Savor, Thomas (Alpharetta) 
Sent: Wednesday, December 13, 2017 12:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

I tried 2000M...didnt get the errors.  I will pass it on to the tester.

Here is what 2000M gave me:
IEF032I STEP/EP2999  /STOP  2017345.1758
CPU: 0 HR  00 MIN  00.15 SECSRB: 0 HR  00 MIN  00.02 SEC
VIRT:   412K  SYS:   336K  EXT:28256K  SYS:11532K
ATB- REAL:   208K  SLOTS: 0K
 VIRT- ALLOC:  21M SHRD:   0M



Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, December 13, 2017 10:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

Depending on you IEFUSI or other functions used to control region size, you may 
not be getting what you think 0M gives you.

If you try the suggestion of 2000M for region and rerun the job, what do you 
get?

If you have an ACTRT exit in your shop - it may provide the virtual storage map 
at step end. There you should the Requested/Below/above/ and so forth of 
storage allocation for the step.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Possible Debug issue
>
> On this particular test that got all the storage error
> messages..region was set to 0M
>
> Thanks,
>
> Tom Savor
> Software Developer, Sr
> FRMS-SCM
> Fiserv
> Office:  678-375-1307
> Mobile: 404-660-6898
> Fax:  678-375-3280
> www.fiserv.com
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Peter Hunkeler
> Sent: Wednesday, December 13, 2017 1:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Possible Debug issue
>
> >Debug Tool and Fault Analyzer seem to take a huge amount of memory
> >when
> working with COBOL 5.  Try setting REGION=2000M.
>
>
> What release of z/OS managed to move the whole common area above the bar?
> Seriously, 2000M will probably never be available in the private
> region. But if you want to see how much you need to be able to debug,
> within the maximum available, specify REGION=0M.
>
>
> --
> Peter Hunkeler
>
>
>
>
>
> --
> Peter Hunkeler

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

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

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

Re: Possible Debug issue

[Frank Swarbrick]

I seem to recall trying REGION=0M not working in this case.  Over-allocation or 
something.  Can't recall the details.  Perhaps I imagined it?

From: IBM Mainframe Discussion List  on behalf of 
Peter Hunkeler 
Sent: Tuesday, December 12, 2017 11:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: Re: Possible Debug issue

>Debug Tool and Fault Analyzer seem to take a huge amount of memory when 
>working with COBOL 5.  Try setting REGION=2000M.


What release of z/OS managed to move the whole common area above the bar?
Seriously, 2000M will probably never be available in the private region. But if 
you want to see how much you need to be able to debug, within the maximum 
available, specify REGION=0M.


--
Peter Hunkeler





--
Peter Hunkeler

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

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

Re: COBOL compilers -- a third parameter?

[Seymour J Metz]

Page number?


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


From: IBM Mainframe Discussion List  on behalf of 
Charles Mills 
Sent: Wednesday, December 13, 2017 2:02 PM
To: IBM-MAIN@listserv.ua.edu
Subject: COBOL compilers -- a third parameter?

May I throw an odd question out here without fully explaining myself? Is
"inquiring minds want to know" enough of a reason for this question?

The IBM COBOL compilers -- Enterprise V4/5/6, COBOL for OS/390, COBOL for
MVS and VM, earlier compilers -- are all documented as accepting two
parameters off of R1: the first is the standard PARM= halfword length and
character string and the second is the semi-standard DD name override table.

I have seen some circumstantial evidence that they also accept a third
parameter (and for all I know, a fourth or fifth). I have a reason for being
curious about its or their function.

Can anyone enlighten me, on- or off-list? Charlesm at mcn dot org. Any clues
would be appreciated. If you just said "I have also seen circumstantial
evidence of this" or "I once heard it was for ___" it might be a help.

Thanks,
Charles

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

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

COBOL compilers -- a third parameter?

[Charles Mills]

May I throw an odd question out here without fully explaining myself? Is
"inquiring minds want to know" enough of a reason for this question?

The IBM COBOL compilers -- Enterprise V4/5/6, COBOL for OS/390, COBOL for
MVS and VM, earlier compilers -- are all documented as accepting two
parameters off of R1: the first is the standard PARM= halfword length and
character string and the second is the semi-standard DD name override table.

I have seen some circumstantial evidence that they also accept a third
parameter (and for all I know, a fourth or fifth). I have a reason for being
curious about its or their function.

Can anyone enlighten me, on- or off-list? Charlesm at mcn dot org. Any clues
would be appreciated. If you just said "I have also seen circumstantial
evidence of this" or "I once heard it was for ___" it might be a help.

Thanks,
Charles 

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

Re: Possible Debug issue

[Savor, Thomas (Alpharetta)]

I tried 2000M...didnt get the errors.  I will pass it on to the tester.

Here is what 2000M gave me:
IEF032I STEP/EP2999  /STOP  2017345.1758   
CPU: 0 HR  00 MIN  00.15 SECSRB: 0 HR  00 MIN  00.02 SEC   
VIRT:   412K  SYS:   336K  EXT:28256K  SYS:11532K  
ATB- REAL:   208K  SLOTS: 0K   
 VIRT- ALLOC:  21M SHRD:   0M  



Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, December 13, 2017 10:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

Depending on you IEFUSI or other functions used to control region size, you may 
not be getting what you think 0M gives you.

If you try the suggestion of 2000M for region and rerun the job, what do you 
get?

If you have an ACTRT exit in your shop - it may provide the virtual storage map 
at step end. There you should the Requested/Below/above/ and so forth of 
storage allocation for the step.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Possible Debug issue
> 
> On this particular test that got all the storage error 
> messages..region was set to 0M
> 
> Thanks,
> 
> Tom Savor
> Software Developer, Sr
> FRMS-SCM
> Fiserv
> Office:  678-375-1307
> Mobile: 404-660-6898
> Fax:  678-375-3280
> www.fiserv.com
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Peter Hunkeler
> Sent: Wednesday, December 13, 2017 1:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Possible Debug issue
> 
> >Debug Tool and Fault Analyzer seem to take a huge amount of memory 
> >when
> working with COBOL 5.  Try setting REGION=2000M.
> 
> 
> What release of z/OS managed to move the whole common area above the bar?
> Seriously, 2000M will probably never be available in the private 
> region. But if you want to see how much you need to be able to debug, 
> within the maximum available, specify REGION=0M.
> 
> 
> --
> Peter Hunkeler
> 
> 
> 
> 
> 
> --
> Peter Hunkeler

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

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

Re: Possible Debug issue

[Savor, Thomas (Alpharetta)]

This is what REGION=0M gave me:
IEF032I STEP/EP2999  /STOP  2017345.1334   
CPU: 0 HR  01 MIN  18.18 SECSRB: 0 HR  00 MIN  00.0
VIRT: 10492K  SYS:   512K  EXT:  1735996K  SYS:11932K  
ATB- REAL:   120K  SLOTS: 0
 VIRT- ALLOC:  20M SHRD:   0M  

Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Barry Merrill
Sent: Wednesday, December 13, 2017 1:42 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

The IEF032I Joblog Message

IEF032I STEP/SAS9/STOP  2017344.2055
CPU: 0 HR  00 MIN  00.67 SECSRB: 0 HR  00 MIN  00.02 SEC
VIRT:   912K  SYS:   292K  EXT:46616K  SYS:11788K
ATB- REAL:  1044K  SLOTS: 0K
 VIRT- ALLOC:  11M SHRD:   0M

has the REGION SIZE allocated in the sum of the EXT + SYS  = 46616K+11788K= 
58404K = 57 MegaBytes

Barry


Merrilly yours,

 Herbert W. Barry Merrill, PhD
 President-Programmer
 Merrill Consultants
 MXG Software
 10717 Cromwell Drive  technical questions: supp...@mxg.com
 Dallas, TX 75229
 http://www.mxg.comadmin questions: ad...@mxg.com
 tel: 214 351 1966
 fax: 214 350 3694




-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, December 13, 2017 9:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

Depending on you IEFUSI or other functions used to control region size, you may 
not be getting what you think 0M gives you.

If you try the suggestion of 2000M for region and rerun the job, what do you 
get?

If you have an ACTRT exit in your shop - it may provide the virtual storage map 
at step end. There you should the Requested/Below/above/ and so forth of 
storage allocation for the step.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Possible Debug issue
> 
> On this particular test that got all the storage error 
> messages..region was set to 0M
> 
> Thanks,
> 
> Tom Savor
> Software Developer, Sr
> FRMS-SCM
> Fiserv
> Office:  678-375-1307
> Mobile: 404-660-6898
> Fax:  678-375-3280
> www.fiserv.com
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Peter Hunkeler
> Sent: Wednesday, December 13, 2017 1:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Possible Debug issue
> 
> >Debug Tool and Fault Analyzer seem to take a huge amount of memory 
> >when
> working with COBOL 5.  Try setting REGION=2000M.
> 
> 
> What release of z/OS managed to move the whole common area above the bar?
> Seriously, 2000M will probably never be available in the private 
> region. But if you want to see how much you need to be able to debug, 
> within the maximum available, specify REGION=0M.
> 
> 
> --
> Peter Hunkeler
> 
> 
> 
> 
> 
> --
> Peter Hunkeler

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

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

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

Re: zOS LPAR on Rental Basis for POC

[Charles Mills]

It's not clear to me what is public and what I am reaching only because I am 
signed it. Can you open this link?

http://dtsc.dfw.ibm.com/MVSDS/'HTTPD2.ENROL.PUBLIC.SHTML(ZOSRDP)'?ibm-view=Review...
 

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter
Sent: Wednesday, December 13, 2017 9:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: zOS LPAR on Rental Basis for POC

Hello Charles

Thank you so much for the information

Is there any ibm link where I can register and pay for the service ?

Regards
Peter

On 13-Dec-2017 10:09 PM, "Charles Mills"  wrote:

You can rent an LPAR from IBM very economically and with some proper cajoling I 
believe CA will let you install ACF2 on it. You will need to become a CA 
"partner."

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter
Sent: Tuesday, December 12, 2017 11:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: zOS LPAR on Rental Basis for POC

Hello

Is there any company who provide zOS LPAR image on rental basis ? I am looking 
for a zOS LPAR with ACF2 to perform a Proof of Concept(POC). So looking for Pay 
as you use kind of service would help me.

Please advise me if there is any such vendors are available providing zOS image 
with ACF2 on Rental(Pay as you use).

--
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: Possible Debug issue

[Barry Merrill]

The IEF032I Joblog Message

IEF032I STEP/SAS9/STOP  2017344.2055
CPU: 0 HR  00 MIN  00.67 SECSRB: 0 HR  00 MIN  00.02 SEC
VIRT:   912K  SYS:   292K  EXT:46616K  SYS:11788K
ATB- REAL:  1044K  SLOTS: 0K
 VIRT- ALLOC:  11M SHRD:   0M

has the REGION SIZE allocated in the sum of the EXT + SYS  = 46616K+11788K=
58404K = 57 MegaBytes

Barry


Merrilly yours,

 Herbert W. Barry Merrill, PhD
 President-Programmer
 Merrill Consultants
 MXG Software
 10717 Cromwell Drive  technical questions: supp...@mxg.com
 Dallas, TX 75229
 http://www.mxg.comadmin questions: ad...@mxg.com
 tel: 214 351 1966
 fax: 214 350 3694




-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Wednesday, December 13, 2017 9:20 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

Depending on you IEFUSI or other functions used to control region size, you
may not be getting what you think 0M gives you.

If you try the suggestion of 2000M for region and rerun the job, what do you
get?

If you have an ACTRT exit in your shop - it may provide the virtual storage
map at step end. There you should the Requested/Below/above/ and so forth of
storage allocation for the step.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Possible Debug issue
> 
> On this particular test that got all the storage error 
> messages..region was set to 0M
> 
> Thanks,
> 
> Tom Savor
> Software Developer, Sr
> FRMS-SCM
> Fiserv
> Office:  678-375-1307
> Mobile: 404-660-6898
> Fax:  678-375-3280
> www.fiserv.com
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Peter Hunkeler
> Sent: Wednesday, December 13, 2017 1:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Possible Debug issue
> 
> >Debug Tool and Fault Analyzer seem to take a huge amount of memory 
> >when
> working with COBOL 5.  Try setting REGION=2000M.
> 
> 
> What release of z/OS managed to move the whole common area above the bar?
> Seriously, 2000M will probably never be available in the private 
> region. But if you want to see how much you need to be able to debug, 
> within the maximum available, specify REGION=0M.
> 
> 
> --
> Peter Hunkeler
> 
> 
> 
> 
> 
> --
> Peter Hunkeler

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

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

Re: CA View SAR migration

[Lizette Koehler]

Have you contacted CA SAR Support for assistance?  They maybe better able to 
assist you

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of venkat kulkarni
> Sent: Wednesday, December 13, 2017 9:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: CA View SAR migration
> 
> Hello,
> 
> We have requirement of migrating SAR from told tape drive to new tape less
> drives. So, when we look at SAR related dataset, which are on tape
> 
> SAR.TARQLTY.SARTAPE.T092  TARQ51
> 
> 
> SAR.TARQLTY.SARTAPE.T098  TARQ51
> 
> SAR.TARQLTY.SARTAPE.T102  TARQ51
> 
> SAR.TARQLTY.SARTAPE.T093  TARQ52
> 
> SAR.TARQLTY.SARTAPE.T094  TARQ53
> 
> SAR.TARQLTY.SARTAPE.T099  TARQ53
> 
> SAR.TARQLTY.SARTAPE.T104  TARQ53
> 
> SAR.TARQLTY.SARTAPE.T109  TARQ53
> 
> SAR.TARQLTY.SARTAPE.T095  TARQ54
> 
> SAR.TARQLTY.SARTAPE.T105  TARQ54
> 
> SAR.TARQLTY.SARTAPE.T090  TARQ55
> 
> SAR.TARQLTY.SARTAPE.T096  TARQ55
> 
> SAR.TARQLTY.SARTAPE.T097  TARQ56
> 
> SAR.TARQLTY.SARTAPE.T101  TARQ56
> 
> 
> 
> 
> if you look at above datasets, we are using 6 tapes for SAR backup currently
> and
> 
> when we list content of tape  Ex TARQ51, we see  only
> 
> SAR.TARQLTY.SARTAPE.T102  TARQ51
> 
> 
> 
> dataset which has highest number of time stamp and in my case it was 102 for
> TARQ51 volume  and below dataset not found on tape.
> 
> SAR.TARQLTY.SARTAPE.T092  TARQ51
> 
> SAR.TARQLTY.SARTAPE.T098  TARQ51
> 
> And this is same of other volumes  also, like for TARQ53, i couldn't find
> only SAR.TARQLTY.SARTAPE.T109  dataset etc.
> So, we planned to migrate these available dataset from old tape to new tape
> less  disk sub system using below JCL and dataset gets copied.
> 
> //OP117SAQ JOB (660),SAURABH,CLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
> 
> //STEP1 EXEC PGM=SARTCP,PARM='COPYASIS'
> 
> //*TEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR
> 
> //SYSPRINT DD SYSOUT=*
> 
> //TAPEIN DD DSN=SAR.TARQLTY.SARTAPE.T093,
> 
> // DISP=OLD,UNIT=359D,LABEL=(1,BLP),VOL=SER=XARQ52
> 
> //TAPEOUT DD DSN=SAR.TARQLTY.SARTAPE.T093,
> 
> // DISP=(NEW,KEEP),UNIT=359D,LABEL=EXPDT=99000,VOL=SER=TARQ52
> 
> //SYSIN DD DUMMY
> 
> 
> 
>  Then, we updated SAR parmlib member to use new Esoteric for tape less device
> and run update Job.
> 
> 
> 
> But when we run SAR again, it was not able to use new tape less device while
> archiving reports.
> 
> 
> 
> Please correct me, if we are following right way of migration.
> 
> 
> 
> Thanks & Regards
> 
> Venkat
> 
> --
> 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: RACFICE query - how to extract all commands containing some text value

[Sri h Kolusu]

Bruce,

You extract the SMF80 records and process it thru DFSORT.  You can also 
use RACFRW to report 

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha800/racfrw.htm

Example : 

This file produces a report of failed logons for user Smith. 

RACFRW TITLE('REPORT ON FAILED LOGONS FOR USER SMITH')
 SELECT PROCESS  USER(DUMMY)
  EVENT LOGON
SUMMARY USER NEWPAGE
END

You can use EVENT to list all of your event and generate a report

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.icha800/racfrw.htm#racfrw__eventsub

If you still need help please feel free to send your questions to DFSORT 
hotline (dfs...@us.ibm.com) along with a sample input file and desired 
output report.

Thank you Lizette for directing the users to our hotline

Thanks,
Kolusu
DFSORT Development
IBM Corporation



From:   Bruce Hewson 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   12/13/2017 02:50 AM
Subject:DFSORT: RACFICE query - how to extract all commands 
containing some text value
Sent by:IBM Mainframe Discussion List 



A query for the ICETOOL/RACFICE experts,

I have been asked to extract all RACF commands issued relating to a 
specific USERID.

I am not knowledgable enough with ICETOOLS  to code this myself quickly.

The current RACFICE examples do not provide a sample for this.

example.

Extract and report all commands,  ADDUSER/ALTUSER/PASSWORD/PERMIT that 
reference USER(xyzzy)


Hopefully someone can help.

Thanks
Bruce Hewson

--
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: zOS LPAR on Rental Basis for POC

[Peter]

Hello Charles

Thank you so much for the information

Is there any ibm link where I can register and pay for the service ?

Regards
Peter

On 13-Dec-2017 10:09 PM, "Charles Mills"  wrote:

You can rent an LPAR from IBM very economically and with some proper
cajoling I believe CA will let you install ACF2 on it. You will need to
become a CA "partner."

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Peter
Sent: Tuesday, December 12, 2017 11:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: zOS LPAR on Rental Basis for POC

Hello

Is there any company who provide zOS LPAR image on rental basis ? I am
looking for a zOS LPAR with ACF2 to perform a Proof of Concept(POC). So
looking for Pay as you use kind of service would help me.

Please advise me if there is any such vendors are available providing zOS
image with ACF2 on Rental(Pay as you use).

--
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: zOS LPAR on Rental Basis for POC

[Charles Mills]

You can rent an LPAR from IBM very economically and with some proper cajoling I 
believe CA will let you install ACF2 on it. You will need to become a CA 
"partner."

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter
Sent: Tuesday, December 12, 2017 11:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: zOS LPAR on Rental Basis for POC

Hello

Is there any company who provide zOS LPAR image on rental basis ? I am looking 
for a zOS LPAR with ACF2 to perform a Proof of Concept(POC). So looking for Pay 
as you use kind of service would help me.

Please advise me if there is any such vendors are available providing zOS image 
with ACF2 on Rental(Pay as you use).

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

CA View SAR migration

[venkat kulkarni]

Hello,

We have requirement of migrating SAR from told tape drive to new tape less
drives. So, when we look at SAR related dataset, which are on tape

SAR.TARQLTY.SARTAPE.T092  TARQ51


SAR.TARQLTY.SARTAPE.T098  TARQ51

SAR.TARQLTY.SARTAPE.T102  TARQ51

SAR.TARQLTY.SARTAPE.T093  TARQ52

SAR.TARQLTY.SARTAPE.T094  TARQ53

SAR.TARQLTY.SARTAPE.T099  TARQ53

SAR.TARQLTY.SARTAPE.T104  TARQ53

SAR.TARQLTY.SARTAPE.T109  TARQ53

SAR.TARQLTY.SARTAPE.T095  TARQ54

SAR.TARQLTY.SARTAPE.T105  TARQ54

SAR.TARQLTY.SARTAPE.T090  TARQ55

SAR.TARQLTY.SARTAPE.T096  TARQ55

SAR.TARQLTY.SARTAPE.T097  TARQ56

SAR.TARQLTY.SARTAPE.T101  TARQ56




if you look at above datasets, we are using 6 tapes for SAR backup
currently and

when we list content of tape  Ex TARQ51, we see  only

SAR.TARQLTY.SARTAPE.T102  TARQ51



dataset which has highest number of time stamp and in my case it was 102
for TARQ51 volume  and below dataset not found on tape.

SAR.TARQLTY.SARTAPE.T092  TARQ51

SAR.TARQLTY.SARTAPE.T098  TARQ51

And this is same of other volumes  also, like for TARQ53, i couldn't find
only SAR.TARQLTY.SARTAPE.T109  dataset etc.
So, we planned to migrate these available dataset from old tape to new tape
less  disk sub system using below JCL and dataset gets copied.

//OP117SAQ JOB (660),SAURABH,CLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID

//STEP1 EXEC PGM=SARTCP,PARM='COPYASIS'

//*TEPLIB DD DSN=CAI.CVDELOAD,DISP=SHR

//SYSPRINT DD SYSOUT=*

//TAPEIN DD DSN=SAR.TARQLTY.SARTAPE.T093,

// DISP=OLD,UNIT=359D,LABEL=(1,BLP),VOL=SER=XARQ52

//TAPEOUT DD DSN=SAR.TARQLTY.SARTAPE.T093,

// DISP=(NEW,KEEP),UNIT=359D,LABEL=EXPDT=99000,VOL=SER=TARQ52

//SYSIN DD DUMMY



 Then, we updated SAR parmlib member to use new Esoteric for tape less
device and run update Job.



But when we run SAR again, it was not able to use new tape less device
while archiving reports.



Please correct me, if we are following right way of migration.



Thanks & Regards

Venkat

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

Recommendations for number of pagesets in MQ

[James Peddycord]

NTAC:3NS-20
We are currently running MQ V7.1 (z/OS 2.2) and plan to migrate to V9 early 
next year.
A couple of weeks ago we had an issue where a application 'audit queue' 
residing in pageset 01, along with the dynamic command queues, filled up the 
pageset due to an application error. This caused us to not be able to use the 
MQ ISPF interface or run batch jobs containing MQ commands. We could still 
issue commands via SDSF, and our response was to empty out and move this audit 
queue to pageset 02. We then found over 1400 orphaned dynamic command queues, 
120+ with commands queued in them.
We cleared the command queues manually and deleted them and the issue was 
resolved.
IBM put some recommendations into the PMR around pageset guidelines, and we are 
looking to redo our pagesets to something that protects us against issues like 
this.
We currently have 6 pagesets.
Issue #1 is to move local queues out of pageset 01 so that the dynamic command 
queues don't get impacted by an application error again. We will be doing this.
We have created two new pagesets (06 and 07) with the intention of isolating 
the audit queue into one and moving another audit queue that was discovered 
into the other, however, the application team made a change to stop using the 
audit queue so for now this is not an emergency.
IBM recommended that we change the program that writes to these audit queues to 
use a database instead of MQ for them. I've passed that recommendation on.

Does anyone have any suggestions for the layout of MQ pagesets? How many is too 
many? Why is it too many? Do other folks isolate application queues into their 
own pagesets, or are they intermingled by type, function or some other way?

Thanks in advance!

Jim



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

Re: Possible Debug issue

[Farley, Peter x23353]

Double check with your systems team whether REGION=0M actually gets you 0M.  
IEFUSI exit can change that to whatever they want to limit your job to use.

Some shops have "bypass" step names that tell IEFUSI not to enforce rules for 
that step, "just do what I say".  Some require SAF authorization for the user 
running the job to bypass the rules.  YMMV

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Savor, Thomas (Alpharetta)
Sent: Wednesday, December 13, 2017 1:16 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Possible Debug issue

On this particular test that got all the storage error messages..region was 
set to 0M

Thanks,

Tom Savor
Software Developer, Sr
FRMS-SCM
Fiserv
Office:  678-375-1307
Mobile: 404-660-6898
Fax:  678-375-3280
www.fiserv.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Peter Hunkeler
Sent: Wednesday, December 13, 2017 1:14 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: AW: Re: Possible Debug issue

>Debug Tool and Fault Analyzer seem to take a huge amount of memory when 
>working with COBOL 5.  Try setting REGION=2000M. 


What release of z/OS managed to move the whole common area above the bar?
Seriously, 2000M will probably never be available in the private region. But if 
you want to see how much you need to be able to debug, within the maximum 
available, specify REGION=0M. 


--

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

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

Re: Possible Debug issue

[Lizette Koehler]

Depending on you IEFUSI or other functions used to control region size, you may
not be getting what you think 0M gives you.

If you try the suggestion of 2000M for region and rerun the job, what do you
get?

If you have an ACTRT exit in your shop - it may provide the virtual storage map
at step end. There you should the Requested/Below/above/ and so forth of storage
allocation for the step.

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Savor, Thomas (Alpharetta)
> Sent: Tuesday, December 12, 2017 11:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Possible Debug issue
> 
> On this particular test that got all the storage error messages..region
> was set to 0M
> 
> Thanks,
> 
> Tom Savor
> Software Developer, Sr
> FRMS-SCM
> Fiserv
> Office:  678-375-1307
> Mobile: 404-660-6898
> Fax:  678-375-3280
> www.fiserv.com
> 
> 
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Peter Hunkeler
> Sent: Wednesday, December 13, 2017 1:14 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: AW: Re: Possible Debug issue
> 
> >Debug Tool and Fault Analyzer seem to take a huge amount of memory when
> working with COBOL 5.  Try setting REGION=2000M.
> 
> 
> What release of z/OS managed to move the whole common area above the bar?
> Seriously, 2000M will probably never be available in the private region. But
> if you want to see how much you need to be able to debug, within the maximum
> available, specify REGION=0M.
> 
> 
> --
> Peter Hunkeler
> 
> 
> 
> 
> 
> --
> Peter Hunkeler

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

Re: DFSORT: RACFICE query - how to extract all commands containing some text value

[Lizette Koehler]

Two suggestions

The RACF List might be helpful with this question. To join, if you have not 
done so, use this URL

RACFhttp://www.listserv.uga.edu/archives/racf-l.html


Next, there is a DFSORT HOTLINE from IBM who can always help with DFSORT 
coding.  Send an email to dfs...@us.ibm.com

Hope this helps

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Bruce Hewson
> Sent: Wednesday, December 13, 2017 2:49 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: DFSORT: RACFICE query - how to extract all commands containing some
> text value
> 
> A query for the ICETOOL/RACFICE experts,
> 
> I have been asked to extract all RACF commands issued relating to a specific
> USERID.
> 
> I am not knowledgable enough with ICETOOLS  to code this myself quickly.
> 
> The current RACFICE examples do not provide a sample for this.
> 
> example.
> 
> Extract and report all commands,  ADDUSER/ALTUSER/PASSWORD/PERMIT that
> reference USER(xyzzy)
> 
> 
> Hopefully someone can help.
> 
> Thanks
> Bruce Hewson
> 

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

Re: DFSORT: RACFICE query - how to extract all commands containing some text value

[Ron hawkins]

Bruce,

You used to have access to SAS and MXG. Have you looked at this as an 
alternative to processing RACFICE?

If you use the TYPS80A member, I think you can piece together what you are 
looking for. For example, the ADDUSER command is type80 subtype 10, and 
therefore TYPE8010 in the PDB.

Some simple SQL WHERE statements against the relevant text fields looking for 
the would quickly find what you are looking for.

Ron

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Bruce Hewson
Sent: Wednesday, December 13, 2017 1:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [IBM-MAIN] DFSORT: RACFICE query - how to extract all commands 
containing some text value

A query for the ICETOOL/RACFICE experts,

I have been asked to extract all RACF commands issued relating to a specific 
USERID.

I am not knowledgable enough with ICETOOLS  to code this myself quickly.

The current RACFICE examples do not provide a sample for this.

example.

Extract and report all commands,  ADDUSER/ALTUSER/PASSWORD/PERMIT that 
reference USER(xyzzy)


Hopefully someone can help.

Thanks
Bruce Hewson

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

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

Re: How to recreate DEFINE CLUSTER for a given VSAM file

[Victor Gil]

Thanks to everyone responded.

I was able to recreate the DEFINE using FileMaster.

-Victor-

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

Incorrect z Systems machine information

[Mazer Ken G]

Anyone ever receive emails from IBM about z Systems machine information that 
you're not registered to receive?

For example this morning I received notification for a 2096 with a serial 
number that we've never owned or leased.
The machine 2096-X is back level on MCL activation. There are 49 MCLs 
missing including 0 Hipers, 0 Disruptive and 0 Configuration Dependent. There 
are 49 MCLs received that are not active. The last MCL activation was done on 
28 Oct 2013.

I've X'd out the serial number for obvious reasons.  Oh and the link that's 
provided gets a 404 error when you try to look it up in Resource Link.

Just wondering if anyone else gets this same kind of notifications.

Ken Mazer

This Cranky Systems Programmer says "Let's be careful out there"
Proper, Prior, Planning, Prevents, Piss, Poor, Performance
"Education is what remains after one has forgotten what one has learned in 
school."


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

Re: DFSORT: RACFICE query - how to extract all commands containing some text value

[Martin Packer]

I don't think he'll mind me mentioning it but Mark Nelson was the 
originator of RACFICE - but that was LONG ago.

He might well have a view.

And the advice to learn some DFSORT is good.

Cheers, Martin

Martin Packer

zChampion, Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

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

Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/or 
  
https://itunes.apple.com/gb/podcast/mainframe-performance-topics/id1127943573?mt=2


Youtube channel: https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA



From:   Elardus Engelbrecht 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   13/12/2017 11:18
Subject:Re: DFSORT: RACFICE query - how to extract all commands 
containing some text value
Sent by:IBM Mainframe Discussion List 



Bruce Hewson wrote:

>A query for the ICETOOL/RACFICE experts,

>I have been asked to extract all RACF commands issued relating to a 
specific USERID.
>I am not knowledgable enough with ICETOOLS  to code this myself quickly.

You will have to learn it. Or post your queries on RACF-L. Perhaps someone 
from DFSORT support chimes in here.


This is a two step thing. You first use RACF SMF Unload and then you use 
the ICETOOL job.

This process is hungry hungry HUNGRY on disk space, because the compressed 
SMF records are expanded. Bit fields are expanded in a full 4 bytes per 
bit. say x'01' is expanded into 'YES ' and x'00' to 'NO  '.

Or you can go the DB2 way. I have not done that way.


>The current RACFICE examples do not provide a sample for this.

I am not surprised, but I started my life from that RACFICE examples and 
moved on.

Perhaps there are DB2 samples for that, I simply don't know or just don't 
care.


>Extract and report all commands,  ADDUSER/ALTUSER/PASSWORD/PERMIT that 
reference USER(xyzzy)

Please note: There are two USER fields involved in a RACF command - Issuer 
and subject of the id. 

Issuer is on a specific column, but the subject Userid is in a specific 
column or specific field depending on the command used.

For commands like PERMIT, you won't get a specific id, but you will need 
to examine the 'Keywords Used' and then there you examine the field.


Example for ADDUSER, I have this:

//TOOLIN   DD * 
 SORTFROM(INDD) TO(TEMP0001) USING(ADD1)
 DISPLAY FROM(TEMP0001) LIST(PRINT1)  - 
 NOCC - 
 WIDTH(500)   - 
 TITLE('RACF ADDUSER Report') - 
 DATE(4MD/)   - 
 TIME(24:)- 
 PAGE - 
 BLANK- 
 ON(63,8,CH) HEADER('Issuer')  -
 ON(295,20,CH) HEADER('User Name') -
 ON(72,8,CH) HEADER('Group')   -
 ON(32,10,CH) HEADER('Date')   -
 ON(23,8,CH) HEADER('Time')-
 ON(508,8,CH) HEADER('User Id')-
 ON(43,4,CH) HEADER('SMFID')   -
 ON(175,8,CH) HEADER('Terminal')   -
 ON(184,8,CH) HEADER('Jobname ')   -
 ON(14,8,CH) HEADER('Result')  -
 ON(517,200,CH) HEADER('Keywords') 

//ADD1CNTL   DD * 
 SORT FIELDS=(5,8,CH,A) 
 INCLUDE COND=(5,8,CH,EQ,C'ADDUSER ',AND,
  32,10,CH,GE,C'2017-01',AND,
 508,3,CH,EQ,C'ABC') 
 OPTION VLSHRT 


For ALTUSER I have this example:

 SORTFROM(INDD) TO(TEMP0001) USING(ULDF) 
 DISPLAY FROM(TEMP0001) LIST(PRINT) - 
 NOCC - 
 WIDTH(500)   - 
 TITLE('Group Special Users Activity') -
 DATE(4MD/)   - 
 TIME(24:)- 
 PAGE - 
 BLANK- 
 ON(63,8,CH)HEADER('Issuer')- 
 ON(295,20,CH)  HEADER('User Name') - 
 ON(72,8,CH)HEADER('Group') - 
 ON(32,10,CH)   HEADER('Date')  - 
 ON(23,8,CH)HEADER('Time')  - 
 ON(522,8,CH)   HEADER('User Id')   - 
 ON(43,4,CH)HEADER('SMFID') - 
 ON(175,8,CH)   HEADER('Terminal')  - 
 ON(184,8,CH)   HEADER('Job Name')  - 
 ON(286,8,CH)   HEADER('Owner  ')   - 
 ON(14,8,CH)HEADER('Result')- 
 ON(531,200,CH) HEADER('Keywords Used') 
//ULDFCNTL   DD * 
 SORT FIELDS=(5,8,CH,A) 
 INCLUDE COND=(5,8,CH,EQ,C'ALTUSER ',AND, 
   32,7,CH,GE,C'2017-01',AND, 
   522,3,CH,EQ,C'ABC') 
 OPTION VLSHRT 

... and so on ...

Good luck. You will really need it! Just shout again if you need more 
help.

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




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

Re: DFSORT: RACFICE query - how to extract all commands containing some text value

[Elardus Engelbrecht]

Radoslaw Skorupka wrote:

>Use SS. Of course I don't mean bad guys from WWII times, this is SubString. ;-)

>You can filter (INCLUDE/OMIT) any record containing given string (userid) 
>wherever in the record or some field of the record.

Yes, I forgot about that advanced helpful command SS! It is a long time ago, I 
used that little gem. ;-)

Here is a crude ugly example:

//SELECT   EXEC PGM=ICETOOL 
//TOOLMSG  DD SYSOUT=*  
//DFSMSG   DD SYSOUT=*  
//PRINTDD SYSOUT=*,LRECL=8192   
//INVOER   DD DISP=SHR,DSN=???.RACF.ALLCMDS
//TEMP0001 DD DISP=(NEW,DELETE),SPACE=(CYL,(100,100,0)),
// UNIT=3390
//TOOLIN   DD * 
 COPYFROM(INVOER) TO(PRINT) USING(TELB) 
//TELBCNTL   DD *   
OPTION VLSCMP   
 OUTFILE FNAMES=PRINT,  
  INCLUDE=(1,8192,SS,EQ,C'')

This will pick up and "copy/print" any line containing that search argument.

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: DFSORT: RACFICE query - how to extract all commands containing some text value

[R.S.]

Use SS. Of course I don't mean bad guys from WWII times, this is 
SubString. ;-)
You can filter (INCLUDE/OMIT) any record containing given string 
(userid) wherever in the record or some field of the record.



--
Radoslaw Skorupka
Lodz, Poland







W dniu 2017-12-13 o 10:48, Bruce Hewson pisze:

A query for the ICETOOL/RACFICE experts,

I have been asked to extract all RACF commands issued relating to a specific 
USERID.

I am not knowledgable enough with ICETOOLS  to code this myself quickly.

The current RACFICE examples do not provide a sample for this.

example.

Extract and report all commands,  ADDUSER/ALTUSER/PASSWORD/PERMIT that 
reference USER(xyzzy)


Hopefully someone can help.

Thanks
Bruce Hewson

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




==


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

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

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


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

Re: DFSORT: RACFICE query - how to extract all commands containing some text value

[Elardus Engelbrecht]

Bruce Hewson wrote:

>A query for the ICETOOL/RACFICE experts,

>I have been asked to extract all RACF commands issued relating to a specific 
>USERID.
>I am not knowledgable enough with ICETOOLS  to code this myself quickly.

You will have to learn it. Or post your queries on RACF-L. Perhaps someone from 
DFSORT support chimes in here.


This is a two step thing. You first use RACF SMF Unload and then you use the 
ICETOOL job.

This process is hungry hungry HUNGRY on disk space, because the compressed SMF 
records are expanded. Bit fields are expanded in a full 4 bytes per bit. say 
x'01' is expanded into 'YES ' and x'00' to 'NO  '.

Or you can go the DB2 way. I have not done that way.


>The current RACFICE examples do not provide a sample for this.

I am not surprised, but I started my life from that RACFICE examples and moved 
on.

Perhaps there are DB2 samples for that, I simply don't know or just don't care.


>Extract and report all commands,  ADDUSER/ALTUSER/PASSWORD/PERMIT that 
>reference USER(xyzzy)

Please note: There are two USER fields involved in a RACF command - Issuer and 
subject of the id. 

Issuer is on a specific column, but the subject Userid is in a specific column 
or specific field depending on the command used.

For commands like PERMIT, you won't get a specific id, but you will need to 
examine the 'Keywords Used' and then there you examine the field.


Example for ADDUSER, I have this:

//TOOLIN   DD * 
 SORTFROM(INDD) TO(TEMP0001) USING(ADD1)
 DISPLAY FROM(TEMP0001) LIST(PRINT1)  - 
 NOCC - 
 WIDTH(500)   - 
 TITLE('RACF ADDUSER Report') - 
 DATE(4MD/)   - 
 TIME(24:)- 
 PAGE - 
 BLANK- 
 ON(63,8,CH) HEADER('Issuer')  -
 ON(295,20,CH) HEADER('User Name') -
 ON(72,8,CH) HEADER('Group')   -
 ON(32,10,CH) HEADER('Date')   -
 ON(23,8,CH) HEADER('Time')-
 ON(508,8,CH) HEADER('User Id')-
 ON(43,4,CH) HEADER('SMFID')   -
 ON(175,8,CH) HEADER('Terminal')   -
 ON(184,8,CH) HEADER('Jobname ')   -
 ON(14,8,CH) HEADER('Result')  -
 ON(517,200,CH) HEADER('Keywords')  

//ADD1CNTL   DD *
 SORT FIELDS=(5,8,CH,A)  
 INCLUDE COND=(5,8,CH,EQ,C'ADDUSER ',AND,
  32,10,CH,GE,C'2017-01',AND,
 508,3,CH,EQ,C'ABC') 
 OPTION VLSHRT   


For ALTUSER I have this example:

 SORTFROM(INDD) TO(TEMP0001) USING(ULDF)
 DISPLAY FROM(TEMP0001) LIST(PRINT) -   
 NOCC - 
 WIDTH(500)   - 
 TITLE('Group Special Users Activity') -
 DATE(4MD/)   - 
 TIME(24:)- 
 PAGE - 
 BLANK- 
 ON(63,8,CH)HEADER('Issuer')-   
 ON(295,20,CH)  HEADER('User Name') -   
 ON(72,8,CH)HEADER('Group') -   
 ON(32,10,CH)   HEADER('Date')  -   
 ON(23,8,CH)HEADER('Time')  -   
 ON(522,8,CH)   HEADER('User Id')   -   
 ON(43,4,CH)HEADER('SMFID') -   
 ON(175,8,CH)   HEADER('Terminal')  -   
 ON(184,8,CH)   HEADER('Job Name')  -   
 ON(286,8,CH)   HEADER('Owner  ')   -   
 ON(14,8,CH)HEADER('Result')-   
 ON(531,200,CH) HEADER('Keywords Used') 
//ULDFCNTL   DD *   
 SORT FIELDS=(5,8,CH,A) 
 INCLUDE COND=(5,8,CH,EQ,C'ALTUSER ',AND,   
   32,7,CH,GE,C'2017-01',AND,   
   522,3,CH,EQ,C'ABC')  
 OPTION VLSHRT  

... and so on ...

Good luck. You will really need it! Just shout again if you need more help.

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: Check out Hackers hit major ATM network after US, Russian bank breaches: report - AOL Finance

[Edward Finnell]

https://en.wikipedia.org/wiki/Bank_reconciliation

 
Just basic book keeping. How much was withdrawn vs. how much is owed.
 
Shortly after XA conversion we had one of the guys head off for a long weekend. 
His wife worked in Silicon Valley so he stopped by the ATM in Palo Alto. When 
he went to put in his ATM card the entire mechanism slide back and there was 
$50,000 in the freshly loaded machine.
 
He picked up the 'security phone' and explained the situation. Long story 
short-in about two minutes the Pinkertons showed up with Tommy guns drawn.  
In a message dated 12/13/2017 1:49:13 AM Central Standard Time, 
justmainfra...@gmail.com writes:

 
how would RECONS helps here ?

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

DFSORT: RACFICE query - how to extract all commands containing some text value

[Bruce Hewson]

A query for the ICETOOL/RACFICE experts,

I have been asked to extract all RACF commands issued relating to a specific 
USERID.

I am not knowledgable enough with ICETOOLS  to code this myself quickly.

The current RACFICE examples do not provide a sample for this.

example.

Extract and report all commands,  ADDUSER/ALTUSER/PASSWORD/PERMIT that 
reference USER(xyzzy)


Hopefully someone can help.

Thanks
Bruce Hewson

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

Re: How to recreate DEFINE CLUSTER for a given VSAM file

[R.S.]

W dniu 2017-12-12 o 21:48, Victor Gil pisze:

Is there an easy way to rebuild the DEFINE CLUSTER for IDCAMS for an existing 
VSAM file?


Assumption: this is *existing* VSAM file.
One of the solutions:
//K1 EXEC PGM=IEFBR14
//DD1 DD DSN=NEW.FILE,LIKE=EXISTING.FILE,DISP=(,CATLG)

That's all. You can use similar construct in DEF CLUSTER which is more 
flexible, because you can override some parameters.



--
Radoslaw Skorupka
Lodz, Poland




==


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

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

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


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