Re: Releasing Orphan Storage without IPL

[Gross, Randall [PRI-1PP]]

I did the same thing my first month as a sysprog.  Thank goodness for shared 
DASD and a second system.

Since it's Friday:  

On a similar note, we were running  a very early release of MVS on an 
Amdahl V6 (serial #19).

We had been told that a couple of other accounts were doing this 
successfully.

We started getting very strange failures on JES2, IMS, TCAM and 
assorted other products & jobs.

The standalone dump showed code running in random address spaces, e.g, 
JES in IMS, TCAM in JES, and so forth.

Turns out that the segment table origin stack was mapping every address 
to the same segment table.

We were told it was an engineering bug (not a specific machine hardware 
problem),implying that we were actually the first to run MVS on an Amdahl.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Friday, October 30, 2015 7:57 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Releasing Orphan Storage without IPL

On Fri, Oct 30, 2015 at 5:25 AM, Elardus Engelbrecht < 
elardus.engelbre...@sita.co.za> wrote:

> Shane Ginnane wrote:
>
> >Junior sysprog was using a well-known monitor that showed a bunch of
> "unused" shared storage. He decided we could use it, so decided to free it.
> ...
>
> >... Still scratching our heads when afore-mentioned junior returned 
> >and
> wanted to know what all the kerfuffle was 
>
>
> Ouch! Ouch! Ouch!
>
> Did you 'freed' that junior to the pavement and reclaimed his office table?
>

​Telling on my own idiocy. My first year as trainee sysprog, on OS/VS1. I did 
an IEBCOPY compress on the running SYS1.LINKLIB. System went belly up.
And it was _not_ a test system. It was in use as the dispatching system for the 
police force in the city of Ft. Worth, TX (A "big" city. Yes, I hear the NYC 
people laughing at me for calling it that).​ Luckily, we had an identical 
system on a 2nd box and I was able to copy the SYS1.LINKLIB on that system onto 
the other system, then reIPL.



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



-- 

Schrodinger's backup: The condition of any backup is unknown until a restore is 
attempted.

Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.

He's about as useful as a wax frying pan.

10 to the 12th power microphones = 1 Megaphone

Maranatha! <><
John McKown

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


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

Re: U0493 abends

[Gross, Randall [PRI-1PP]]

How about the default or current logon  group for the id?   Does it have an 
OMVS segment?

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Brown
Sent: Thursday, October 29, 2015 2:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: U0493 abends

The ids all have OMVS segments

Tim

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Thursday, 29 October, 2015 2:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: U0493 abends

Can you verify what I put in here?  A google search of this error along with 
FTP comes up with possible no OMVS segment on the ID.

What z/OS are you running 2.1?  when did you convert?  Just recently?  
BPX.DEFAULT.USER is no longer used.
_
Dave Jousma
Assistant Vice President, Mainframe Engineering david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H p 616.653.8429 f 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Thursday, October 29, 2015 9:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: U0493 abends

Is there a CEE5101C During Initialization, The Callable Service BPX1MSS Failed 
message along with it?   Are you on z/OS 2.1?   Does the userid have an OMVS 
segment?  

_
Dave Jousma
Assistant Vice President, Mainframe Engineering david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H p 616.653.8429 f 616.653.2717

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Brown
Sent: Thursday, October 29, 2015 7:28 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: U0493 abends

Starting to get U4903 abends with FTP steps, will be calling support but has 
anyone seen this


CEE3798I ATTEMPTING TO TAKE A DUMP FOR ABEND U4093 TO DATA SET: 
CAP.D302.T0200069.CAP97G55 IGD101I SMS ALLOCATED TO DDNAME (SYS1)  474
DSN (CAP.D302.T0200069.CAP97G55  )
STORCLAS (PRODSC) MGMTCLAS () DATACLAS ()
VOL SER NOS= PRODS2
IGD104I CAP.D302.T0200069.CAP97G55   RETAINED,  DDNAME=SYS1
IEA822I COMPLETE TRANSACTION DUMP WRITTEN TO CAP.D302.T0200069.CAP97G55 
CEE3797I LANGUAGE ENVIRONMENT HAS DYNAMICALLY CREATED A DUMP.
IEA995I SYMPTOM DUMP OUTPUT  514
  USER COMPLETION CODE=4093 REASON CODE=0090
 TIME=02.00.06  SEQ=04204  CPU=  ASID=0042
 PSW AT TIME OF ERROR  078D1000   80008EBC  ILC 2  INTC 0D
   ACTIVE LOAD MODULE   ADDRESS=7158  OFFSET=1D64

Thanks,
Tim Brown
Supervisor Computer Operations
Central Hudson Gas & Electric
284 South Ave
Poughkeepsie, NY 12601
Email: tbr...@cenhud.com <>
Phone: 845-486-5643
Fax: 845-486-5921
Cell: 845-235-4255

"This message contains confidential information and is only for the intended 
recipient. If the reader of this message is not the intended recipient, or an 
employee or agent responsible for delivering this message to the intended 
recipient, please notify the sender immediately by replying to this note and 
deleting all copies and attachments."


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

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

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

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

--
For 

Re: REXX Exec Abend S106

[Gross, Randall [PRI-1PP]]

Depending on how (and how much) output is produced by the second program, this 
might helpl (especially if you are outtrapping):

VARSTORAGE(HIGH),
 - SPECIFIES THAT CLIST VARIABLES, AND REXX OUTTRAP
   VARIABLES RETURNED WHEN REXX INVOKES AN AUTHORIZED
   COMMAND, ARE TO BE SAVED IN STORAGE ABOVE THE 16MB
   LINE. STORAGE ABOVE THE 16MB LINE IS USED TO HOLD
   BOTH THE VARIABLE NAMES AND VALUES.

This is set with the TSO PROFILE command

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Roland Kinsman
Sent: Friday, September 11, 2015 3:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX Exec Abend S106

Thanks for quick replies.

I'll look into using ATTACHMVS instead of CALL, or find a way to add logoff 
into the loop.  That one looks very promising if I can pull it off.  

I'm calling both programs using TSOEXEC CALL *(xxx).

We're already using REGION=0M.

Not sure what language the programs are in--they are both utilities from 
different vendors.  The first utility is doing the open/close of the members. 

I'm getting the member names using LMMLIST.

I am using DELSTACK in my loop, as I use a number of QUEUE statements.  Not 
sure if this has the same effect as DROP.

I'm not actually processing the contents of the members.  The first program in 
the loop processes the PDS member, then the second program processes the output 
of the first one.  For the first program in the loop, one of the parms is the 
name of the PDS, and the member name is on one of the control cards.  My REXX 
generates the control cards then calls the first program.  Based on the 
messages from the job, it appears that the storage problem is in the second 
program.

--
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: Current market share breakdown for EACH of the three z/OS ESM products: RACF, CA-ACF2 and CA-Top Secret

[Gross, Randall [PRI-1PP]]

I know of two extremely large US banks that use it.

Both have RACF & T/S; at least one is (or was) in the throes of converting RACF 
to T/S.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Wednesday, September 09, 2015 11:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Current market share breakdown for EACH of the three z/OS ESM 
products: RACF, CA-ACF2 and CA-Top Secret

Yes, we have customers running TSS. I could (but won't LOL) name a very large 
bank.

Charles

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Shane Ginnane
Sent: Wednesday, September 09, 2015 8:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Current market share breakdown for EACH of the three z/OS ESM 
products: RACF, CA-ACF2 and CA-Top Secret

On Wed, 9 Sep 2015 08:47:27 -0500, Steve Harner  wrote:

>(a) When SKK was sold in 1986, ACF2 had a 60% market share while IBM’s RACF 
>and CA’s Top Secret split the other 40%; and (b) Currently , RACF has 75% 
>market share while ACF2 and Top Secret from CA share the other 25 percent.

Does anyone, other than reputedly CA itself, actually use T/S ?. Never seen it 
in a customer site.
When I first saw ACF2 (prior to the buyout), it was the ducks nuts - RACF was a 
slug in comparison. Seems IBM has won that battle though.

--
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: GRS Control Unit ( Was IBM mainframe operations in the 80s)

[Gross, Randall [PRI-1PP]]

IBM 3088 CTC

Global Resource Serialization

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Jacobs - Listserv
Sent: Friday, June 12, 2015 10:02 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GRS Control Unit ( Was IBM mainframe operations in the 80s)

I don't remember the device number but it was used for CTC communications using 
bus and tag cables.

Mark Jacobs

 Elardus Engelbrecht mailto:elardus.engelbre...@sita.co.za
 June 12, 2015 at 9:53 AM

 I have watched that nice video, bringing back memories of those 3800, 
 3380, 3090, 3420 and such animals.

 But what the four letter word is a 'GRS Control Unit'?

 Searches on IBM webpages (and history webpages) gave me just all 
 [useless] info about GRS or CONTROL or UNIT, but not specific details 
 about that device.

 Anyone having a clue what device is it? Is it the grandfather of the 
 XCF and such things?

 TIA!

 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


 Please be alert for any emails that may ask you for login information 
 or directs you to login via a link. If you believe this message is a 
 phish or aren't sure whether this message is trustworthy, please send 
 the original message as an attachment to 'phish...@timeinc.com'.


-- 

Mark Jacobs
Time Customer Service
Technology and Product Engineering

The standard you walk past is the standard you accept.
Lt. Gen. David Morrison


--
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: ISPF Workstation Setup ( Was: IND$FILE Resource Log Monitoring)

[Gross, Randall [PRI-1PP]]

John,  are you Win7  Pro or Home?

Pro has the old XP support  Home doesn't...





-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Friday, June 12, 2015 10:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Workstation Setup ( Was: IND$FILE Resource Log  Monitoring)

Which version of z/OS? Maybe the later versions support Windows 7 where the
1.12 version doesn't? The message I get talks about 64 bit vs. 32 bit. I only 
see one Windows client: ISPGUINX. I did a BINary download on it, and tried to 
execute it. It whined about an unsupported release of Windows. I then went into 
file manager and changed the compatibility, but that did no good. But maybe I 
have missed a step in there somewhere?

On Fri, Jun 12, 2015 at 9:35 AM, John Abell  
john.ab...@intnlsoftwareproducts.com wrote:

 Odd.  I installed it without issue on Windows 7 64-bit Pro.

 John T. Abell
 Tel:800-295-7608Option 4
 President
 International:  1-416-593-5578  Option 4
 E-mail:  john.ab...@intnlsoftwareproducts.com
 Fax:800-295-7609

 International:  1-416-593-5579


 International Software Products
 www.ispinfo.com

 This email may contain confidential and privileged material for the 
 sole use of the intended recipient(s). Any review, use, retention, 
 distribution or disclosure by others is strictly prohibited. If you 
 are not the intended recipient (or authorized to receive on behalf of 
 the named recipient), please contact the sender by reply email and 
 delete all copies of this message. Also,email is susceptible to data 
 corruption, interception, tampering, unauthorized amendment and 
 viruses. We only send and receive emails on the basis that we are not 
 liable for any such corruption, interception, tampering, amendment or viruses 
 or any consequence thereof.


 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
 On Behalf Of John McKown
 Sent: Friday, June 12, 2015 10:33 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: ISPF Workstation Setup ( Was: IND$FILE Resource Log 
 Monitoring)

 Well, the version on my z/OS 1.12 system refuses to install on my 
 Windows 7
 x86_64 desktop. Curiously, it does seem to work on my Linux Fedora 22
 x86_64 under wine32. So I tried it. In GUI mode, it stinks. But in 
 non-GUI mode, the file transfer is, well, OK. Personally, I prefer 
 using Co:Z data set utilities to transfer over SSH. Or just plain old FTP.

 --
 Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.

 My sister opened a computer store in Hawaii. She sells C shells down 
 by the seashore.
 If someone tell you that nothing is impossible:
 Ask him to dribble a football.

 He's about as useful as a wax frying pan.

 10 to the 12th power microphones = 1 Megaphone

 Maranatha! 
 John McKown

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


 ---
 This email has been checked for viruses by Avast antivirus software.
 https://www.avast.com/antivirus

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




--
Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.

My sister opened a computer store in Hawaii. She sells C shells down by the 
seashore.
If someone tell you that nothing is impossible:
Ask him to dribble a football.

He's about as useful as a wax frying pan.

10 to the 12th power microphones = 1 Megaphone

Maranatha! 
John McKown

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


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

Re: ISPF Workstation Setup ( Was: IND$FILE Resource Log Monitoring)

[Gross, Randall [PRI-1PP]]

I'm a Tux fan myself, but just at home  just for fun...unfortunately

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Friday, June 12, 2015 11:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: ISPF Workstation Setup ( Was: IND$FILE Resource Log  Monitoring)

On Fri, Jun 12, 2015 at 10:01 AM, Gross, Randall [PRI-1PP]  
randy.gr...@primerica.com wrote:

 John,  are you Win7  Pro or Home?

 Pro has the old XP support  Home doesn't...


​Window 7 Professional Service Pack 1, 64 bit. This is my computer at work.
I am a local admin on the box.​ I am not very good with Windows, being a full 
fledged Penguinista.


--
Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be.

My sister opened a computer store in Hawaii. She sells C shells down by the 
seashore.
If someone tell you that nothing is impossible:
Ask him to dribble a football.

He's about as useful as a wax frying pan.

10 to the 12th power microphones = 1 Megaphone

Maranatha! 
John McKown

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


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

Re: GENERATED STATEMENT!?

[Gross, Randall [PRI-1PP]]

If it makes you feel any better, I can reproduce your exact error on my 2.1 
system

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Wednesday, May 27, 2015 2:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GENERATED STATEMENT!?

On Wed, 27 May 2015 12:41:36 -0400, David Betten wrote:

I[s] there a blank line between SYSMS2 and LOGDD2 statements?

I said:

 From: Paul Gilmartin
 Date: 05/27/2015 12:37 PM

   ...  (I had no stray data cards.)


On 2015-05-27 10:54, J O Skip Robinson wrote:
 I copy pasted the JCL into a real editor, i.e. ISPF, and noticed an oddity in 
 this line:
 
 //SYMS2 DD  *IFSYM,SYMBOLS=(EXECSYS,LOGDD2)
 
 There is no space between asterisk and ampersand. Could that be right?
 
Yes.


On 2015-05-27 10:56, Staller, Allan wrote: Appears to be a missing comma   on 
statement 40
 
There is not.

 40 //SYMS2 DD  *IFSYM,SYMBOLS=(EXECSYS,LOGDD2)
 
 s/b
 
 40 //SYMS2 DD  *,IFSYM,SYMBOLS=(EXECSYS,LOGDD2)
   ^
 
 HTH,
 
It doesn't


On Wed, 27 May 2015 10:25:13 -0700, retired mainframer  wrote:

Submit the job in hold status and use SDSF to look at the data card(s) in the 
SYSIN member.  Then find that data in the dataset you submitted and 
determine why it was not recognized as JCL.  One common reason is that columns 
1 and 2 do not contain // or /*.

Even better, copied and pasted from SDSF SJ panel:
...
 000172 //*
 000173 //  EXPORT SYMLIST=*
 000174 //  SET  IFSYM=''  (Blank for pre-JES2 2.1.)
 000175 //  SET  SYMVAL='Symbol value longer than name.' 
 000176 //* 
 000177 //SYMS1 DD  *,SYMBOLS=(EXECSYS,LOGDD1) 
 000178 Try SYMVAL
 000179 Preset LRECL with longer line . 
 000180 //LOGDD1DD  SYSOUT=(,) 
 000181 //* 
 000182 //SYMS2 DD  *IFSYM,SYMBOLS=(EXECSYS,LOGDD2) 
 000183 Try SYMVAL
 000184 Short line 
 000185 //LOGDD2DD  SYSOUT=(,) 
 000186 //*
 000187 //
...
Do you see anything wrong?


On Wed, 27 May 2015 12:14:42 -0500, John McKown  wrote:

... We do this all the time ...

Thank you for understanding JCL syntax better than most of the followups.

--gil

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


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

Re: GENERATED STATEMENT!?

[Gross, Randall [PRI-1PP]]

From APAR OA45005:

Exported symbolic parameters must be set to a value in the
   job stream after the EXPORT statement.  Exported symbol
   values are resolved to the last value set prior to or
   within the current job step. JCL Converter processing
   generates EXPORT EXPSET statements to manage how exported
   JCL symbol values are resolved.  These statements appear
   in the job log. Reviewing the placement of EXPORT EXPSET
   statements in the job log may be helpful in understanding
   exported symbol resolution for a given job.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Paul Gilmartin
Sent: Wednesday, May 27, 2015 12:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: GENERATED STATEMENT!?

In my JESJCL listing I see:
  ...
   33 //  EXPORT SYMLIST=*
   34 //  SET  IFSYM=''  (Blank for pre-JES2 2.1.)
   35 //IFSYMEXPORT EXPSET=GENERATED 
STATEMENT
   36 //  SET  SYMVAL='Symbol value longer than name.'
   37 //SYMVAL   EXPORT EXPSET=Symbol value longer than... GENERATED 
STATEMENT
  //*
   38 //SYMS1 DD  *,SYMBOLS=(EXECSYS,LOGDD1)
   39 //LOGDD1DD  SYSOUT=(,)
  //*
   40 //SYMS2 DD  *IFSYM,SYMBOLS=(EXECSYS,LOGDD2)
  IEFC653I SUBSTITUTION JCL - *,SYMBOLS=(EXECSYS,LOGDD2)
   41 //SYSIN DD *   GENERATED STATEMENT
   42 //LOGDD2DD  SYSOUT=(,)
  //*
   43 //

Where does 41 //SYSIN DD *   GENERATED STATEMENT
come from?  What does it mean?  (I had no stray data cards.)

I hate JCL!

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edumailto: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: Basic question on TSO commands and other executables

[Gross, Randall [PRI-1PP]]

Personal Communications 5.9.0Product DocumentationBooksEmulator User's 
ReferenceTransferring Files

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Gould
Sent: Wednesday, May 13, 2015 12:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Basic question on TSO commands and other executables

On May 11, 2015, at 7:03 PM, Shmuel Metz (Seymour J.) wrote:

 In 65d432a4-d912-4d32-926d-4c6e3b66e...@comcast.net, on 05/06/2015
at 11:16 PM, Ed Gould edgould1...@comcast.net said:

 The TSO command to receive data

 IND$FILE? I don't recall ever seeing documentation on it, just 
 documentation on things that used it.

I have had to dig it up several times and it was never easy to find the manual. 
I had one copy that always seem to loose itself.


 but since it was never a supported program

 If you mean IND$FILE, it was supported, at least when called by the
 supported IBM facilities that used it.

Ahh one time I had an issue with it and when I called IBM they told  
me it was unsupported. And I was on my own.

Ed



 -- 
  Shmuel (Seymour J.) Metz, SysProg and JOAT
  ISO position; see http://patriot.net/~shmuel/resume/brief.html
 We don't care. We don't have to care, we're Congress.
 (S877: The Shut up and Eat Your spam act of 2003)

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

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

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

Re: Where can a running TSO program get its terminal name

[Gross, Randall [PRI-1PP]]

Don't you mean sysvar(systermid)?

I don't think he's looking for the number of lines in the screen

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Roger Suhr (gmail)
Sent: Tuesday, May 12, 2015 3:01 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Where can a running TSO program get its terminal name

In REXX, try:

 term_name = sysvar(SYSLTERM)


Roger

On 2015-05-12 2:22 PM, Leonardo Vaz wrote:
 This works for me:

 /* REXX */
 ASCB = C2d(Storage(224,4))
 ASXB = C2d(Storage(D2x(ASCB+108),4))
 ACEE = C2d(Storage(D2x(ASXB+200),4))
 /*
 USER = Storage(D2x(ACEE+21),8)
 GROUP= Storage(D2x(ACEE+30),8)
 terminal = Storage(D2x(ACEE+64),8)
 Say 'The USERID in the ACEE is:' USER
 Say 'The GROUP  in the ACEE is:' GROUP Say 'The TERMID in the ACEE 
 is:' terminal

 Regards,
 Leo

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
 On Behalf Of Charles Mills
 Sent: Tuesday, May 12, 2015 2:17 PM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: Where can a running TSO program get its terminal name

 The z/OS MVS Data Areas manuals are available -- do you need more details?

 Charles

 -Original Message-
 From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
 On Behalf Of Rupert Reynolds
 Sent: Tuesday, May 12, 2015 10:49 AM
 To: IBM-MAIN@LISTSERV.UA.EDU
 Subject: Re: Where can a running TSO program get its terminal name

 Many years ago I had an MVS/ESA control block map from a course run by IMI.
 It got lost during a house move.

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

--
Hava a great day!

Roger W. Suhr
Indianapolis, IN 46202
suhr...@gmail.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: Dataset space release

[Gross, Randall [PRI-1PP]]

The ALLOCATE command has a RELEASE parameter 1   

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Brown
Sent: Tuesday, March 24, 2015 2:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Dataset space release


Can space in an allocated dataset via Rexx with the tso allocate cmd be freed 
and space reclaimed as is possible with a jcl allocated dataset with the RLSE 
option

SPACE=(CYL,(10,2),RLSE) if this just needs 6 cyls then the unused 4 will be 
freed.

Can't find a way to do same via TSO and Rexx.

Sent from my Verizon Wireless 4G LTE smartphone

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

[Gross, Randall [PRI-1PP]]

looking for the like button. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Steve Conway
Sent: Tuesday, September 16, 2014 10:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: MVS

Freaking pedants.  You all know the base is still MVS. 

I know it's a sport to some, but it would sure be nice if every damn thing 
didn't have to be argued and picked apart.


Steven F. Conway, CISSP
AO-DTS- CTHO-HSD INFRASTRUCTURE (INFR)
z/OS Systems Support
Phone:  703-295-1926
Mobile: 703-402-2650
steve_con...@ao.uscourts.gov



From:   Shane Ginnane ibm-m...@tpg.com.au
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   09/16/2014 09:43 AM
Subject:MVS
Sent by:IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU



On Tue, 16 Sep 2014 07:25:10 -0600, Paul Gilmartin wrote:

Can't we forget MVS (that's *so* 20th Century), and talk instead about
z/OS, which is the topic of the Redbook (see URL)?

Nope.
Up to, and including, the (new, you-beaut) 1.12 Info Centre, it was simply 
MVS for the important manuals.
Now I see z/OS MVS - including 2.1.

Some habits seem to die hard.

Shane ...

--
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: Catalog Search Interface - Guide to decode

[Gross, Randall [PRI-1PP]]

Google CATSRCHI 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ravi Gaur
Sent: Friday, August 08, 2014 10:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Catalog Search Interface - Guide to decode

Could somebody help me understanding how to filter GDS entries based DSCRDT2 
field  ...I am lookign some good manual/guide to decode the length/address for 
each fields in CSI interface ..other than what we have from IBM in DFSMS 
Managing catalogs...honestly i have read it couple of time however still it's 
difficult for me to understand...I also know there's few cbt  Mark utility 
however my intention is more to understand and code myself so any help in this 
space would be appreciated.

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

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

Re: DFHSM QUESTION - FIXCDS - PARSE ERROR

[Gross, Randall [PRI-1PP]]

Maybe + instead of - for continuation? 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of willie bunter
Sent: Wednesday, July 23, 2014 1:50 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: DFHSM QUESTION - FIXCDS - PARSE ERROR

Hallo To All

I am trying to run the following command via batch job but I am getting the 
parse error.  I tried all sorts of ways but I keep failing.

//STEP001 EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=* 
//SYSTSPRT DD SYSOUT=* 
//SYSTSIN  DD *
 HSEND FIXCDS B OC1.V2R3.SA23.EGVPS21.OPTIONS  -   
VERIFY(X'0088' X'') -  
PATCH(X'0088'  '0002') 

ARC1001I FIXCDS B OC1.V2R3.SA23.EGVPS21.OPTIONS  - COMMAND FAILED, RC=0005,
ARC1001I (CONT.) REAS=0004 
ARC1605I COMMAND HAD PARSE ERROR   

The dsn name is correct as reported on the FIXCDS report:

FIXCDS B OC1.V2R3.SA23.EGVPS21.OPTIONS VERIFY(X'0088' X'') 
PATCH(X'0088' X'0002') 

Could someone suggest how I can get over this hump?

Thanks.  

--
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: international cuisine; was Re: OT: Re: Freebie software; was Feebie software

[Gross, Randall [PRI-1PP]]

Don't forget chitlin's  grits 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ken Porowski
Sent: Tuesday, July 08, 2014 1:44 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: international cuisine; was Re: OT: Re: Freebie software; was 
Feebie software

I have heard tell  of a dish they call haggis.



CIT | Ken Porowski | VP Mainframe Engineering | Information Technology | +1 973 
740 5459 (tel) | ken.porow...@cit.com




This email message and any accompanying materials may contain proprietary, 
privileged and confidential information of CIT Group Inc. or its subsidiaries 
or affiliates (collectively, CIT), and are intended solely for the 
recipient(s) named above.  If you are not the intended recipient of this 
communication, any use, disclosure, printing, copying or distribution, or 
reliance on the contents, of this communication is strictly prohibited.  CIT 
disclaims any liability for the review, retransmission, dissemination or other 
use of, or the taking of any action in reliance upon, this communication by 
persons other than the intended recipient(s).  If you have received this 
communication in error, please reply to the sender advising of the error in 
transmission, and immediately delete and destroy the communication and any 
accompanying materials.  To the extent permitted by applicable law, CIT and 
others may inspect, review, monitor, analyze, copy, record and retain any 
communications sent from or received at this email address.


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of DASDBILL2
Sent: Tuesday, July 08, 2014 1:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [IBM-MAIN] international cuisine; was Re: OT: Re: Freebie software; 
was Feebie software

Biltong is interesting, monkey gland is way too bland.  I prefer Peri-peri on 
mine, thanks.  Maximum strength, of course.
Bill Fairchild

- Original Message -

From: David Crayford dcrayf...@gmail.com
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Tuesday, July 8, 2014 8:48:56 AM
Subject: OT:  Re: Freebie software; was Feebie software

On 8/07/2014 9:43 PM, Elardus Engelbrecht wrote:
 DANGER! OFF-TOPIC POST! Read on at your own risk!...

 David Crayford wrote:

 Having said that, a true aussie favorite is a meat pie with tomato sauce 
 dolloped on top!
 Tomato sauce? Yuck, for me at least, to pour tomato sauce on food is a 
 ghastly insult to the poor chef or anyone who kindly prepare the food for you.

Food snob! But you mob don't mind chewing on biltong or dolloping monkey gland 
on your sausages! :)

 END OF OFF-TOPIC POST!

 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


--
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: DASD backup solutions

[Gross, Randall [PRI-1PP]]

We also use DBS and are very happy with it.
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, January 22, 2014 9:09 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DASD backup solutions

On Wed, Jan 22, 2014 at 7:29 AM, Greg Schmeelk greg_schme...@jbhunt.comwrote:

 Thank you, Mike,

 As far as I know, DFSMSdss won't automatically build JCL for backups, 
 inits, and restores.  We are looking to upgrade our process to a more 
 automatic solution.  HSM is good for a lot of things, but I have found 
 it to be wanting when faced with DR testing.

 I appreciate the suggestion, anyway, but I guess I should have been 
 more specific with explaining my need.

 Greg



We use an OEM product called DBS. It was developed by OpenTech, which was 
recently acquired by Rocket Software. It automates the creation of JCL to do 
back ups (and inits and restores) of DASD volumes using DFDSS or FDR. We have 
used it for backup and disaster recovery testing for _years_, very 
successfully. In point of fact, the original OpenTech was (is?) located close 
to our shop. We had their developers come to a couple of our D.R.
tests to see how we were using the product and the problems that we were 
having. This resulted in a lot of ease of use enhancements. Which were 
excellent. We still have a good relationship with some of the developers.
http://www.rocketsoftware.com/products/rocket-dasd-backup-supervisor

We also use the companion DBX product, which we use to do back up of individual 
critical application data sets. And also TapeCopy, which copies and stacks 
data sets which reside on virtual tapes onto physical 3592J tapes, making a 
duplex copy at the same time.




--
Wasn't there something about a PASCAL programmer knowing the value of 
everything and the Wirth of nothing?

Maranatha! 
John McKown

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

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

Re: Quote on Slashdot.org

[Gross, Randall [PRI-1PP]]

In college, I used the PL/1 F compiler on a 360/40 running PCP, circa 1971.

It was horribly buggy.  Of course, I have no idea if the college kept 
maintenance up to date. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of M Baker
Sent: Wednesday, October 02, 2013 9:32 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Quote on Slashdot.org

I remember
reading that Fred Brooks regrets that it wasn't the systems programming 
language for OS/360. I suppose because it was a  big, complex language for the 
time it didn't quite make the cut.

I've always been kind of curious about that.  I wonder if, although (since) it 
was as you wrote big, complex for the time, whether it was a question of risk 
management at seminal early stage of OS/360 development that caused assembler 
to be used so extensively.in the sense that the latter was a 'known 
quantity' in an environment where there were more than enough other relative 
unknowns in play.  Or perhaps from an alternate history perspective, whether 
PL/1 would have proven up to the task functionally at that point ?  Exactly 
when was the PL/S systems programming flavor devloped and put into use ?  And 
was PL/1 ever really implemented on predecessors to the 360 (70xx perhaps or 
some other pre 360 IBM mainframe), either for internal company use or made more 
generally available -- would that even have made sense ?

--
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: Work long hours (Was Re: Pissing contest(s))

[Gross, Randall [PRI-1PP]]

I am a full-time mainframe (RACF) security engineer (I hate that term...) and 
have been for almost nine years.

Prior to that, I was a zOS (MFT, SVS, MVS, OS390, XA, ESA, etc.) systems 
programmer for approximately 30 years (for two very large companies that each 
have a 3-letter name).

IHMO, I was/am considered to be very good at both jobs.

The big difference was changing from a 60- to 80- hour work week to a 40-hour 
one

Amazing how one adapts when outsourcing and resource actions come into play.



Randy

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John Gilmore
Sent: Monday, September 30, 2013 9:10 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Work long hours (Was Re: Pissing contest(s))

I am sure that outsourced security varies in quality and effectiveness, as does 
perforce 'outsourced' auditing.

My now extended observation of it in several mainframe shops has not, however, 
been encouraging.

Exclusive preoccupation with security seems to lead ineluctably to rigid, rote, 
highly standardized measures that make systems increasingly awkward and 
unworkable without in fact making them more secure.

It must be conceded that many of these deficiencies are not specific to 
security.  Suboptimizing, a department's pursuit of its own objectives at the 
expense of those of the organization it serves, is ubiquitous.

There is another problem too, and it is a harder to talk about politely.  I 
have never met a fulltime computer-security person for a mainframe shop who 
really knew much about the operating system he or she was attempting to defend. 
 Moreover, I have never met a highly competent z/OS or z/VM systems programmer 
who was willing to devote herself or himself exclusively to security for a 
single shop.  There is a severe, all but sui generis paucity of both talent and 
long experience with the target operating system among these security people; 
and it is not at all clear how these deficiencies can be remedied.

Part-time attention to security by a few talented, appropriately experienced 
people is all but certain to be much more effective than that given to it by a 
much larger group of dedicated mediocrities; but this notion is unpalatable to 
many CIOs for the obvious reason.

John Gilmore, Ashland, MA 01721 - USA

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

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

Re: Work long hours (Was Re: Pissing contest(s))

[Gross, Randall [PRI-1PP]]

John,

Actually, I do agree with you, and no offense was taken.  
\
Interestingly enough, when I was interviewing here, it was for a 
sysprog opening.  

After being interviewd by the sysprog manager and the VP of operations, 
I had a final interview with the CIO.

The CIO noticed on my resume that I had some experience in the RACF 
arena (can you say GSD-331); he asked if I would be interested in a RACF 
job for the same pay - he felt that his security organizaion needed more 
technical mainframe knowledge - someone who could intelligently interface with 
the sysprogs and rest of the data center.  

The rest is history.  Our CIO is not your run-of the-mill executive - 
he started professional life as an operator on a mainframe. 

Randy

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John Gilmore
Sent: Monday, September 30, 2013 10:43 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Work long hours (Was Re: Pissing contest(s))

I do not know Randall Gross personally, and it was anyway no part of my intent 
to impugn the competence of any particular mainframe security specialist.  I 
indeed made it clear that I judge that the effectiveness of such groups varies 
widely.

I am nevertheless unrepentent about my view that most of these groups are no 
great shakes technically, bureaucratically orient[at]ed, and ineffective.

I am not sure just how 'staggering vacations in financial institutions' 
dissolves collusions.  It may well prevent them during the interval when either 
of, say, two colluders is vacationing; but there would still be ample 
opportunity for collusive misbehavior during the the nine months (assuming 
six-week non-overlapping vacations for each of two colluders) when both would 
be present.

Indeed, the historical rationale for these longish bank-officer
vacations|holidays has been that they provided opportunities for the
detection of fraud, not that they prevented it; and for this purpose 
simultaneous vacations for two colluding officers would be more effective.

John Gilmore, Ashland, MA 01721 - USA

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

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

Re: Quote on Slashdot.org

[Gross, Randall [PRI-1PP]]

ALGOL was the first high-level language I learned, on a Burroughs B5500.  

I liked it a lot, except that it was special character happy, using the full 
64-character set found on the model 029  129 keypunches.

The college only had four 029's (that students could use) but they had a bunch 
of model 026, 48 character set keypunches all over campus.  

Most of us got to be very good at multi-punching

The best learning language I ever ran across was COMAL...


Randy 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Andrews
Sent: Monday, September 30, 2013 4:12 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Quote on Slashdot.org

On Mon, 2013-09-30 at 19:40 +, Pew, Curtis G wrote:
 Tony Hoare once said, The amazing thing about Algol was it was such 
 an improvement over most of its successors.

Not having a defined I/O facility didn't help Algol.  An undergraduate prof of 
mine (George Haynam, did the SDS Algol 60 compiler) claimed that this was the 
source of Algol's unpopularity in the US.  Maybe he was right.

--
David Andrews
A. Duda  Sons, Inc.
david.andr...@duda.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: Rexx Execio to PDS

[Gross, Randall [PRI-1PP]]

Try initializing the stem to null (outstem. = ).

A null entry will terminate the EXECIO. 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of George Shedlock
Sent: Tuesday, August 27, 2013 8:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Rexx Execio to PDS

To All:
   First, the output dataset was created immediately prior to executing the 
exec. It was defined as a standard FB 80 PDS of 10 cylinders with 30 directory 
blocks. For testing, my code only was generating 3 lines of output into a 
single member in that PDS.

Lizette:
   I am using EXECIO instead of the ISPF LM functions for 2 reasons. First I 
cannot guarantee that this exec will run in an ISPF environment. Second, I am 
an old time VM'er and somewhat stuck in my ways.

Paul:
   You have noted one of the subtle differences in the way that Execio works in 
the CMS vs TSO environments. It seems that in CMS, the EXECIO * stops after 
the stem runs out. In TSO, it continues on forever resulting in my out of space 
condition.
   It seems that the ISPF LMPUT only deals with one line at a time.

Joel and Paul:
   The parse was a quick and dirty way of piping in a string of lines as one 
argument

Joel:
   The outstem. = 0 was indeed incorrect. It should have been outstem.0 = 
0. See my note below for the final code segment.
   

Thank you to all who have responded. Here is the final code segment that does 
indeed work:

Write_Member: Procedure expose line.
  MyDSN = ARG(1)
  MyMember = ARG(2)
  MyArg = ARG(3)
  dsnname = MyDSN || '(' || MyMember || ')'
  Say 'The dsname is: {'dsnname'}'
  Say 'Number of lines written: 'line.0
  ALLOC DA('dsnname') F(Pdsout) OLD REUSE
  EXECIO line.0 DISKW Pdsout (STEM line. FINIS
  FREE F(Pdsout)
  Return  


Thank you all.

George





--
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 ? - emulating recursive PERFORM statement

[Gross, Randall [PRI-1PP]]

In 1972, as a new hire, I was given the task of maintaining an entire
COBOL application that was written with altered gotos and not a single
perform. 

When I asked why, I was told that their standard was to use altered
gotos instead of performs, because they were more efficient.

This ruling was later reversed, and whenever I had to do maintnenace or
even debug one of those horrors, I would typically do a complete
rewrite, based on the original program specs.  

This was much faster that trying to bebug clever use of alters.

Randy



-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Bob Shannon
Sent: Thursday, August 01, 2013 1:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: COBOL ? - emulating recursive PERFORM statement

Programmers HATE altered GOTO's

I hated them 35 years ago. Hopefully they were never used in new code
after that.

Bob Shannon
Rocket Software

--
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: Query for Destination z article -- mainframes back to the future

[Gross, Randall [PRI-1PP]]

We used to call this the any idiot theory of debugging:

After working a trans-finite amount of time trying to debug a program,
any idiot will walk up and immediately point out your error.

 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Richards, Robert B.
Sent: Monday, March 18, 2013 10:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Query for Destination z article -- mainframes back to the
future

I have to echo your last line from personal experience:

If you have looked at a bug for 30 or more minutes, get that second set
of eyes to look at it pronto. 

Chances are they will spot it in under 30 seconds!  :-)

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Elardus Engelbrecht
Sent: Monday, March 18, 2013 9:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Query for Destination z article -- mainframes back to the
future

Shmuel Metz (Seymour J.) wrote:
 Have a plan B.

And C and D, etc... ;-D

 Document first, then keep your documentation up to date.

And have someone else review it.

And document all and every exits. (source, logic flow and installation
methods)

 Don't update the running system.

Some people did that - at their own risk.

And P L E A S E Don't INIT a live IPL volser!

 Use vendor-provided mappings rather than rolling your own.

Good suggestion, that is, if supplied mapping is available in the first
place. Think OCO.

(It took me a long time to obtain SMF mappings from IBM for a certain
product for which I need to extract accounting info for usage
analysis... So I ended used both version - vendor and my own.)

A few coding techniques for newbies to learn:
 The use of UNPK and TR for converting to hexadecimal.

And do that in RENT and REUS modes too. ;-)

I wish to add something too: If you're having trouble debugging
something, an extra pair(s) of eyes is a welcome investment.


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