Re: Coupling Facility List structure versus CIC Data Table

[Alan Young]

As the application is now using a CICS Data Table, perhaps the Data Table can 
be changed to a Coupling Facility Data Table?



From: Laurence Chiu <05c4ba336ee7-dmarc-requ...@listserv.ua.edu>
Sent: Friday, May 31, 2024 14:47
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Coupling Facility List structure versus CIC Data Table

We recently fixed a CICS transaction that read some reference data and 
stored it in memory in the CWA. It also had some common code that was 
used across the application space. But because it used the CWA in a 
non-standard way the transaction always had to be called in its region, 
rather than run in any region that needed it. 

Finally overcoming developer  inertia, I had the application changed to use 
a CICS Data Table which now means the transaction can be called from any 
region without a cross region call. 

But the code is also used in batch and the batch version reads a VSAM 
file.  We have just implemented a parallel sysplex and it would seem an 
ideal application for a CF LIst Structure.  We could have a 
scheduled application load the structure when it changed or across an IPL 
and then the data would then be available to any application. This is read 
only so applications never need to do more than just read the data. 

We are new to parallel sysplex so any thoughts 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: What am I doing wrong with BPXWUNIX sort?

[Alan Young]

I think I have always used the position specification format. In a couple of 
processes I ran before, I have

xrc = BPXWUNIX("/bin/sort -bdu -k1.1,1.11 ","pl.","pls.")

xrc = BPXWUNIX("/bin/sort -bd -k1.10,1.26 -k2.1,2.8","d.","ds.")

Maybe sort is aborting with a return code (RC, retval, etc.) and no message? 

Alan

-Original Message-
From: IBM Mainframe Discussion List 
Sent: Mar 7, 2024 9:04 AM
To: 
Subject: Re: What am I doing wrong with BPXWUNIX sort?

Thanks all. The mystery deepens.

Using the same stem variable should not be the problem. I have done that before 
successfully, and the sort command documentation talks about how it uses a 
temporary file to avoid clobbering the input data if the files are the same.

BUT ... changing to a different stem variable revealed that sort is not 
populating my output file at all. The new stem variable was uninitialized after 
the sort! THAT is why Index. is unchanged -- sort is not writing to my output 
file/stem at all!

So that leaves the question: why is sort not populating my output stem? I know 
sort is available and actually running because in one test I fat-fingered the 
-k2 and got three messages in stderr.

Why would sort not populate the output stem?

Charles


On Thu, 7 Mar 2024 10:15:10 +0800, David Crayford wrote:

>Youre using the same stem variable for input and output. Use a specific 
>stdout. stem and see if that fixes it. Kolusus snippet works for me.

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

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

Re: Why does ISPF BROWSE abend with S878 searching a large sequential file?

[Alan Young]

Is the file RECFM=V? For me, variable records seem to vex ISPF browse and edit 
more than RECFM=F files. It runs out of storage sooner with the variable length 
files. That is with a TSO region of 131072.

If alternative editors/viewers are available, they may fair better. IBM File 
Manager works but can have storage issues when a copybook is mapped to large 
records. However, there's ways to have it work with a subpart of the file. At 
$JOB - 1, I seem to recall Fileaid and InSync worked well with large files.

Alan

-Original Message-
From: IBM Mainframe Discussion List 
Sent: May 23, 2023 4:37 PM
To: 
Subject: Re: Why does ISPF BROWSE abend with S878 searching a large sequential 
file?

Your system is a lot less busy than the one I use. Just maxing to the bottom of 
a smaller 8,778 cylinder generation of the same file set I mentioned earlier in 
BROWSE didn't complete in over 30 minutes. I had to ATTN out of it, and that 
logged me off too.

Then again the nightly batch window already opened here, and my TSO session is 
competing with all of that work.

Peter

-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Schmitt, Michael
Sent: Tuesday, May 23, 2023 6:30 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Why does ISPF BROWSE abend with S878 searching a large sequential 
file?

I just tried a browse on a sequential file with 6,355,209 records, using 6,621 
cylinders, finding a 31-byte key at the beginning of the record, where the key 
is found at record number 6,355,208.

I normally have 256 MB of region, but for this test I changed it to 48000K.

Before Browse:

Limit In-use Avail
Below 16M: 9060K 400K 8660K
Above 16M: 49024K 5240K 43784K


After entering Browse of data set:

Limit In-use Avail
Below 16M: 9060K 468K 8592K
Above 16M: 49024K 5280K 43744K


After f 1 'I65800232001005001GIORFIORC' command completed (in about 44 
seconds):

Limit In-use Avail
Below 16M: 9060K 468K 8592K
Above 16M: 49024K 6876K 42148K


After exiting Browse:

Limit In-use Avail
Below 16M: 9060K 440K 8620K
Above 16M: 49024K 5240K 43784K


This is on z/OS 2.4 on a z14.

-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Farley, Peter
Sent: Tuesday, May 23, 2023 4:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Why does ISPF BROWSE abend with S878 searching a large sequential 
file?

Possibly. But if so we are in a lot more trouble than annoying abends out of 
TSO, as this is customer data with legal archiving requirements. If it is 
somehow corrupted by compression (not sure at this point if that file is using 
IBM software compression or zEDC hardware compression) we have MUCH larger 
issues.

IMHO it is probably just BAD (broken as designed) BROWSE code, but with OCO 
there is no way for an ordinary customer to know.

Peter

-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Schmitt, Michael
Sent: Tuesday, May 23, 2023 4:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Why does ISPF BROWSE abend with S878 searching a large sequential 
file?

I agree that Browse isn't supposed to require enough memory to hold the file, 
so it should work.

But.

Is "compressed data" the key? How is it compressed? Does the fact that it is 
compressed mean that more data has to be in memory? Or is it going wild on 
decompression, such as if the data is corrupted so the length is wrong? (Like 
how it is possible to create a tiny .ZIP file that decompresses to terabytes.)


-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Farley, Peter
Sent: Tuesday, May 23, 2023 3:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Why does ISPF BROWSE abend with S878 searching a large sequential file?

This has happened to me twice this afternoon, and several other times in the 
last few months - I am trying to browse (from ISPF 3.4) a quite large 
sequential file (> 14500 cylinders of compressed data) for a record with a 
specific 31-byte key at the beginning of the record, and browse abends with 
S878 and throws me off TSO entirely, requiring me to login again each time.

My TSO logon region size is set to 48000, so what in the world is making browse 
consume so much memory that it runs out and crashes my TSO session entirely?

I know, OCO prevents anyone knowing for sure, but if you have any clue I'd 
appreciate knowing the answer.

I've been forced to search that file using SORT in a batch job to keep the 
frustration level lower.

Peter
--

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.

Re: Why email from z/OS SMTP rejected by Gmail?

[Alan Young]

Looks to me that there are missing less thans (<) before the ltuser. 
occurrences.

-Original Message-
From: IBM Mainframe Discussion List 
Sent: Dec 11, 2022 11:29 AM
To: 
Subject: Why email from z/OS SMTP rejected by Gmail?

Has anyone else seen this? I have a couple of z/OS applications that send 
status emails. The emails go to several addresses without error. Some of the 
emails are plain text format, and some are HTML.

I recently added an @Gmail address to the emails and the plain text email 
*only* is being rejected by Gmail with the following error:

host gmail-smtp-in.l.google.com[142.251.15.26] said:
550-5.7.1 [66.180.7.182] Messages missing a valid messageId header are not
550 5.7.1 accepted. 4-20020a25040400b006de730f5057si5474769ybe.296 -
gsmtp (in reply to end of DATA command)

Here is an example  pretty much straight out of the IP Users 
Guide  that duplicates the problem. The @mcn address works but the 
@gmail address bounces. Has anyone else seen this? Any ideas?

//IEBGENER EXEC PGM=IEBGENER  
//SYSIN DD DUMMY  
//SYSUT1 DD * 
HELO server  
MAIL FROM:  
RCPT TO:ltuser.n...@gmail.com>   
RCPT TO:
DATA  
Importance: high  
From: LPAR 
To: ltuser.n...@gmail.com>   
To: 
Subject: Please tell me if you get this email!!!  
  
Mike: Cindy stubbed her toe. Bobby went to
baseball camp. Marsha made the cheerleading team. 
Jan got glasses. Peter has an identity crisis.
Greg made dates with 3 girls and couldn't 
remember their names. 
. 
QUIT  
/*
//SYSUT2 DD SYSOUT=(B,SMTP)   
//SYSPRINT DD SYSOUT=* 

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

Re: dfsort -TASK I/O TABLE EXCEEDS TIOT LIMIT OF 0064K

[Alan Young]

The first job can do one pass of the input to split the output into three files 
of 250 IDs each. Then run three subsequent jobs concurrently to split the first 
step output files into the individual files. That is one less pass on the total 
input.


If there is enough TIOT space, an additional variation to try is to split the 
first 250 IDs in the first job with two additional outputs for groups 251-500 
and 501-750. Then run additional jobs to split the additional groups. That can 
save from having to do a second pass on part of the data.


If the OP has enough system resources in the second step, they can consider 
changing the first step output files to groups of 125 IDs to run additional 
splits concurrently.


HTH


Alan


From: "Farley, Peter x23353" <031df298a9da-dmarc-requ...@listserv.ua.edu>
Sent: Saturday, June 11, 2022 11:35
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: dfsort -TASK I/O TABLE EXCEEDS TIOT LIMIT OF 0064K

The simple solution is to split the single job into multiple jobs.  As a start, 
put the first 250 into JOB1, the second 250 into JOB2 and the last 250 into 
JOB3. 

It means 3 passes of the input file instead of one, but the jobs will run and 
you will get the result you need. 

HTH 

Peter 

-Original Message- 
From: IBM Mainframe Discussion List  On Behalf Of Ron 
Thomas 
Sent: Saturday, June 11, 2022 12:14 AM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: dfsort -TASK I/O TABLE EXCEEDS TIOT LIMIT OF 0064K 

Hello - 

We are splitting a very large files in to 750 files dynamically based on key , 
which means if the key changes the file is moved to the respective ones 


we are getting the message 

STEPBB - TASK I/O TABLE EXCEEDS TIOT LIMIT OF 0064K STEPBB - STEP WAS NOT 
EXECUTED. 

and hence the step is not getting executed . 

File LRECL = 500 Key is from position 19,4. 

Here is the control card used 

SORT FIELDS=COPY 
OUTREC IFTHEN=(WHEN=GROUP,KEYBEGIN=(19,4),PUSH=(501:ID=3)) 
OUTFIL FNAMES=OUT001,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,001) 
OUTFIL FNAMES=OUT002,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,002) 
OUTFIL FNAMES=OUT003,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,003) 
OUTFIL FNAMES=OUT004,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,004) 
OUTFIL FNAMES=OUT005,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,005) 
OUTFIL FNAMES=OUT006,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,006) 
OUTFIL FNAMES=OUT007,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,007) 
OUTFIL FNAMES=OUT008,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,008) 
--- 
-- 
OUTFIL FNAMES=OUT749,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,749) 
OUTFIL FNAMES=OUT750,BUILD=(1,500),INCLUDE=(501,3,ZD,EQ,750) 


so could some let me know how to get this fixed ? of is there any other way we 
can build this one ? 


Regards 
Ron T 
--

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 


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

Re: SYNCSORT question: How to treat variable length KSDS as variable length input to SORT JOINKEYS

[Alan Young]

Add a TYPE=V parameter to the JOINKEYS statement for the VSAM file. It might 
also need a RECFM=V on the SORTJNFx DD for the VSAM file.
 
Alan
 
-Original Message-
From: IBM Mainframe Discussion List 
Sent: Jun 6, 2022 6:07 PM
To: 
Subject: SYNCSORT question: How to treat variable length KSDS as variable 
length input to SORT JOINKEYS
 
I have two files, one a flat file with RECFM=VB,LRECL=8004, one a VSAM KSDS 
with RECORDSIZE(3000 26000) denoting variable length records for that KSDS.
 
However, when using that VSAM file as one side of a JOINKEYS operation, 
SYNCSORT claims the KSDS is RECFM=F:
 
WER482I JNF2 STATISTICS
WER483B 32,780K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER483B 0 BYTES RESERVE REQUESTED, 996K BYTES USED
WER108I IN2 : RECFM=F ; LRECL= 26000; CISIZE = 28672
 
Listcat of the VSAM file shows it is, in fact, defined as variable:
 
ATTRIBUTES
KEYLEN15 AVGLRECL3000 BUFSPACE---61440 
CISIZE-28672
RKP1 MAXLRECL---26000 EXCPEXIT--(NULL) 
CI/CA-26
STRIPE-COUNT---1
ACT-DIC-TOKENX'4009054005FE08FE0DFE0EFE0AFE'
SHROPTNS(2,3) SPEED UNIQUE NOERASE INDEXED NOWRITECHK UNORDERED REUSE
NONSPANNED COMP-FORMT EXTENDED EXT-ADDR
 
How do I get SYNCSORT to recognize and treat this variable-length KSDS as 
variable, just like the flat file which is my other JOINKEYS input?
 
Copying the VSAM to a flat RECFM=VB isn't a currently viable alternative due to 
large file size and limited "test" disk space. Besides, I ought to be able to 
process a variable length file as a variable length file no matter what the 
actual file organization may be.
 
Peter
 
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

 

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

Re: Publicly available site for SA23-7832-13 zArch PoOP for z16?

[Alan Young]

The link for 013 is embedded in the paragraph text at the top of the page.
http://publibfp.dhe.ibm.com/epubs/pdf/a227832d.pdf
 
-Original Message-
From: IBM Mainframe Discussion List 
Sent: Jun 3, 2022 7:30 AM
To: 
Subject: Re: Publicly available site for SA23-7832-13 zArch PoOP for z16?
 
Thanks for that link, but those are all the ones up to the -12 edition, not 
including the new -13 edition yet.
 
Peter
 
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Alan Young
Sent: Friday, June 3, 2022 6:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Publicly available site for SA23-7832-13 zArch PoOP for z16?
 
https://urldefense.com/v3/__https://linux.mainframe.blog/zarchitecture-principles-of-operation__;!!Ebr-cpPeAnfNniQ8HSAI-g_K5b7VKg!KFbcdz-pDFxDB3WHjV0LI3pEuEoWOTMyO6VUlAsDZ25PtBD7XWM_XKq2hGVPwejBkoN10zXRKVSvFZUpnAVvjw$
  has a link to that version and older versions of it.
 
Alan
 
-Original Message-
From: IBM Mainframe Discussion List
Sent: Jun 2, 2022 9:39 PM
To:
Subject: Publicly available site for SA23-7832-13 zArch PoOP for z16?
 
Even Jim Elliiot's CMOS website only has a ResourceLink url to get it, and some 
of us do not have ResourceLink ID's.
 
Has anyone found it on a publicly available website that needs no login?
 
I do have an IBM developer login, but apparently that one does not give me 
access to ResourceLink.
 
Peter
--
 
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

 

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

Re: Publicly available site for SA23-7832-13 zArch PoOP for z16?

[Alan Young]

https://linux.mainframe.blog/zarchitecture-principles-of-operation has a link 
to that version and older versions of it.
 
Alan
 
-Original Message-
From: IBM Mainframe Discussion List 
Sent: Jun 2, 2022 9:39 PM
To: 
Subject: Publicly available site for SA23-7832-13 zArch PoOP for z16?
 
Even Jim Elliiot's CMOS website only has a ResourceLink url to get it, and some 
of us do not have ResourceLink ID's.
 
Has anyone found it on a publicly available website that needs no login?
 
I do have an IBM developer login, but apparently that one does not give me 
access to ResourceLink.
 
Peter
 
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

 

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

Re: Use of zCX

[Alan Young]

>>Early 2001.  Possibly included to run VSE in a z/OS address space to


>>aid migration?


>>


>DUO (DOS Under OS)?



If memory serves, DUO was around way before as one of the products acquired 
when CA bought UCCEL. I have a recollection of seeing a manual in the blue 
binders that I think CA was using in the late 80s.







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

Re: SCCHowTo_Book

[Alan Young]

I was able to access it by replacing the protocol of ftp: with https: at the 
start if the URL.
 
-Original Message-
From: IBM Mainframe Discussion List 
Sent: Apr 7, 2022 10:41 AM
To: 
Subject: Re: SCCHowTo_Book
 
Len,
 
The link is active, however most browsers stopped supporting FTP access. You 
can use FTP Clients such as (Filezilla, Winscp...or the good old command prompt 
if you are on windows) using Anonymous logon and you should be able to download 
the document.
If you are having trouble downloading the document, I can send it offline as 
IBM-MAIN list prohibits PDF file as attachments.
 
Thanks,
Kolusu
 
--
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: z/OS v2R5 TN3270 Changes

[Alan Young]

Crossover makes it very easy to install applications in Wine. It can also 
install applications into different wine instances. There is a 30 day trial 
available.
 
https://www.codeweavers.com/crossover
 
-Original Message-
From: IBM Mainframe Discussion List 
Sent: Apr 4, 2022 9:16 AM
To: 
Subject: Re: z/OS v2R5 TN3270 Changes
 
https://linuxize.com/post/how-to-install-wine-on-ubuntu-20-04/
 
On Mon, Apr 4, 2022 at 11:49 AM Lennie Dymoke-Bradshaw
wrote:
>
> Mike,
>
> I am interested in running Vista 3270 in my Ubuntu system.
> Are there any instructions for what I need to do to get this working?
> I have no experience with Wine.
>
> Lennie Dymoke-Bradshaw
> https://rsclweb.com
> ‘Dance like no one is watching. Encrypt like everyone is.’
>
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Mike Schwab
> Sent: 02 April 2022 14:11
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: z/OS v2R5 TN3270 Changes
>
> Vista runs fine under Wine.
>
> On Sat, Apr 2, 2022 at 1:01 PM Jay Maynard wrote:
> >
> > Mochasoft is really good about updates. I had purchased their TN5250
> > package more than 10 years ago, and got a free update recently. I was
> > so impressed I bought their TN3270, too.
> >
> > I'd love to compare it to Vista, but I refuse to run Windows...
> >
> > On Fri, Apr 1, 2022, 23:16 Brian Westerman
> >
> > wrote:
> >
> > > Some of our clients were using the older Mocha, we found from
> > > Mochasoft that they had to use version 2.3 (from 2015) or above,
> > > version 2.4 (from
> > > 2016) was the "preferred" lower limit from mochasoft. Some of the
> > > clients were able to get a "free" update tot he current version, but
> > > that was back in 2020 so it may no longer be available in that way.
> > >
> > > However, a company license is only $299 US, so for the cost of
> > > basically
> > > 10 copies, you get a license for an unlimited number of users at
> > > your company.
> > >
> > > I still think that VISTA (from Tom Brennan) is much better though.
> > >
> > > At the time we did a study of what tn3270 clients were able to be
> > > used with AT/TLS and there were (I think) about 8 that actually
> > > worked, some of them were extremely expensive and I think 1 or 2
> > > were even free or at least free for personal use, but it's been two years 
> > > so things may have changed.
> > >
> > > Brian
> > >
> > > 
> > > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO
> > > IBM-MAIN
> > >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
 
 
 
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
 
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

 

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

Re: Holy Moly ...

[Alan Young]

Other tech news has started to pick up on this.
 
https://arstechnica.com/tech-policy/2022/02/ibm-exec-called-older-workers-dinobabies-who-should-go-extinct-lawsuit-says/
 
https://www.theregister.com/2022/02/14/ibm_age_discrimination_court_documents/
 
-Original Message-
From: IBM Mainframe Discussion List 
Sent: Feb 14, 2022 4:12 AM
To: 
Subject: Holy Moly ...
 
https://www.nytimes.com/2022/02/12/business/economy/ibm-age-discrimination.html
 
"Another email by a top executive, appearing to refer to older workers,
mentions a plan to “accelerate change by inviting the ‘dinobabies’ (new
species) to leave” and make them an “extinct species.”
 
A third email refers to IBM’s “dated maternal workforce,” an apparent
allusion to older women, and says: “This is what must change. They really
don’t understand social or engagement. Not digital natives. A real threat
for us.”
 
Joe
 
--
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: ERBSCAN in batch

[Alan Young]

The summary of records report in the REXX is produced by program ERBMFSCN. 
There is sample JCL on how to call that in ERBSMFSC.

-Original Message-
>From: kekronbekron <02dee3fcae33-dmarc-requ...@listserv.ua.edu>
>Sent: May 7, 2021 8:10 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: ERBSCAN in batch
>
>Hi,
>
>Is it possible to run the erbscan line command in a batch job?
>I don't want to run ADRDSSU with OPTION(DUMP) to DUMMY as that doesn't give 
>the same amount of detail as does erbscan.
>
>There's Watson Walker's SMFSCRUB but for sites with unnecessary restrictions 
>even to vendor sites, that's not an option.
>
>- KB
>
>--
>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: Anyone have SFTP JCL to share?

[Alan Young]

The Dovetailed Co:Z SSH and Tectia SSH products have MVS dataset support. 
Depending on the site’s business usage, the site may be able to use Co:Z for no 
charge under the Co:Z Community License.

-Original Message-
>From: Roberto Halais 
>Sent: Apr 14, 2021 12:23 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Anyone have SFTP JCL to share?
>
>From what I have tested you must have the file in OMVS  in order to use
>SFTP.
>
>
>On Wed, Apr 14, 2021 at 3:12 PM Billy Ashton  wrote:
>
>> Hi everyone! I was just moved to support a CA product (I guess that's
>> Broadcom now), and have to send in a sensitive file to one of my support
>> cases. The file is pretty large, and the support tech said I have to
>> copy it to OMVS to use SFTP for uploading it. I am not sure I have that
>> space available on the other side, so I was wondering if anyone here has
>> a BPX batch job that will send a file to CA or Broadcom from the z/OS
>> file without having to first copy the file to my Unix filesystem.
>>
>> I hope this is clear, and that someone can help me.
>>
>> Thanks!
>> Billy

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

Re: ISPF for mainframe Linux

[Alan Young]

I use JOE as an editor for linux command line. 
https://joe-editor.sourceforge.io . On windows or wine, I use Notepad++. 
https://notepad-plus-plus.org

mc.ext can be configured to launch custom programs (or editors) for file 
extensions.

Exiting and keeping the directory location...Do you have an alias set for mc? 
Depending on the distro and shell, it should be something like 
alias mc='. /usr/share/mc/bin/mc-wrapper.sh'
To use that wrapper, use F10 to exit mc. Don’t enter “exit” on its prompt.

Alan

-Original Message-
>From: "Farley, Peter x23353" <031df298a9da-dmarc-requ...@listserv.ua.edu>
>Sent: Jan 28, 2021 9:58 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: ISPF for mainframe Linux
>
>Depends heavily on the editor software.  One editor I remember trying (I don't 
>remember which one now) used Ctrl-left-click to start and end a block copy.  
>Quite easy to use, one hand for the mouse and one for the Ctrl key, then 
>Ctrl-C or -X then Ctrl-V to copy/cut and paste.
>
>Sometimes combinations of mouse and keyboard are more usable than either one 
>alone.
>
>OTOH, my day-to-day PC editor under Windows (EditPlus) uses Alt-C to start a 
>block copy, then Ctrl-C or Ctrl-X to copy or cut and Ctrl-V to paste the 
>block.  I hardly have to think about it -- it Just Works.
>
>I've been tempted once or twice to pay for UltraEdit, but have not done so 
>yet.  It looks pretty good, and UltraEdit is available for Windows, Mac and 
>Linux, but it isn't cheap (though also not extraordinarily expensive for what 
>you get).
>
>There is also a free version of the MS Visual Code editor which I also haven't 
>tried yet.
>
>On Linux I often use the Midnight Commander view/edit programs (mcview/mcedit) 
>for quick browses and edits, but not for serious coding.  "vi" and it's 
>descendants are not intuitive to me, nor is emacs.  Nano is OK, but again not 
>my cup of tea for serious writing (code or text).
>
>Midnight Commander is awesome for file tree navigation from a console session 
>in both Windows and Linux.  Highly recommended.  I just wish I could figure 
>out how to tell it to STAY in the directory that I navigated to when I exit, 
>rather than going back to the directory where I started.
>
>Peter
>
>-Original Message-
>From: IBM Mainframe Discussion List  On Behalf Of 
>Seymour J Metz
>Sent: Thursday, January 28, 2021 11:29 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: ISPF for mainframe Linux
>
>You have to carve the bird at the joints. How about a comparison of block copy 
>using keyboard versus mouse?
>
>--
>
>From: IBM Mainframe Discussion List  on behalf of 
>Pew, Curtis G 
>Sent: Thursday, January 28, 2021 11:23 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: ISPF for mainframe Linux
>
>On Jan 28, 2021, at 10:04 AM, Joel C. Ewing  wrote:
>>
>> I would be willing to bet the the stopwatch studies cited were based 
>> on a highly restricted cases.
>
>The context was comparing command-key sequences to clicking buttons or 
>selecting menu items. Remembering the command-key sequence takes as long as 
>moving the mouse, but the brain doesn't perceive the time passing while 
>remembering, while it does perceive the time passing while manipulating the 
>mouse.
>
>
>--
>
>
>
>
>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
>lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
>lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>This message and any attachments are intended only for the use of the 
>addressee and may contain information that is privileged and confidential. If 
>the reader of the message is not the intended recipient or an authorized 
>representative of the intended recipient, you are hereby notified that any 
>dissemination of this communication is strictly prohibited. If you have 
>received this communication in error, please notify us immediately by e-mail 
>and delete the message and any attachments from your system.
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with 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 is the data compression manual SA22-7208

[Alan Young]

-Original Message-
>From: John Ganci <0313d5d8c097-dmarc-requ...@listserv.ua.edu>
>Sent: Jul 24, 2020 9:39 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Where is the data compression manual SA22-7208
>
>Thanks. Alas,  my PC runs Linux. Softcopy librarian appears to be Windows-only 

Its been a while since I ran it in linux. IIRC, its java with some extra stuff. 
Try 7z or another archive extractors to get it unpacked. Take a look at the 
.bat files. They run java with a jar file... just translate the commands. My 
notes indicate I had better luck with 3.8 than 4.0. Although there appears to 
be 5.x versions now. The FTP directory linked 
ftp://public.dhe.ibm.com/ps/products/bookmanager/tools/ is open and you may 
find other useful bits there. Good Luck.

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

Re: SG24-5451

[Alan Young]

It is in the IBM Publications Center - 
https://www.ibm.com/e-business/linkweb/publications/servlet/pbi.wss

-Original Message-
>From: Brian Westerman 
>Sent: May 30, 2020 11:26 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: SG24-5451
>
>Hi,
>
>Does anyone still have a copy of the redbook SG24-5451
>
>SG24-5451-00
>
>Parallel Sysplex - Software Management for Availability
>
>
>I thought it should have been at redbooks.com, but it comes up with an Oops 
>message.
>
>Brian

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

Re: TIME a data set was created?

[Alan Young]

You may be thinking of DMS/OS aka SAMS:DISK aka CA-DISK.



From: Tom Brennan 
Sent: Friday, May 29, 2020 23:27
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: TIME a data set was created?

Semi-Related - I seem to remember a software product, not sure what the
name was, that would poke a date and maybe other information in "unused"
fields in the VTOC for each dataset.  Maybe it was a last-opened date or
similar.  And it might have been a product that did a bit of what HSM
does, prior to HSM becoming popular.  Just trying to jog my lost
memories from the early 1980's.  Note: I did not inhale.

 Original Message 
Subject: Re: TIME a data set was created?
From: "Gibney, Dave" 
Date: Fri, May 29, 2020 10:36 pm
To: IBM-MAIN@LISTSERV.UA.EDU

The time of creation is not stored by z/OS for non-Unix System Services
files.
Your options are the logging provided by SMF, or change the application
to store into the Unix System Services file system.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Peter Vels
> Sent: Friday, May 29, 2020 9:43 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: TIME a data set was created?
> 
> A number of people both on and off the list have mentioned SMF. Even if I
> had permission to read SMF data (I don't) I think it would be too much
> overhead to scan weeks of SMF records to find a few (~50) timestamps.
> 
> On Sat, 30 May 2020 at 13:44, Lizette Koehler 
> wrote:
> 
> > Do you have any tools like MICS/SAS/MXG?
> >
> > If not, can you download from cbttape.org the tool DAF (Dataset Audit
> > Facility) - you can feed it SMF data based on dataset names, and it
> > will provide SMF records that probably have a timestamp
> >
> > Lizette
> >
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of Peter Vels
> > Sent: Friday, May 29, 2020 7:01 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: TIME a data set was created?
> >
> > How does one get the TIME a z/OS data set was created? The date is
> > easy, but I'm after the time.
> >
> > Background: Periodically I update a list of data sets created by an
> > application over which I have no control. I want to sort the list by
> > descending date and time. Where can I get the time from? LISTDSI
> > won't provide it unless the data set is on an EAV volume (doesn't apply).
> >
> > Regards,
> > PV
> >
> > --
> > 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 


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

Re: Developers say Google's Go is 'most sought after' programming language of 2020

[Alan Young]

There is a port but it is a couple of years old.

https://github.com/zos-go/go


IBM has a recent post about it coming to zOS.

https://developer.ibm.com/mainframe/2020/04/24/ibm-intends-to-enable-go-on-z-os/


From: Ed Jaffe 
Sent: Saturday, May 9, 2020 14:58
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Developers say Google's Go is 'most sought after' programming 
language of 2020

On 5/9/2020 2:12 PM, scott Ford wrote: 
> Oh yes, I agree, I had a friend say that GO and Python were great to learn, 
> I am open minded.. 

Python is available on z/OS. Can Go availability be far behind? 


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



 
This e-mail message, including any attachments, appended messages and the 
information contained therein, is for the sole use of the intended 
recipient(s). If you are not an intended recipient or have otherwise 
received this email message in error, any use, dissemination, distribution, 
review, storage or copying of this e-mail message and the information 
contained therein is strictly prohibited. If you are not an intended 
recipient, please contact the sender by reply e-mail and destroy all copies 
of this email message and do not otherwise utilize or retain this email 
message or any or all of the information contained therein. Although this 
email message and any attachments or appended messages are believed to be 
free of any virus or other defect that might affect any computer system into 
which it is received and opened, it is the responsibility of the recipient 
to ensure that it is virus free and no responsibility is accepted by the 
sender for any loss or damage arising in any way from its opening or 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: IBM Developerworks is gone!

[Alan Young]

It seems like IBM has decided on using github for the latest iteration.

https://github.com/IBM

https://github.com/cicsdev

https://cicsdev.github.io/

-Original Message-
>From: scott Ford 
>Sent: May 8, 2020 9:59 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: IBM Developerworks is gone!
>
>Cheryl,
>
>Some needs a build large indexable repository for tutorials, howto, code
>etc.
>I have always felt since no one know all the technical answers or aspects ,
>then a repository would help greatly.
>
>Scott
>
>
>
>On Fri, May 8, 2020 at 9:14 AM Lance D. Jackson <
>ljack...@pandrueassociates.com> wrote:
>
>> Thank you Cheryl.
>>
>> -Original Message-
>> From: IBM Mainframe Discussion List  On Behalf
>> Of Cheryl Watson Walker
>> Sent: Thursday, May 7, 2020 22:02
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: IBM Developerworks is gone!
>>
>> Hi all,
>>
>>
>>
>> We'll I'm a little embarrassed. I was just told offline about a link that
>> Lionel Dyck posted here last October that described the coming of the
>> calamity that just occurred -
>> https://developer.ibm.com/dw-connections-sunset-faq/. (As a side note –
>> the creators of that FAQ weren’t even kind enough to create hot links for
>> all of the other portals. Web pages and hot links aren’t all that difficult
>> people!) The FAQ said that owners of content on DeveloperWorks could move
>> their content to other locations by the end of March. This is assuming that
>> they were still employed by IBM and had the time to move the content. Of
>> course, IBM could not provide them with the original content.
>>
>>
>>
>> We had posted almost 100 links in our Tuning Letter to useful material on
>> DeveloperWorks and now none of them work. It will take time, but I hope to
>> go through all of our links and reach out to the authors to find where they
>> are now posting items.
>>
>>
>>
>> So I went to the new website - https://www.ibm.com/community/, signed up,
>> and started looking at it. With the optional portals listed in the FAQ and
>> this new community website, it just seems like IBM wants to remove as much
>> technical information as possible and replace it with marketing. If anyone
>> knows how to search the new community website, please let me know. If I’m
>> not ready to buy a product, the community is not doing anything for me.
>>
>>
>>
>> P.S. – Aled – thanks for your post. I have always had the highest respect
>> for Timothy and Mark, and I really appreciate how much they support the
>> customers.
>>
>>
>>
>> Still a little bitter about the deletions…
>>
>> Cheryl
>>
>>
>>
>> -Original Message-
>> From: Cheryl Watson 
>> Sent: Wednesday, May 6, 2020 12:39 PM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Cc: Cheryl Watson 
>> Subject: IBM Developerworks is gone!
>>
>>
>>
>> Hi all,
>>
>>
>>
>> Remember when IBM went through and deleted from their websites what they
>> considered "old" manuals and documentation? Well, they just did it again!
>> They've removed all the DeveloperWorks articles that have provided such
>> excellent information since its creation. And these aren't just OLD
>> articles. Even a link from three months ago is gone. All references to
>> DeveloperWorks are now directed to a nothing site. The DeveloperWorks
>> website contained amazing articles from some of the top developers in their
>> fields, many of whom are no longer still working at IBM. We understand that
>> IBM "furloughed" them, but they don't have to furlough their ideas.
>>
>>
>>
>> I'm pleading with all of you who work for a large IBM customer to ask your
>> management to tell IBM to stop this idiotic practice. There is NO reason to
>> delete valuable information.
>>
>>
>>
>> If this is due to marketing wanting a new image, then they have no idea
>> what image they're creating.
>>
>>
>>
>> Please do this for all of us!
>>
>>
>>
>> All my best,
>>
>>
>>
>> Cheryl Watson
>>
>> Watson & Walker, Inc.
>>
>>
>>
>>
>>
>> --
>> 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
>>
>-- 
>Scott Ford
>IDMWORKS
>z/OS Development
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Phases of Project in Mainframe

[Alan Young]

This Redbook looks similar to that z10 SAPR document. It is for a z13.

Mainframe from Scratch: Hardware Configuration and z/OS Build
http://www.redbooks.ibm.com/abstracts/sg248329.html

-Original Message-
>From: Edward Finnell <000248cce9f3-dmarc-requ...@listserv.ua.edu>
>Sent: Feb 9, 2020 8:29 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Phases of Project in Mainframe
>
>The latest SAPR I could find was for a Z10. Supposedly it all falls out with 
>Workflow from OSMF but don't think you get the detail.
>
>https://wiki.enterpriselab.ch/el/_media/mainframe:documentation:ibm_2097_z10_sapr_guide_tda_sa06-016-11.pdf

In a message dated 2/9/2020 9:21:28 PM Central Standard Time, 
idfli...@gmail.com writes:
>for me , I need more information so i can see all the pieces
>of a project, IMHO
>
>--
>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: SYNCSORT Question: JFY a numeric field with leading zeroes?

[Alan Young]

One way I did it was using FINDREP= with STARTPOS and ENDPOS to change space to 
zero. You can make multiple passes on the output record with multiple 
IFTHEN=(WHEN=INIT statements - BUILD first then FINDREP or other manipulation 
after the build.

If you have a more recent version that supports the UFF format, use OVERLAY and 
that format to reprocess the field and apply an EDIT= mask to result. You might 
be able to do it directly in the BUILD instead of using JFY.

Alan

-Original Message-
>From: "Farley, Peter x23353" 
>Sent: Nov 11, 2019 5:08 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: SYNCSORT Question: JFY a numeric field with leading zeroes?
>
>We currently use SYNCSORT and need to parse an input CSV file with a trailing 
>number that we need to right-justify in a fixed-length field with leading 
>zeroes instead of leading blanks.
>
>So far I have not been able to find an example that shows how to write out 
>that trailing field as a right-justified number with leading zeroes instead of 
>leading blanks.
>
>Current SORT control cards look like the below.  Please don't take the size of 
>the input fields literally, they can be smaller.  I have just shown the 
>example input line with maximum expected input field lengths.
>
>OPTION COPY
>OUTREC PARSE=(%00=(ENDBEFR=C',',FIXLEN=9),
>   %01=(ENDBEFR=C',',FIXLEN=7),
>   %02=(ENDBEFR=C',',FIXLEN=8),
>   %03=(ENDBEFR=C' ',FIXLEN=10)),
>   BUILD=(%00,%01,%02,%03,JFY=(SHIFT=RIGHT),
>  15X),CONVERT
>
>Input file is RECFM=VB,LRECL=259, output file is RECFM=FB,LRECL=49
>
>Sample input line:
>
>ABCDEFGH0,ABCDEF1,20190731,1000
>
>Current output line using above control cards:
>
>ABCDEFGH0ABCDEF120190731  1000
>
>Desired output line (15 trailing blanks):
>
>ABCDEFGH0ABCDEF120190731001000
>
>TIA for any advice or RTFM pointer you can provide.
>
>Peter
>--
>
>
>
>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

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

Re: WLM Service Definition Formatter

[Alan Young]

Yes, it is a 207,378 byte file. I was able to extract the spreadsheet, open it 
and load a definition. Is there an anti-virus or malware detection product 
blocking the download? Are you able to try to download with a ftp client or a 
different browser?

-Original Message-
>From: "Herring, Bobby" 
>Sent: Jun 12, 2019 12:06 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: WLM Service Definition Formatter
>
>I had someone at our help desk look at it and he thought his download worked, 
>too. But the file was 0kb.
>
>Did you get an actual exe file to download?
>
>I can download all the other four files on the site, just not that one.
>
>Thanks, Bobby
>
>From: IBM Mainframe Discussion List  On Behalf Of 
>Alan Young
>Sent: Wednesday, June 12, 2019 11:21 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: [IBM-MAIN] WLM Service Definition Formatter
>
>The download works here. I do notice it is a ftp link and not an http(s) link. 
>Is it possible your organization is blocking ftp access?
>
>
>-Original Message-
>>From: "Herring, Bobby" mailto:bherr...@txfb-ins.com>>
>>Sent: Jun 12, 2019 8:31 AM
>>To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>
>>Subject: WLM Service Definition Formatter
>>
>>I have used IBM's WLM Service Definition Formatter spreadsheet tool for 
>>years. It's just an Excel spreadsheet with lots of macros under the covers.
>>
>>It was a download from the WLM web page.
>>
>>Mine is an older version and has quit working. The last time it worked 
>>correctly was last fall.
>>
>>I went to download a new copy but that download no longer works.
>>
>>Has anyone else tried downloading this tool and was it successful?
>>
>>Page: 
>>https://www.ibm.com/it-infrastructure/z/zos-workload-management<https://protect-us.mimecast.com/s/EdeDCNk1yLFMKQ4ir-KHp?domain=ibm.com>
>>
>>Bottom of the page under Service Definition Formatter
>>
>>Bobby Herring
>>Texas Farm Bureau Insurance
>>Waco, TX 76710
>>[http://www.txfb-ins.com/TFBICImages/email.gif<https://protect-us.mimecast.com/s/VbwzCOY9zMh2VgWu5qDsw?domain=txfb-ins.com>]
>>WWW.TXFB-INS.COM<https://protect-us.mimecast.com/s/MJ53CPNJA7T5Y2pHB-iPL?domain=txfb-ins.com><http://www.txfb-ins.com<https://protect-us.mimecast.com/s/svQJCQWLBnFNGK0FQ1PO-?domain=txfb-ins.com>>
>>
>>CONFIDENTIALITY STATEMENT: The foregoing message (including attachments) is 
>>covered by the Electronic Communication Privacy Act, 18 U.S.C. sections 
>>2510-2521, and is CONFIDENTIAL. If you believe that it has been sent to you 
>>in error, do not read it. If you are not the intended recipient, you are 
>>hereby notified that any retention, dissemination, distribution, or copying 
>>of this communication is strictly prohibited. Please reply to the sender that 
>>you have received the message in error, then delete it. Thank you.
>>
>>--
>>For IBM-MAIN subscribe / signoff / archive access instructions,
>>send email to lists...@listserv.ua.edu<mailto: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<mailto:lists...@listserv.ua.edu> with 
>the message: INFO IBM-MAIN
>[http://www.txfb-ins.com/TFBICImages/email.gif]
>WWW.TXFB-INS.COM<http://www.txfb-ins.com>
>
>CONFIDENTIALITY STATEMENT: The foregoing message (including attachments) is 
>covered by the Electronic Communication Privacy Act, 18 U.S.C. sections 
>2510-2521, and is CONFIDENTIAL. If you believe that it has been sent to you in 
>error, do not read it. If you are not the intended recipient, you are hereby 
>notified that any retention, dissemination, distribution, or copying of this 
>communication is strictly prohibited. Please reply to the sender that you have 
>received the message in error, then delete it. Thank you.
>
>--
>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: WLM Service Definition Formatter

[Alan Young]

The download works here. I do notice it is a ftp link and not an http(s) link. 
Is it possible your organization is blocking ftp access?


-Original Message-
>From: "Herring, Bobby" 
>Sent: Jun 12, 2019 8:31 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: WLM Service Definition Formatter
>
>I have used IBM's WLM Service Definition Formatter spreadsheet tool for years. 
>It's just an Excel spreadsheet with lots of macros under the covers.
>
>It was a download from the WLM web page.
>
>Mine is an older version and has quit working. The last time it worked 
>correctly was last fall.
>
>I went to download a new copy but that download no longer works.
>
>Has anyone else tried downloading this tool and was it successful?
>
>Page:  https://www.ibm.com/it-infrastructure/z/zos-workload-management
>
>Bottom of the page under Service Definition Formatter
>
>Bobby Herring
>Texas Farm Bureau Insurance
>Waco, TX 76710
>[http://www.txfb-ins.com/TFBICImages/email.gif]
>WWW.TXFB-INS.COM
>
>CONFIDENTIALITY STATEMENT: The foregoing message (including attachments) is 
>covered by the Electronic Communication Privacy Act, 18 U.S.C. sections 
>2510-2521, and is CONFIDENTIAL. If you believe that it has been sent to you in 
>error, do not read it. If you are not the intended recipient, you are hereby 
>notified that any retention, dissemination, distribution, or copying of this 
>communication is strictly prohibited. Please reply to the sender that you have 
>received the message in error, then delete it. Thank you.
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: SDSF API question -- why only REXX & Java?

[Alan Young]

The Implementing REXX Support in SDSF redbook ( 
http://www.redbooks.ibm.com/abstracts/sg247419.html?Open ) has some sample code 
for COBOL to call the SDSF interface via REXX.

-Original Message-
>From: Seymour J Metz 
>Sent: May 24, 2019 1:01 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: SDSF API question -- why only REXX & Java?
>
>Well, REXX has an interface for a routine to set REXX variables. There is no 
>equivalent for, e.g., COBOL.
>
>It's not a question of compiled versus not compiled; it's a question of what 
>interfaces are available to the called program. A compiled REXX program can 
>call SDSF; a COBOL program running in a COBOL interpreter would not be able to 
>do so.
>
>
>--
>Shmuel (Seymour J.) Metz
>http://mason.gmu.edu/~smetz3
>
>
>From: IBM Mainframe Discussion List  on behalf of John McKown 
>Sent: Thursday, May 23, 2019 3:05 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: SDSF API question -- why only REXX & Java?
>
>This is just a curiosity question. The SDSF book shows an API for using it
>in REXX and Java. Anybody know why no other languages? Or are we supposed
>to use SAPI for compiled languages instead of the SDSF API? Or is it SPOOL
>Dataset Browser that we are supposed to use?
>
>https://secure-web.cisco.com/1Cyt5vo8aV4_qK2suQCO_GWm_QmJIDuKVD1C8rfk1n4g638ku6ucLVwv4s4YlkBtaC0hsyyR_CQuojt3RVXCbUSxCA_FJYEM4JPpiZqKG_mrzHhdEpkC-KCMfKlxdGBuIVbFO2uR3Etk_ATGNSK4F5kf2ZnLZT4bNQ87CU-09l7bkTgENQXo5DFXjFyxYeK9128nFQxi-YnO7E_LrTzLvo0Imniw628DF-VgOqQdmTEO7jnqfM4mDtfw-QOtQO4YBG81AEJMXH1OmDSMW9sNFq2J1zK0kfo0mBxAA0CW4bPBDKNgakK64nke4s9kI3HOzeRNLGrhSeSqPHUA0jDQgU1Ci7-PWeEnivPOkFEBg_wZf2yrgKxG_ibLLsJqvaJ-Lprm4N3ZRs5nRRVNlNZKW-2ZuWbhm9okzzDuLdXpKHFWWk4OleXBT8YfArhbJMUqz/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.isfa600%2Frexx.htm
>
>https://secure-web.cisco.com/1hSr4kg3404Net4sgvUUKBkObpOfAi-doK-a25Ywyd_DA3sg7IIowuk6r-jkqsGJN0vxPNXDG2PTF2ebREfXfAaRZYfEl_85XL9Z2EfkNHufGIs7c_qMw-dwvKkBqvc42qIu5KEPjwSmfYXLuWOMjJf6YHwvhRwBuEalacziPkzDXVMrCUyeJvEBsG9WahktYSrwbggfqsO4NXx5OskbS8JkVbrvVj37VtFr-MwSQRzXbAWyrUVxVtQSM3dO0vXTrgZ-VT9FM96pMsdDVd2zKa07aFCilOc-R8qwQ2HHbwKRI_QMMF6qOBMXGtuUNptDw9gyKwmu5AFfjN95MSNpVYwzqx4NwowvLZY4orH2cC7u-On__y8RKAJaY-QmGX6DVwX41J767lxccGzQy_JtW1hdGURMG9Ww1Dx3INU5zFJhWFvhE-m7iGISdU7pHgz8m/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.isfa600%2Fjavapl.htm
>https://secure-web.cisco.com/1zFANvxnN-Dhuwa935zAHZy-EGDHensMOypnd8RTMRlIS2WOp6sJoAvN0usO3YOYTJIFrk-bToHx2WW5fYmSf53aLyPb_TehXxME3Na1bX_OFsla8mbzMX0j25OuLa3gdQGpXqfZYnHASU2hgV0IkHK3r9qX9jSLRX0fV9JRbp0MkOV65v6T7UEcb1z_ESO8fbdUER3o8ZNAiJkgvi-InFvmwOUoMbtQx-8BSgZV2LjMOdVZPQFz5xICFGhj1FtGsl5G-3GS2db1oaZhFZD1Wr8omFKQWw42zEYn5evCPT6GBKshQihzfYg4ykVeYJEOg4IXCNgu5v7kXGjCO5gEMT2WXeUGlOA8Q3vd3lytzQFYhIE_P2fJe4ohCvol_LuDOMlQJZjX9sZmOXWLalgeYWuEOin3w9SeXWpQkQ3j6b5VFqo-1aJL40kQ4aLmakOa0/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.ieaf200%2Fsapi.htm
>
>https://secure-web.cisco.com/1BvTJtcZPW2rTFWUIdWuFSoMzmrGIK0tGrqB3zg19Vs0zAdwRI9qiAYzym6TbaZqh4UItlBjYBN7fLffyFis9WEGzfrcovQ63tl8HNbHWD6fgCVIK188e3Ryf2d0cXb5r4tlcfY6S0n93mocduVeaAd8rg9LvjNqTkAXlQh1K34pYUCQbdIbFyquSFblsMxA3_4x2fSvzoiidnjCNtKStD8REt_rDsyTA-LFcBKyWsmz0DcEgBFhPx7ZB3pejGwykHkWuX0mk9k0nplYG1tlwd4Pk_uU92m6eWwNvAU0eoHCJFkQ06Lzt0-EJYEIM3H7lUHrA28uzMMUgqCBT-9zEuYrDxB2QGOKVbb2iLsSggVrHllgugbSfOKuvQzP-IjiwNae9wiX7yGQGGnLLZ0Pfu3r0-rxU7j1T-VFdQBTI7_ie1Rgo30td5A9AlEjT1Vax/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2r3.hasc300%2Fspbrowse.htm
>
>
>--
>This is clearly another case of too many mad scientists, and not enough
>hunchbacks.
>
>
>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

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

Re: Java no longer a free lunch

[Alan Young]

Phoenix SHARE session 23993 - Java Update has details on how it will not affect 
the mainframe and other details on how the mainframe JVM relates to OpenJ9. I 
think some of session's statements are somewhere on IBMs site but I am not 
recalling where at the moment.


From: Lizette Koehler 
Sent: Thursday, May 2, 2019 10:08
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Java no longer a free lunch

I was not sure how this will affect the Mainframe and JAVA 

But I found this 

https://www.aspera.com/en/blog/oracle-will-charge-for-java-starting-in-2019/ 


End of Public Updates for Oracle JDK 8 
Oracle will not post further updates of Java SE 8 to its public download sites 
for commercial use after January 2019. Customers who need continued access to 
critical bug fixes and security fixes as well as general maintenance for Java 
SE 
8 or previous versions can get long term support through Oracle Java SE 
Advanced 
Desktop, or Oracle Java SE Suite. For more information, and details on how to 
receive longer term support for Oracle JDK 8, please see the Oracle Java SE 
Support Roadmap. 


Oracle has announced that, effective January 2019, Java SE 8 public updates 
will 
no longer be available for "Business, Commercial or Production use" without a 
commercial license. 

Anyone know how this would affect the Mainframe? 

Thanks 




Lizette Koehler 
statistics: A precise and logical method for stating a half-truth inaccurately 

-- 
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 Working Storage size in Dump

[Alan Young]

You did not specify which compiler version or if the dump is from batch 
or CICS, but... This link is CICS orientated and was published in 2009, 
so it may not apply to the "newer" compilers:  
http://www-01.ibm.com/support/docview.wss?uid=swg27017236 . I think the 
key in either environment is to find the LE CAA. If the LE CAA is in the 
dump, slide 8 has the pointer links to the COBOL TGT and the offset to 
WS length.


Alan

Lizette Koehler wrote:

Yep, another question

Is there a way in a SVC Dump or SYSUDUMP to determine the size of the working
storage section?

My original issue looks to be caused by two things, 


 1)  The working storage size increased
 2)  There is one 24bit module linked with all the 31bit modules, thereby
forcing it below the line

Any guidance appreciated



Lizette Koehler
statistics: A precise and logical method for stating a half-truth inaccurately
  


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

Re: Are there compiler options to move Working Storage in Cobol above the line?

[Alan Young]

Also ask them to look at the file buffers.


If VSAM files are used, AMP='RMODE31=ALL' on each DD will move control blocks 
and buffers above the line.


Check to see that files are not excessively buffered or if the specified 
buffers can be reduced a bit to free storage.


On sequential DDs with low EXCP activity, try reducing buffers on those with 
something lower than the system default like BUFNO=1, 2 or 3.


Alan



From: "Savor, Thomas (Alpharetta)" 
Sent: Thursday, January 24, 2019 20:25
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Are there compiler options to move Working Storage in Cobol above 
the line?

DATA(31) - allocates working storage above-the-line 
DATA(24) - allocates working storage below-the-line 

ALL31 being OFF - is probably what is needed in a mixed  environment. 
ALL31 being ON - would say that you have no below-the-line programs for COBOL 
to deal with. 


Thanks, 

Tom Savor 
-Original Message- 
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler 
Sent: Thursday, January 24, 2019 9:42 PM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: Are there compiler options to move Working Storage in Cobol above 
the line? 

So when I look at the compiler options, they have DATA(31) 

ALL31 in LE is OFF 

Only things I can think of for now. 

Lizette 

-- 
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 program to supply web based client

[Alan Young]

If http is not a requirement, would the RSSERVER socket sample in the z/OS 
Communication Server be a starting point to roll their own?




If http is a requirement, https://www.z-mainframe.com/zbogor-tiny-web-server 
might be something to look into.




Another thought is to install Rocket's python port and try the SimpleHTTPserver 
or http.server modules (depending on the python version).







From: Brian Westerman 
Sent: Thursday, January 10, 2019 19:02
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: zos program to supply web based client

Hi, 

I have a "how can I do that" type of question.  This has probably been 
happening for a long time, but I have not had to deal with it before now.  I 
know that there are probably vendor written ways, but the programmers want to 
"roll their own method" if possible as the first choice.  Maybe I'm just too 
close to this and I am missing something simple. 

I know that IBM added the web enablement toolkit to provide the ability for 
applications under z/OS to access data that might be on some web server out in 
the net to get information or data, but is there a built-in way to do this in 
the other direction, getting the data from the mainframe directly back to the 
web based application?  For instance, if I'm running in a web application under 
windows and I need to know if some specific item was updated on z/OS and what 
it was updated to, is there a method or API that I can use to "ask" the 
mainframe to run a program that will do the check for me dynamically and pass 
me back the solution? 

The reason I ask is that we have a user group that moved "off" the mainframe 
but they want to be able to get a date and time from a file that is still on 
the mainframe.  That file is updated periodically within a completely unrelated 
mainframe application.  The entire file is huge (it's actually within an Adabas 
file) and they just want the two fields from one record, which needs to be 
processed by a specific program on the mainframe the would read the file, do 
the computations on the record and then pass the solution (which is basically 
just a date and time)  back to the windows server that the user is now running 
on who needs that piece of information. 

What would be the simplest or best way to accomplish that? 

Thanks for your help ahead of time. 

Brian 

-- 
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: Zowe?

[Alan Young]

The mainframe is the MMORPG and each CICS region is a different server instance.



From: "Schuffenhauer, Mark" 
Sent: Friday, January 4, 2019 14:41
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Zowe?

Depends on if they have server experience beyond Windows, then there can be a 
frame of reference.   Otherwise, I prefer to use an example based on playing 
multi-player console/PC games.   You can go local or remote, it doesn't matter, 
but how can one box have 4 people play at once?  How can the same game be 
played by 40 people across the world? 

Just slam your head against something hard, so you don't get into any detail 
and stick with concepts. 

-Original Message- 
From: IBM Mainframe Discussion List  On Behalf Of 
scott Ford 
Sent: Friday, January 04, 2019 3:13 PM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: Zowe? 

R.S., boy can I related to that..CICS is a foreign concept to PC people because 
of their experience and frame of reference. 

Scott 

On Fri, Jan 4, 2019 at 4:02 PM R.S.  wrote: 

> W dniu 2019-01-04 o 18:31, Phil Smith III pisze: 
> > A colleague asked me, "WTF really *is* Zowe?" and the only answer I 
> > had 
> was that I thought it was like z/OSMF, only more so (and ISTR that 
> it's even built on top of z/OSMF), and open source. 
> > [...] 
> 
> That remains me my troubles when I teach "Mainframe introduction" 
> classes - how to explain PC folks what is CICS? 
> ;-))) 
> 
> Regards 
> -- 
> Radoslaw Skorupka 
> Lodz, Poland 
> 
> 
> 
> 
> == 
> 
> Jeśli nie jesteś adresatem tej wiadomości: 
> 
> - powiadom nas o tym w mailu zwrotnym (dziękujemy!), 
> - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub 
> zapisałeś na dysku). 
> Wiadomość ta może zawierać chronione prawem informacje, które może 
> wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia 
> (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania, 
> narusza prawo i może podlegać karze. 
> 
> mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
> www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. 
> Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, 
> NIP: 
> 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 
> 01.01.2018 r. wynosi 169.248.488 złotych. 
> 
> If you are not the addressee of this message: 
> 
> - let us know by replying to this e-mail (thank you!), 
> - delete this message permanently (including all the copies which you 
> have printed out or saved). 
> This message may contain legally protected information, which may be 
> used exclusively by the addressee.Please be reminded that anyone who 
> disseminates (copies, distributes) this message or takes any similar 
> action, violates the law and may be penalised. 
> 
> mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 
> 00-950 Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court 
> for the Capital City of Warsaw, 12th Commercial Division of the 
> National Court Register, KRS 025237, NIP: 526-021-50-88. Fully 
> paid-up share capital amounting to PLN 169,248,488 as at 1 January 2018. 
> 
> -- 
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN 
> 
-- 
Scott Ford 
IDMWORKS 
z/OS Development 

-- 
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN 
DISCLAIMER: This email and any attachments may contain confidential information 
that is intended solely for use by the intended recipient(s). If you are not 
the intended recipient, you are strictly prohibited from disclosing, copying, 
distributing or using any of the information contained in the communication. If 
you received this email in error, please contact the sender by reply email and 
immediately delete the communication. 

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


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

Re: System level coding examples

[Alan Young]

I have the 2nd edition of the book. It does cover data and hiper spaces. They 
are in the Extended Addressibility section. If memory serves, data spaces were 
introduced in the 1990s with MVS/ESA 4.x or 5 and Hiperspaces were around 
before that.

The section on Inter Address Space Communications has information and examples 
for commuicating with SRBs or CMS.

The examples from the book's first edition are on the CBT tape file 069.

Alan

-Original Message-
>From: Charles Mills 
>Sent: Nov 17, 2018 2:57 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: System level coding examples
>
>1999, so not going to cover PC-ss, for example.
>
>https://www.wiley.com/legacy/compbooks/catalog/36176-3.htm 
>
>Or 64-bit, or relative jumps, or dataspaces, ...
>
>Charles
>
>
>-Original Message-
>From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
>Behalf Of Lizette Koehler
>Sent: Saturday, November 17, 2018 12:44 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: System level coding examples
>
>Just catching up on this thread.
>
>Has anyone looked to see if this book helps?
>
>
>Advanced Assembler Language and MVS Interfaces: For IBM Systems and 
>Application Programmers 2nd Edition
>by Carmine A. Cannatello (Author)

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

Re: SHARE St.Louis 2018 Proceedings Extraction Error - Solved!

[Alan Young]

Linux can extract the files from an .exe file using 7za command in the p7zip 
package. MacOSX can extract the files with the Keka application.



From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
Sent: Tuesday, October 2, 2018 10:16
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SHARE St.Louis 2018 Proceedings Extraction Error - Solved!

On Tue, 2 Oct 2018 17:05:19 +, Richards, Robert B. wrote: 

>Just wanted to let all of you know that the issue has been resolved. 
> 
>Instead of downloading a zip file, you now download an .exe file. That file 
>works great. 
> 
z/OS?  Linux?  MacOS?  Solaris? 

>Thanks to the SHARE folks for their prompt response. 
> 
If it's unbiased.  

-- 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: Zowe needs node.js, which you have to pay for on z/OS

[Alan Young]

There appears to be some confusion.

https://developer.ibm.com/node/sdk/ says

"Announcement: Deprecating the IBM SDK for Node.js in favour of the community 
SDKs

Now that AIX on Power, Linux on Power, and Linux on IBM Z are an integral part 
of the community build process – we are no longer producing a proprietary IBM 
SDK for these platforms, and instead can offer support for the community SDKs. 
Read more about this exciting development in this blog post.

Want to use Node.js on z/OS? You can try it for free, or purchase the full 
edition which includes IBM support, find out more here.

You can find downloads for Node.js on IBM platforms on the Node.js downloads 
page."

The first paragraph seems to indicate the part? of the product is being changed 
to a community supported product.

The second statement it says one can try it for free - not use it forever for 
free. The link it points to 
https://www.ibm.com/uk-en/marketplace/sdk-nodejs-compiler-zos  has button links 
for a 90 day trial or to contact for pricing.

The third statement points to a download page on nodejs.org which seems to have 
binaries for node.js for Linux on Power, Linux on System z and AIX on Power, 
but none for z/OS.

-Original Message-
>From: Timothy Sipples 
>Sent: Sep 10, 2018 12:52 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Zowe needs node.js, which you have to pay for on z/OS
>
>Yes, Zowe needs Node.js for z/OS. Node.js for z/OS is downloadable at no
>additional charge, and the Zowe documentation refers you directly to that
>downloadable release at:https://developer.ibm.com/node/sdk/ztp -- and not
>to anybody's sales representative.
>
>Zowe is in beta release, and it's not vendor supported yet. If you want and
>need to obtain a fully IBM supported release of Node.js for general
>purposes, great news: it's available. Yes, there's a charge for it, but
>it's a different proposition altogether.
>
>Zowe's commercial details haven't been announced or even all decided I
>suspect (no inside information here), but it's pretty obvious to me from
>the multi-party announcement that Zowe will eventually emerge in some
>fashion as ubiquitous on/with z/OS. Let's see how it all shakes out, but
>this particular commercial detail isn't something I worry about at all.
>There are all sorts of examples of runtime environments that are both
>provided at no additional charge for particular uses and available at
>additional charge (sometimes only for the vendor support) for general
>purpose use.
>
>
>Timothy Sipples
>IT Architect Executive, Industry Solutions, IBM Z & LinuxONE,
>Multi-Geography
>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: SUSE splits from Microfocus

[Alan Young]

And some have gone on to become Perspecta. It is a merger of Vencore, Keypoint 
and the USPS part of DXC.



From: Phil Smith III 
Sent: Friday, July 6, 2018 10:35
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SUSE splits from Microfocus

R.S. wrote: 

>What about EDS? 
>To my knowledge EDS was bought by HP before HP - HPE split and it was part 
of HPE. Is it now part of DXC? 



Right. All the (surviving) ex-EDS folks went to HPE and then to DXC. 


-- 
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: Using JCL Symbld and TYPRUN=SCAN

[Alan Young]

I have had to do the indirection described in this document to make it work.



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


Alan


From: Gadi Ben-Avi 
Sent: Tuesday, June 19, 2018 22:59
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Using JCL Symbld and TYPRUN=SCAN

Hi, 

I am trying to create a procedure that receives parameters and then uses the 
values as the input for some steps. 
This is part of the procedure. 
//DOALL PROC LVL4=LVL4,PART=PART 
// EXPORT SYMLIST=(LVL4,PART) 
// SET LVL4= 
// SET PART= 
//DEL  EXEC PGM=IDCAMS 
//SYSPRINT DD SYSOUT=* 
//X DD SYSOUT=X 
//SYSIN DD *,SYMBOLS=(JCLONLY,X) 
DELETE KVPO.MOST.DB2DATA. 
SET MAXCC = 0 
//DOALL PEND 

When I tried running this using 
//G110FT24 JOB (00),'GET',CLASS=X,MSGCLASS=X,PRTY=9, 
// NOTIFY= TYPRUN=SCAN 
// JCLLIB ORDER=(SYSG.DB2.UNLOAD) 
//D1 EXEC DOALL,LVL4=PKVS1073,PART=PART1 

The variables in the IDCAMS DELETE statement were not substituted. 
When I ran the job without TYPRUN=SCAN, the variables were substituted. 

Is there a way to have the variables get substituted, without actually running 
the job. 

This is running in z/OS v2.2 

Gadi 
? ?? ?    ?? ??? ??? ??  ? ??? ?? 
??. ?? ,  ?? ???  ?, ???   ? ?? ??? 
? ?? ?? ?. ? ?  ?? ?? ?? ??  ??  
??? ??? ???, ?/?? ?, ? ?? ? ? ? ? ?? ?? ? 
??? ?/?? ?? ?? ??. 

-- 
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: Rant of the Day - First World Problems

[Alan Young]

When IBM made the change they should have coordinated with Google to dump the 
current index of the site and initiate a reindex.


Still it was a bit abrupt to do this without warning. A couple of people have 
left comments on the new landing page requesting reinstatement of that 
version's KC.



From: Scott Fagen 
Sent: Tuesday, June 12, 2018 08:35
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Rant of the Day - First World Problems

Just figured I'd do the LISTSERV equivalent of primal scream therapy. 

One of the pleasures of Google is the ability to get help on almost anything 
IBM mainframe related by searching for something like: 

TSO REXX POS 

and you'd get back a pointer to the page in the online library to the POS 
function within the first five or so Google hits.  Given that the z/OS 2.1 doc 
has been out there for a very long time, almost all of the "hits" refer to the 
z/OS 2.1 knowledge center.  

IBM took down all these books in the last couple of days and now all of these 
hits have been turned to $hit: 

Documentation for z/OS V2.1.0 is no longer available in IBM Knowledge Center. 

While the product version and release remains in service, you can find 
information in the following formats: 
Individual PDFs for downloading: 
https://www.ibm.com/servers/resourcelink/svcoo100.nsf/pages/zosv2r1-pdf-download?OpenDocument
 
z/OS V2R1 Adobe Indexed Collection (all PDFs with full text search via the free 
Adobe Acrobat Reader): 
http://publibz.boulder.ibm.com/zoslib/pdf/zosv2r1pdfcollection.zip 
IBM Knowledge Center plugins for downloading (for use with IBM Knowledge Center 
for z/OS): http://publibz.boulder.ibm.com/zoslib/SSLTBW_2.1.0_4KC.jar. 
For information about current releases of this product see 
http://www.ibm.com/support/knowledgecenter/SSLTBW/welcome. 

More information and resources are available at the IBM z/OS Internet Library: 
https://www.ibm.com/servers/resourcelink/svcoo100.nsf/pages/zosinternetlibrary?opendocument.
 

Now, this isn't IBM's fault.  However, taking the same search to the z/OS 2.2 
KC main page gives nothing of value for someone looking for the POS (ironic, 
huh?) function (the search was TSO REXX POS): 

- The TSO command environment 
- Host command environments for z/OS UNIX processing 
- TSO commands, CLISTs, and REXX EXECs 
- Using TSO subcommands from a TSO CLIST or REXX exec 
- REXX ADDRESS TSO support requirements 

Here's Google's #1 hit (that's as far as you have to go) for TSO REXX POS: 

POS (Position) - IBM 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.../pos.htm 
POS (Position) z/OS TSO/E REXX Reference SA32-0972-00 ... (See also the INDEX 
and LASTPOS functions.) Returns 0 if needle is the null string or is not found 
... 

To curtail a possible rathole on this discussion, please don't suggest adding 
"z/OS 2.2" to the Google search.  It doesn't help.  The Googler simply returns 
a similar set of hits and says it couldn't find "2.2". 

POS (Position) - IBM 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2...ibm.zos.../pos.htm 
z/OS TSO/E REXX Reference ... returns the position of one string, needle, in 
another, haystack. (See also the INDEX and LASTPOS functions.) Returns 0 if ... 
Missing: 2.2 < weird for the most likely hit, no? 

I'd be glad to entertain suggestions on how to better negotiate Google (use 
Bing?) or make the IBM KC site return more intelligent results.  Whatever 
happened to Watson? 

Rant complete, 
Scott Fagen 
21st Century 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: SORTLIB DD

[Alan Young]

If the dataset is RECFM=F and the tape(s) statistics can be viewed in a 
tape management product, the record count can be approximated with the 
sum of the block counts of the tape(s) * the block size and then divided 
by the LRECL. It is an approximation as it is not known many records are 
actually in the last block. So it will be a slight over estimation, but 
reasonable one.


If the dataset is RECFM=V, the above formula may be workable. It depends 
on what the average LRECL is on the file. Knowing the data structure in 
the file helps. Depending on the data, the record count computed times 
four worked for the situations that we had. YMMV.


R.S. wrote:
You can try to ICEGENER whole input to DD DUMMY. It will take some 
time, but you will get exact number of records and bytes.

Then you'll be able to help DFSORT by using FILSZ with correct size.

Regarding SORTLIB DD - do you need it in *any* sort job, or just this 
one?

How the DFSORT was installed? Was it part of ServerPac?
BTW: I just read in documentation that SORTLIB is required when 
sortworks on tape are used.


Regards


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

Re: SORTLIB DD

[Alan Young]

Can the large file be split into two or more smaller files? One way to split is


https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.iceg200/ice2cg_Splitting.htm


Then sort the smaller files and merge the sorted files. Sort will only merge 
from two DDs at

a time. Depending on how many small files are created multiple merges or an 
application program will be needed if the process needs to merge all the sorted 
split files in one pass.


The merge process may be able to be done differently if the smaller files can 
be created with INCLUDE criteria to make each small file a unique group like 
year, subscriber number ranges, etc. If grouping can be done, you may be able 
to concatenate the files during the merge.


Alan


From: Jesse 1 Robinson 
Sent: Saturday, June 9, 2018 10:51
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: SORTLIB DD

In one failing job, we get   

ICE046A E SORT CAPACITY EXCEEDED - RECORD COUNT 41,235,203   
ICE046A E SORT CAPACITY EXCEEDED - RECORD COUNT 41,235,203 
ICE253I 0 RECORDS SORTED - PROCESSED: 41,235,203, EXPECTED: 310,580,760  <== 
note very high expectation  

As to how much DASD space is available, I have no idea. Not a storage guy.   
Virtual memory is whatever it is at z/OS 2.1.  
User tried tape sort but had the job cancelled after 24 hours. Unfortunately 
canceler apparently purged job as well, so nothing to look at.  
As for why specify SORTLIB DD: DFSORT requires it. Job will not run without it. 
 

. 
. 
J.O.Skip Robinson 
Southern California Edison Company 
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager 
323-715-0595 Mobile 
626-543-6132 Office ⇐=== NEW 
robin...@sce.com 


-Original Message- 
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of R.S. 
Sent: Friday, June 08, 2018 2:33 AM 
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: (External):Re: SORTLIB DD 

Let me ask again: 
What is the size of input data? 
How much space do you have for temp datasets? 
How much memory can the job use? 


BTW: While sortworks on tape can be justified in case of lack of DASD space, I 
still see no reason to specify SORTLIB DD. 

-- 
Radoslaw Skorupka 
Lodz, Poland 






W dniu 2018-06-07 o 20:14, Jesse 1 Robinson pisze: 
> Let me reiterate. The problem job tries to allocate more DASD work space than 
> *exists* on the system. SORTIN is on tape--multiple files. We have the 
> capability of putting more volumes online temporarily, but this is a major 
> PITA and requires intervention from the Storage boys. I'm hoping that tape 
> SORTWK will get the user over the occasional hump for this ad hoc 
> non-production job. It does not have to perform well. It just has to work. 
> 
> . 
> . 
> J.O.Skip Robinson 
> Southern California Edison Company 
> Electric Dragon Team Paddler 
> SHARE MVS Program Co-Manager 
> 323-715-0595 Mobile 
> 626-543-6132 Office ⇐=== NEW 
> robin...@sce.com 
> 
> 
> -Original Message- 
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On 
> Behalf Of R.S. 
> Sent: Thursday, June 07, 2018 2:49 AM 
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: (External):Re: SORTLIB DD 
> 
> Get rid of SORTLIB DD 
> Get rid of SORTWKnn DD 
> Use dynamic sortwork datasets, optionally set the number of datasets via 
> OPTION DYNALLOC Don't use tapes for sortwork 
> 
> BTW: 
> What is a size of input data? 
> How much space do you have for temp datasets? 
> How much memory can the job use? 
> 
> 
> My €0.02 
> 
> -- 
> Radoslaw Skorupka 
> Lodz, Poland 
> 
> 
> 
> 
> 
> 
> W dniu 2018-06-05 o 18:31, Jesse 1 Robinson pisze: 
>> We have a DFSORT job that wolfs down enormous amounts of SORTWK space. It 
>> has been exceeding the DASD capacity on the system where it runs, so we 
>> advised the user to point SORTWK to tape instead of DASD. Now it fails with 
>> 
>> IEC130I SORTLIB  DD STATEMENT MISSING 
>> IEF472I CIHM373 STEP010 CIHM373 - COMPLETION CODE - SYSTEM=000 USER=0063 
>> 
>> IBM doc indicates the need for SORTLIB with a 'tape sort'. We have no 
>> working example to share with the user. My question: what should DD SORTLIB 
>> point to? SMPE puts load modules into 
>> 
>> SYS1.SORTLIB 
>> SYS1.SICELINK 
>> 
>> Should the user specify only the first one or both? I hate to drag them into 
>> a sysprog guessing game. 
>> 
>> . 
>> . 
>> J.O.Skip Robinson 
>> Southern California Edison Company 
>> Electric Dragon Team Paddler 
>> SHARE MVS Program Co-Manager 
>> 323-715-0595 Mobile 
>> 626-543-6132 Office <= NEW 
>> robin...@sce.com 


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


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

Re: CLIP?

[Alan Young]

Edward Gould wrote:
Our big boss was trying to show the board how he tried to save money. They sort of forced him into getting STC (now STK) tape drives. All of a sudden some of our jobs were getting S237 (block count did not match trailers), STC said we had bum tapes, we went through all sort of shenanigans to prove they weren’t. I had to write a program that counted blocks and compare it the tapes count. The entire mess ended up with STC getting kicked out and IBM drives were brought back in. Of course never a S237 with a IBM drive. Our tape library while not super large it was large and finally management finally figured it out in order to get good people you had to hire/pay for them. 

  


I swear we went through the same thing! At my first job in the mid 80s, 
the shop had STC drives. We had to keep a log of tapes with "errors". 
And when we had a drive that took a machine check error on any tape, we 
had to dismount the tape and run it through a "cleaner". At the same 
time, we had to wipe down the interior of the drive with some awful 
cleaning chemical. All drives were cleaned before batch started too. We 
regularly took 2-3 drives out of service per night for the CE to 
"review" in the morning. Tapes were also held for "research". Some were 
claimed to have "gunk" on them from the drives or our "bad/cheap" tapes. 
Some tapes we would find right back in service the next day. Others we 
found the drives were putting an a crease in them somehow. Supposedly 
the CE was swapping controller cards and other parts too. After a couple 
of years, I got out of operations and into programming. I don't think 
they ever resolved it. The company was eventually bought by another 
company that was strictly IBM. I'll bet the STC drives ended up in a 
junk pile somewhere.


Alan

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

Re: JCL "diagramming"?

[Alan Young]

Oh that reminded me... if a site has CA-JCLCHECK, that can produce a flowchart 
using the GRAPH option. I don't know if the output is similar to JCLFLOW.


From: Mike Schwab 
Sent: Thursday, March 29, 2018 12:57
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: JCL "diagramming"?

CA (Computer Associates) still sells JCLFLOW. 

On Thu, Mar 29, 2018 at 12:36 PM, Edward Gould  wrote: 
>> On Mar 29, 2018, at 10:22 AM, John McKown  
>> wrote: 
>> 
>> This is a weird idea that is floating around in my head. I am wondering if 
>> there is any software which can create a "picture", "diagram", or 
>> "flowchart" of JCL? I'm not too sure if this is even a useful thought. It's 
>> just a scratch that I must itch (or something like that). 
>> 
>> What this may eventually morph into is a scheduling diagram showing our 
>> production job flow. 
>> 
>> -- 
>> I have a theory that it's impossible to prove anything, but I can't prove 
>> it. 
>> 
>> Maranatha! <>< 
>> John McKown 
> 
> John, 
> 
> There used to be (NO idea if it still exists) a product named JCLFLOW, For a 
> while (long ago albeit) it was required during production turnover. 
> The production support really liked it . 
> Not sure if it is still around. 
> 
> 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 


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

Re: JCL "diagramming"?

[Alan Young]

John McKown wrote:

​I forgot my usual disclaimer: This software must not cost any money. That
really limits my options.​

  


There is file 679 on the CBT tape that may be of use.

Alan

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

Re: VSAM usage for ancient disk models

[Alan Young]

-Original Message-
>From: Edward Gould <edgould1...@comcast.net>
>Sent: Jan 16, 2018 6:43 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: VSAM usage for ancient disk models
>
>> On Jan 16, 2018, at 5:06 PM, Alan Young <ayo...@teleport.com> wrote:
>> 
>> Not sure how far you want to go back, but take a look at MVS/DFP V3R3 Device 
>> Support Reference on 
>> http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library 
>> <http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library> . Section 4.9 
>> - VSAM Usage of Space for Selected Devices has 2305-2, 3330, 3340/3344, 
>> 3350, 3375, 3380, 3390 and 9345. The direct link to the section is 
>> http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGG3H101/4.9?DT=19930625100219
>>  
>> <http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGG3H101/4.9?DT=19930625100219>
>> 
>> Alan
>
>Alan:
>
>I honestly cannot remember MVS *EVER* supporting 3375’s  DOS/VSE and VM AFAIK 
>are the only OS’s. Can someone correct me please ?
>
>Ed

Ed,

Are you perhaps thinking of the 3370? Ed Thelen's product announcement archive 
for the 3370 indicates support on DOS/VSE and VM 370. The 3375 archived 
announcement indicates support by DOS/VSE, OS/VS1, VM370 and MVS and all 
programming support for it must use the S/370 Count Key Data command set.

http://www.ed-thelen.org/comp-hist/IBM-ProdAnn/index.html

Alan

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

Re: VSAM usage for ancient disk models

[Alan Young]

Not sure how far you want to go back, but take a look at MVS/DFP V3R3 Device 
Support Reference on 
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/library . Section 4.9 - 
VSAM Usage of Space for Selected Devices has 2305-2, 3330, 3340/3344, 3350, 
3375, 3380, 3390 and 9345. The direct link to the section is 
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGG3H101/4.9?DT=19930625100219

Alan

-Original Message-
>From: "R.S." 
>Sent: Jan 16, 2018 3:20 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: VSAM usage for ancient disk models
>
>I'm looking for tables "VSAM usage of space for selected devices", 
>however historical ones.
>Currently it's described in Appendix of DFSMS Macro Instructions for 
>Data Sets, but only three most current devive geometries are described 
>here - 3380, 3390 and 9345.
>I would like to have such tables for older devices, tried to googl on 
>bitsavers, with no luck.
>
>Any clue?
>
>
>-- 
>Radoslaw Skorupka
>Lodz, Poland
>
>
>
>
>==
>
>
>--
> Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
> przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być 
> jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś 
> adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej 
> przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, 
> rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie 
> zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, 
> prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale 
> usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub 
> zapisane na dysku.
>
> This e-mail may contain legally privileged information of the Bank and is 
> intended solely for business use of the addressee. This e-mail may only be 
> received by the addressee and may not be disclosed to any third parties. If 
> you are not the intended addressee of this e-mail or the employee authorized 
> to forward it to the addressee, be advised that any dissemination, copying, 
> distribution or any other similar activity is legally prohibited and may be 
> punishable. If you received this e-mail by mistake please advise the sender 
> immediately by using the reply facility in your e-mail software and delete 
> permanently this e-mail including any copies of it either printed or saved to 
> hard drive.
>
> mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
> www.mBank.pl, e-mail: kont...@mbank.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: Off topic - FTP client/server for android that supports the android SD card

[Alan Young]

Total Commander with the ftp plugin works for me on Android 4.4. 
However, you may be dealing with a version of Android where the external 
sdcard permissions were "locked down" by Google and/or the phone/tablet 
manufacturer. The application may need to be granted access to the 
sdcard or it has access to limited directories on the sdcard. It depends 
on the android version and manufacturer on how to achieve read and/or 
write access to the external card.


Binyamin Dissen wrote:

Everyone that I have tried does not give access to the SD card where the big
files are.

Any recommendations?

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

Director, Dissen Software, Bar & Grill - Israel


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

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

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

  


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

Re: fopen DD

[Alan Young]

Admittedly, I wrote it while not on the mainframe last night.  I went 
back and checked my JCL. I have successfully used it with the BPXBATCH 
PGM parm. You are correct the SH parm does not work.  The shell may be 
forking or doing something else.  Your example does work on zOS 2.1 with 
a PARM='PGM /bin/cp //DD:MYDD /dev/fd1'


Kirk Wolf wrote:

Have you tried your suggestion Alan?  (it doesn't work)

//BPXBATCH  JOB (),'WOLF',MSGCLASS=H,NOTIFY=,REGION=32M
//*
//SHELL   EXEC PGM=BPXBATCH,PARM='SH cp //DD:MYDD /dev/fd1'
//STDENV  DD *
_BPX_BATCH_SPAWN=YES
_BPX_SHAREAS=YES
//STDIN   DD DUMMY
//STDOUT  DD SYSOUT=*
//STDERR  DD SYSOUT=*
//MYDDDD DISP=SHR,DSN=SYS1.MACLIB(ACB)
//
cp: FSUM6258 cannot open file "//DD:MYDD": EDC5037I The specified ddname
was not found.

You can use BPXBATSL, but you can't run a login shell with it unless you
are root.   So you don't get the system or your login profile run.
But if you can live with that, then this works:

//BPXBATSL  JOB (),'WOLF',MSGCLASS=H,NOTIFY=,REGION=32M
//*
//SHELL   EXEC PGM=BPXBATSL,PARM='PGM /bin/cp //DD:MYDD /dev/fd1'
//STDENV  DD *
_BPX_BATCH_SPAWN=YES
_BPX_SHAREAS=YES
//STDIN   DD DUMMY
//STDOUT  DD SYSOUT=*
//STDERR  DD SYSOUT=*
//MYDDDD DISP=SHR,DSN=SYS1.MACLIB(ACB)
//

Years ago, the mvs-oe forum was about 75% BPXBATCH issues; you might want
to check the archives.

You might want to try COZBATCH, which is a little utility that was designed
to work like a reasonable person would expect:
https://dovetail.com/products/cozbatch.html

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

On Thu, Oct 12, 2017 at 8:19 PM, Alan Young <ayo...@teleport.com> wrote:

  

Try changing the STDENV DD to

//STDENV DD *
_BPX_BATCH_SPAWN=YES
_BPX_SHAREAS=YES
/*

The variables are discussed in https://www.ibm.com/support/
knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxa400/bpxug240.htm

-Original Message-


From: Frank Swarbrick <frank.swarbr...@outlook.com>
Sent: Oct 12, 2017 5:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: fopen DD

I am playing with the Swift for z/OS beta.  Swift itself supports little
  

in the way of I/O, and instead depends on the underlying C runtime.  Below
is a small program that opens a file, reads 4 bytes in to a buffer and
writes out the results as an integer.


import Libc

func fwx(file filename: String, access: String) {
   if let fwf = fopen(filename, access) {
   defer { fclose(fwf) }
   let buffer = UnsafeMutablePointer.allocate(capacity: 1)
   defer { buffer.deallocate(capacity: 1) }
   let _ = fread(buffer, MemoryLayout.size, 1, fwf)
   print("from \(filename): \(buffer.pointee)")
   }
   else {
   print("error opening file \(filename): \(errno)")
   }
}

fwx(file: "/u/dvfjs/fw.bin", access: "rb")
fwx(file: "//'DVFJS.FW'", access: "rb")
fwx(file: "dd:FW", access: "rb")

The last three statements are the "mainline" of the program.  For the
  

first one the file is a Unix file.  For the second one its a VSAM ESDS
called 'DVFJS.FW'.  Both of these work.  I can't figure out how to specify
a DD reference to make that last one work.  I've tried both using "dd:FW"
and "//dd:FW".  Is it perhaps a problem with the DD itself?  When running
it under BPXBATCH I am specifying the FW DD like I would for any other
batch job:


//SHELL  JOB NOTIFY=,REGION=2000M
//UNIXSH  EXEC PGM=BPXBATCH,PARMDD=PARMSIN
//FW  DD DISP=SHR,DSN=DVFJS.FW
//PARMSIN DD *
SH /u/dvfjs/src/fw
/*
//STDIN   DD DUMMY
//STDOUT  DD SYSOUT=*
//STDERR  DD SYSOUT=*
//STDENV  DD DUMMY
//

Does the Unix environment for BPXBATCH not have access to the JCL DD?

We don't have a license for the C compiler, so I've never used C for z/OS.

Frank

  


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

Re: fopen DD

[Alan Young]

Try changing the STDENV DD to 

//STDENV DD *
_BPX_BATCH_SPAWN=YES
_BPX_SHAREAS=YES
/*

The variables are discussed in 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxa400/bpxug240.htm

-Original Message-
>From: Frank Swarbrick 
>Sent: Oct 12, 2017 5:17 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: fopen DD
>
>I am playing with the Swift for z/OS beta.  Swift itself supports little in 
>the way of I/O, and instead depends on the underlying C runtime.  Below is a 
>small program that opens a file, reads 4 bytes in to a buffer and writes out 
>the results as an integer.
>
>import Libc
>
>func fwx(file filename: String, access: String) {
>if let fwf = fopen(filename, access) {
>defer { fclose(fwf) }
>let buffer = UnsafeMutablePointer.allocate(capacity: 1)
>defer { buffer.deallocate(capacity: 1) }
>let _ = fread(buffer, MemoryLayout.size, 1, fwf)
>print("from \(filename): \(buffer.pointee)")
>}
>else {
>print("error opening file \(filename): \(errno)")
>}
>}
>
>fwx(file: "/u/dvfjs/fw.bin", access: "rb")
>fwx(file: "//'DVFJS.FW'", access: "rb")
>fwx(file: "dd:FW", access: "rb")
>
>The last three statements are the "mainline" of the program.  For the first 
>one the file is a Unix file.  For the second one its a VSAM ESDS called 
>'DVFJS.FW'.  Both of these work.  I can't figure out how to specify a DD 
>reference to make that last one work.  I've tried both using "dd:FW" and 
>"//dd:FW".  Is it perhaps a problem with the DD itself?  When running it under 
>BPXBATCH I am specifying the FW DD like I would for any other batch job:
>
>//SHELL  JOB NOTIFY=,REGION=2000M
>//UNIXSH  EXEC PGM=BPXBATCH,PARMDD=PARMSIN
>//FW  DD DISP=SHR,DSN=DVFJS.FW
>//PARMSIN DD *
>SH /u/dvfjs/src/fw
>/*
>//STDIN   DD DUMMY
>//STDOUT  DD SYSOUT=*
>//STDERR  DD SYSOUT=*
>//STDENV  DD DUMMY
>//
>
>Does the Unix environment for BPXBATCH not have access to the JCL DD?
>
>We don't have a license for the C compiler, so I've never used C for z/OS.
>
>Frank
>

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

Re: REXX and SDSF question (expanded API question)

[Alan Young]

Take a look at 
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.isfa500/rexx.htm


Peter Ten Eyck wrote:

Can someone point me to some documentation (coding examples) on how to use the 
SDSF API in REXX? I have my REXX/SDSF exec working, but it runs slow issuing 
those commands. I would like to try a different approach.


  


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

Re: re-Initialize different types of VSAM files

[Alan Young]

I guess you want to keep the dataset(s) on the same physical volumes.

For the KSDS VSAM file, try ALTERing the dataset with REUSE and then 
open the dataset as output. I am not sure it will work on a Linear VSAM 
file, but you can try it.


Donald Likens wrote:

This is for MQ but really not related. MQ has a number of VSAM files. I need to 
make these files empty for an upgrade so I can reformat them. I want to do this 
without deleting and reallocating them. These are linear and KSDS VSAM files. I 
tried allocating a new Linear VSAM file and REPROing it over... Did not work. I 
tried reproing an empty non-vsam file over... It did not work.

I don't have a utility that will edit VSAM anyhow some are very big.


  


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

Re: JCL to get a report of large datasets

[Alan Young]

Ron Thomas wrote:

Hi . Is there using utility job  where i can use it pull all datasets  that 
occupy huge space . Let me know how i can go ahead and do it .?

Regards
Ron T

  


Run ISMF (Naviquest) in ISPF batch mode. In the same step, run ACBQBAI2 
to gather data and then ACBQBAR1 to create a report. See 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idas200/s2137.htm 
and 
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idas200/smsr.htm 
for examples and JCL.


Alan

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

Re: PIC Z is for zero suppression was Re: A slight regression

[Alan Young]

Clark Morris wrote:

[Default] On 30 May 2017 12:35:46 -0700, in bit.listserv.ibm-main
peter.far...@broadridge.com (Farley, Peter x23353) wrote:

  


COBOL does have PICTURE usage type "Z" for zero-terminated strings, so you don't have to 
use the STRING verb to construct constant strings with a zero-byte terminator to call C modules.  I 
haven't experimented with moving "normal" COBOL strings (PIC X) to a PIC Z variable, so I 
do not know if that would work properly.



Picture type Z is for zero suppression so in a PIC Z, if 0 is
moved to it the result is 5 blanks, if 01234 is moved the result is
blank1234 and if 12345 is moved the result is 12345.  I don't know oof
anyway to specify a zero terminated field.


  


I believe the reference is to the Z literal constant specification. I 
think it may be an IBM extension.


MOVE Z'NULL TERMED STRING' TO WS-STRING

Moves "NULL TERMED STRING*" (where * is a x'00' byte) to WS-STRING.

05 ANOTHER-NULL-TERM-STRING  PIC X(05) VALUE Z'NULL'.

Sets the storage to "NULL*'.

Alan

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

Re: Data/hiperspaces (was: ... 4G bar?)

[Alan Young]

John McKown wrote:

​IMO, what they mean is that there is not any syntactical language element
which encompasses the hiperspace API at a native language level. Example,
COBOL has a SORT verb which directly implements a language interface to the
"sort" function. As opposed to doing a CALL 'ICEMAIN' in order to interface
to a sort routine.
  


The C library runtime provides an I/O interface to treat hiperspace 
memory as a file. The hiperspace is created with the fopen() function 
and a type parameter.


type=memory(hiperspace)

 If you are using MVS/ESA, you can specify the HIPERSPACE suboption to 
open a hiperspace memory file.


 Restriction: For AMODE 64 applications, type=memory(hiperspace) is 
treated as type=memory.


fread(), fwrite(), fclose(), clrmemf() etc. support it. And the routines 
are callable from COBOL.


Alan

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

Re: Calling bpxwdyn from CA-Easytrieve

[Alan Young]

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


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

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

JOB INPUT (NULL)

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

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

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

STOP.

Alan

Hardee, Chuck wrote:

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

A wrapper is going to be needed.


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

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

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


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

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


 WORKING-STORAGE SECTION.

 01  WORKAREA.

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

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

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

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

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

 10  PIC  X(01) VALUE SPACE.

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

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

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

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


 PROCEDURE DIVISION.

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

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

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

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

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

 GOBACK.

Alan

Farley, Peter x23353 wrote:
  

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

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

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Hardee, Chuck
Sent: Tuesday

Re: Calling bpxwdyn from CA-Easytrieve

[Alan Young]

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


WORKING-STORAGE SECTION.

01  WORKAREA.

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

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

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

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

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

10  PIC  X(01) VALUE SPACE.

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

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

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

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


PROCEDURE DIVISION.

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

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

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

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

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

GOBACK.

Alan

Farley, Peter x23353 wrote:

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

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

Peter

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

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

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

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

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

I have built the "command" string as follows:

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

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

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

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

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

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

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

Thanks,
Chuck


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

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

WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, 

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

[Alan Young]

Is the data going to be stored in a standalone file? If so and the storage 
filesystem is NTFS, have them turn on NTFS file and folder compression for that 
folder or just the datasets. It is built in to Windows and will transparently 
compress the whole dataset and not just blank space fields. If it is 
linux/unix, there are few filesystems that support file compression as well.

Is the data going to be stored in a database - mariadb/mysql, DB2, etc. ? Many 
database products have data compression that can be used and is transparent to 
application and will be a better choice.


-Original Message-
>From: John McKown 
>Sent: Dec 15, 2016 8:25 AM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: how to: convince programmer something else is better.
>
>I'm having a bit of a problem convincing a COBOL programmer to "not do"
>something because, IMO, there is a better way. However, it almost seems
>like he is not hearing me.
>
>Some background. We have an in-house written RLE blank compression routine
>which we use for some selected data sets. These data sets are known to have
>large sequences of blanks in the records. We have used this program for
>over 25 years (it was here when I came here). So this predates SMS
>compression by a couple of decades. It was also used because, back in that
>day, VSAM KSDS data sets were limited to 2 GiB. Oh, the program is written
>in HLASM.
>
>Well, we are getting off of z/OS to Wintel. Regardless of cost and time.
>"So let it be written. So let it be done!" As part of this, we will need to
>uncompress the data and transfer it to Windows. There are no problems with
>that (other than screams from the SAN people about the size of the
>resultant files). Part of this is using MicroFocus COBOL to do some of the
>work (i..e port the COBOL programs to Windows). The aforementioned
>programmer wants a COBOL version of the HLASM compression and decompression
>routines. In fact, he has written the decompression routine. He wants me to
>write a COBOL version of the compression routine. Which I am working on.
>This is being done "just in case" they are needed (i.e. the SAN people
>scream long & hard enough about space issues). However, MicroFocus supplies
>3 different compression routines which can be called from COBOL. What I'm
>trying to convince the programmer to do is write the Wintel COBOL versions
>of the compression routines to take the same parameters as they have
>historically, but to call the MIcroFocus routines within them to do the
>actual compression and decompression. But, again, it is like he is just not
>hearing me.
>
>Do any of the COBOL programmers out there have any idea how I can phrase
>this information so that it makes better sense to him? I.e. convince him
>that using the vendor compression routines, via a compatible interface
>routine, is the way to go?
>
>-- 
>Heisenberg may have been here.
>
>http://xkcd.com/1770/
>
>Maranatha! <><
>John McKown

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

Re: DDs in USS?

[Alan Young]

Paul Gilmartin wrote:

When I am in a shell, and the only way I can think of to do a RECEIVE is
to stuff JCL down an INTRDR with an IKJEFT01 step that invokes a Rexx
EXEC to queue a response to the RECEIVE prompt, it hurts as if I've
run into a wall.  But you'll excuse it if you can call RECEIVE not an
"'MVS Classic' service".  As I said, I'd welcome a tested alternative.
  


This works for me from a interactive shell prompt on z/OS 2.1.
I sent myself a PDS member using XMIT. Then in the shell I do:

> tso -o receive

(screen clears)

INMR901I Dataset MY.JCL from xx on SYSTEMA

INMR902I Members: HELLO

INMR906A Enter restore parameters or 'DELETE' or 'END'

da(test.receive.hello) unit(3390)   < I typed this and hit enter

INMR001I Restore successful to dataset 'TEST.RECEIVE.HELLO'

INMR900I 

INMR000I No more files remain for the receive command to process.

*** (prompt at the bottom of the screen)  <--- hit enter

>

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

Re: Envionment variables?

[Alan Young]

Paul Gilmartin wrote:

On Fri, 2 Dec 2016 17:10:27 -0600, John McKown wrote:

  

On Fri, Dec 2, 2016 at 4:57 PM, Paul Gilmartin  wrote:



I have, for example an EXEC/Macro that invokes "pax -v" to display a detailed
directory of a pax.Z archive.  Invoked from a shell, it displays contents with
local time; from ISPF DSLIST, UTC.  If TZ were available it would work alike
in both environments.

  

​You're a UNIX person, Gil. Have you tried:

CALL BPXWUNIX("TZ=CST6CD6 pax -v ...", ...)



No!  Would you advise a UNIX person to preface every shell command entered from
the command line with TZ=...?  Much worse, to embed it in scripts I share with 
my
co-workers in Australia?

I'm sure it would work, but not the answer I'm looking for.

Thanks,
gil
  
Are you starting TSO with the tso or tsocmd shell commands or by some 
other means? If you are using the shell command, maybe you can (ab)use 
the TSOALLOC allocation option to allocate a CEEOPTS DD that points to a 
file/dataset with the statements and see if it is honored.


Alan

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

Re: Reading the Command Table

[Alan Young]

The ISPVCALL debug command displays the active command tables (along 
with a bunch of other ISPF information) for the user. It writes the 
information to a dataset and by default it will display the file in a 
edit session when the trace is ended. The edit display can be suppressed 
by specifying the END parm with the trace stop. Here is an example


/*REXX*/
address TSO 'ISPVCALL'  / * start trace */
address TSO 'ISPVCALL END' /* stop trace without display */
exit

Alan

Brenton, Ren wrote:

We have a COMMAND TABLE (MADCMDS), with entries like this:

 Verb   T Action   
  IPTOOLS   0  SELECT CMD(%AAA ) 
  IPLIST0  SELECT CMD(%BB ) 
  ITAUTO0  SELECT CMD(% ) 
  ITCK  0  SELECT CMD(%DDD )   


Is there any way to get this list into a dataset that I can edit/view?

I’m trying to come up with a list of commands that can be invoked from this 
Command Table, (or any other of our command tables as well), to be used in 
another process (a REXX solution would be terrific).

TIA

Ren Brenton
MSP Home Equity 
Black Knight Financial Services
601 Riverside Ave., 
Jacksonville, FL 32204

__
O: 904.357.1448 | M: 404.438.3868 | F: 904.357.1807
ren.bren...@bkfs.com || www.BKFS.com
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.
  


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

Re: curl is Rocket science.

[Alan Young]

Well, on linux/unix a command line of curl -O  downloads a file or page in 
binary mode.

What curl command line are you issuing?

-Original Message-
>From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
>Sent: Oct 28, 2016 6:05 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: curl is Rocket science.
>
>Trying to use curl:
>
>user@OS/390.25.00: ls -lTHE /team/rocket/cURL/bin/curl 
>  
>- untaggedT=off -rwxr-xr-x  --s-    1 OMVSKERN SYS1 17735680 Feb 
>11  2016 /team/rocket/cURL/bin/curl
>
>user@OS/390.25.00: /team/rocket/cURL/bin/curl --version
>  
>curl 7.42.1 (i370-ibm-openedition) libcurl/7.42.1 OpenSSL/1.0.2c zlib/1.2.8 
>iconv libssh2/1.4.3 nghttp2/1.0.1
>Protocols: dict file ftp ftps gopher http https imap imaps pop3 pop3s rtsp scp 
>sftp smb smbs smtp smtps telnet tftp 
>Features: IPv6 Largefile NTLM NTLM_WB SSL libz CharConv TLS-SRP HTTP2 
>UnixSockets Metalink 
>
>... to download an IBM fixtest, I got junk:
>user@OS/390.25.00: cat AA51501.HIF7P02 | od -tx1 | head  
>00EF  EF  85  AB  85  8D  EB  85  85  77  C9  77  2C  C9  B8  4F
>
>... but with *two* successive EBCDIC-to-ASCII translations, success:
>user@OS/390.25.00: cat AA51501.HIF7P02 | e2a | e2a | od -tx1 | head
>004E  4E  C1  D7  C1  D9  4D  C1  C1  F5  F1  F5  F0  F1  5D  40
>  +   +   A   P   A   R   (   A   A   5   1   5   0   1   )
>
>WTF!?  Surely this isn't working as designed.
>
>I hate EBCDIC!
>
>-- gil
>:q!

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

Re: RFE 73512 - "Better use of ISPF screen names in SDSF"

[Alan Young]

Robert Prins wrote:


To those unfamiliar with the concept of SHADOW variables, a copy of 
Doug Nadel's Share Winter 1999 paper "ISPF Panels Beyond the Basics" 
can be found at this ridiculously long and wrapping URL 
 






A shorter and more sensible URL that links to that document and has a 
collection of useful documents on ISPF and z/OS related topics is 
https://sites.google.com/site/schlabb/home/hints-tips/ispf .


Alan

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

Re: k4t4949b (September 2016 refresh of the z/OS 2.2 manuals)

[Alan Young]

Paul Gilmartin wrote:


Thanks for your quick action.  A few thoughts:

o "Admits" is a slightly biased word.  7-Zip is not the problem.  By experiment 
(a
  scientific sample of one test case) it works fine if one chooses the right 
options.

  


This is correct. 7zip is not the problem. The problem is the end user's 
unzip application. The zip specification has been extended over time to 
support additional compression methods. See 
https://support.pkware.com/display/PKZIP/APPNOTE and 
https://pkware.cachefly.net/webdocs/casestudies/APPNOTE.TXT.  Section 
4.4.3.2 has a quick summary of the feature versions. The current PKzip 
program will unzip the doc file created by 7zip. There is also a free 
windows PKunzip client that will unzip it. Winzip 18 will not unzip it. 
YMMV.


Alan

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

Re: Verify record cound against the file trailer [by SORT?]

[Alan Young]

Hi Peter,

The fine print in Syncsort documentation states NULLOFL only applies to 
non-SORTOUT OUTFIL statements. If I change the DD of SORTOUT to OUT1 and 
add a FNAMES=OUT1 parameter to the OUTFIL statement then I get a CC 4 
from Sri's example. I have not looked at DFSORT documentation in a while 
but I imagine it does not have this "condition" that Syncsort has that 
is making it incompatible.


Alan

Farley, Peter x23353 wrote:

Hi Sri,

I am a colleague of Victor's, and the initial problem was not stated quite 
correctly.  The input file is RECFM=VB, and the trailer record is identified by 
X'FF' in the first data position.  The record count to be checked in the 
trailer record is at positions 145-155 (11 digits, ZD).  The count in the 
trailer record does not include either the header record (X'00' in the first 
position) nor the trailer record, so the count in the trailer record should be 
the actual record count minus 2.  The desired result is to check the trailer 
count versus the actual data record count and set RC=4  if they do not agree.

Unfortunately we do not actually have access to DFSORT any more, only Syncsort. 
 May I ask you to please verify for me that if we were using DFSORT that the 
control cards below would do what we wish?  If so then I can go to our Systems 
Programmers to open a ticket with Syncsort for assistance in verifying the 
operation of NULLOFL=RC4 in their product.

When I use these control cards with Syncsort, the output file is null (has no 
records) but Syncsort is not setting RC=4, so I will go to them for support if 
the control cards I am using should give RC=4.

  OPTION COPY  
* ADD SEQNUM BETWEEN RDW AND DATA. 
  INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:SEQNUM,11,ZD,16:5)),
* USE SEQNUM-2 TO PUT COUNT OF DATA RECORDS IN  POS 20 OF   
* LAST RECORD (IDENTIFIED BY X'FF').   
  IFTHEN=(WHEN=(16,1,BI,EQ,X'FF'), 
 OVERLAY=(020:5,11,ZD,SUB,+2,M11,LENGTH=11))   
  OUTFIL NULLOFL=RC4,  
  INCLUDE=(016,1,BI,EQ,X'FF',AND,  
   (160,11,ZD,EQ,20,11,ZD)),   
 BUILD=(1,4,5:5)   


Thank you for your generous and expert assistance on this forum.

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Sri h Kolusu
Sent: Monday, June 27, 2016 3:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Verify record cound against the file trailer [by SORT?]

Victor Gil,

It is quite simple to verify the number of records and validate it against 
the trailer record and if the record count match the return code is 0 and 
if the count is off then the return code is set to 4.


I assumed that the trailer record is not counted as part of the record 
count. If it is indeed counted then simply remove the ",START=0" on the 
INREC statement.


Use the following JCL

//STEP0100 EXEC PGM=SORT 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD * 
A 
B 
C 
D 
RECS=5 
//SORTOUT  DD SYSOUT=* 
//SYSINDD * 
  OPTION COPY 
  INREC OVERLAY=(81:SEQNUM,5,ZD,START=0) 

  OUTFIL NULLOFL=RC4, 
  INCLUDE=(1,5,CH,EQ,C'RECS=',AND, 
   (06,5,ZD,EQ,81,5,ZD)) 
//* 

The above job will end with RC=4 as there are only 4 records but the 
trailer says 5 records.


Further if you have any questions please let me know

--

  


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

Re: Microprocessor Optimization Primer

[Alan Young]

David Crayford wrote:
How do I find out how much time is spent in JIT overhead compared to 
actual processing? What tools do you use to profile your JVM apps?




Last year I looked into JinsightLive for IBM System z and the IBM Health 
Center for Java for an cpu and runtime increase a client was having. 
However, I did not get very far with them as the client figured out the 
processing spike they were having was due to a over accumulation of data 
that made the java step run long.


Alan

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

Re: EXTERNAL: Re: IBM z/OS Product Documentation 2016

[Alan Young]

I think there was a SHARE presentation done explaining how to download 
all of the PDFs at once, but I agree it needs to be better documented by 
IBM on their website.


Here's how to get a zip of all the PDFs for an z/OS release.
Go to the IBM Publications Center at 
http://www.ibm.com/shop/publications/order

Choose your country
Then enter this as a search argument: z/OS Collection
If you want a specific release, enter the version like this: z/OS V2R1 
Collection


Alan

Eosze, Jonathan L. wrote:

Agreed. When DVDs were available at conferences, we could easily copy it to a shared LAN 
drive, but now, manually clicking "save as" on 300+ PDFs (several products) is 
quite a pain.

Jonathan Eosze | Sr Computer Sys Engr | IT Operations
Mainframe Management 1 (IMS), Information Technology, USAA

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Munish Sharma
Sent: Friday, March 25, 2016 1:39 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: EXTERNAL: Re: IBM z/OS Product Documentation 2016

Please enable download all for complete z/OS versions
e.g. z/OS 2.1 --->> donwload all
2. Bring back bookshelf with download all as well.
Believe me.. it helps alot

  


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

Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do you use

[Alan Young]

The reason I asked about the X3270 version is that there are some 
IBM-DYNAMIC bugs have been fixed over time. What error message is TSO 
issuing? Does logging on with a LOGMODE of D4C32XX3 make any difference?


Alan

Martin Packer wrote:
(My) RHEL has an ancient X3270 but X3270 is happy with it. It's my TSO 
logon that isn't.


Cheers, Martin

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

+44-7802-245-584

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

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




From:   Alan Young <ayo...@teleport.com>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 21:04
Subject:Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do 
you use

Sent by:IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>



Ah, yeah, sorry about that parameter flip. Which version of X3270 is in 
use? It works for me with 3.4ga10.


Alan

Martin Packer wrote:
  

Thanks. But -oversize 132x43 (not order) got rejection from TSO.

Cheers, Martin

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

+44-7802-245-584

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

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




From:   Alan Young <ayo...@teleport.com>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 20:07
Subject:Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do 
you use

Sent by:IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>



Try adding the -oversize option as -oversize 43x132.

Alan

Martin Packer wrote:


Yes. And it gives invidious choices:   43 x 80 and 32 x 132.  You can 
guess I'd want 43 x 132. :-)


Cheers, Martin

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

+44-7802-245-584

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

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




From:   "Dyck, Lionel B. (TRA)" <lionel.d...@va.gov>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 17:04
Subject:Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do 
  


  

you use
Sent by:IBM Mainframe Discussion List 
  

<IBM-MAIN@LISTSERV.UA.EDU>
  


Isn't there a -model option something like:

-model n

Where n is 2 for mod 2, 3 for mod 3, etc.

I don't have access to x3270 right now but that is what I seem to 

  

recall.



--
  

Lionel B. Dyck (Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)

VA OI Service Delivery & Engineering
Office: 512-326-6173
Cell: 925-348-0237


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


Behalf Of Martin Packer
Sent: Thursday, March 10, 2016 10:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do you use

Maybe I'm being thick here but with X3270 I think I'm stuck at 32 x 80 
  
- 
  

and not because of the emulator but because I don't know how to get the 
  


  

z/OS TSO/ISPF environment I'm using to take advantage of more.

Cheers, Martin

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


+44-7802-245-584

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

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




From:   "R.S." <r.skoru...@bremultibank.com.pl>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 16:23
Subject:Re: [SURVEY] What ISPF terminal model do you use
Sent by:IBM Mainframe Discussion List 
  

<IBM-MAIN@LISTSERV.UA.EDU>
  


24x80

Yes, I have colour monitor, flat one, actually two of them, 27" each.
And still the most popular (3270) screen resolution I use is 24x80.
Atavism ;-)
I also use 43x80 and rarely 24x132 or 42x132.

BTW: I wish I would have any resolution *I want* and my application 

  
simply 


supported it. That wasn't case at least for ControlM panels ("illegal" 
resolutions caused abend).


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

Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do you use

[Alan Young]

Ah, yeah, sorry about that parameter flip. Which version of X3270 is in 
use? It works for me with 3.4ga10.


Alan

Martin Packer wrote:

Thanks. But -oversize 132x43 (not order) got rejection from TSO.

Cheers, Martin

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

+44-7802-245-584

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

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




From:   Alan Young <ayo...@teleport.com>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 20:07
Subject:Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do 
you use

Sent by:IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>



Try adding the -oversize option as -oversize 43x132.

Alan

Martin Packer wrote:
  
Yes. And it gives invidious choices:   43 x 80 and 32 x 132.  You can 
guess I'd want 43 x 132. :-)


Cheers, Martin

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

+44-7802-245-584

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

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




From:   "Dyck, Lionel B. (TRA)" <lionel.d...@va.gov>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 17:04
Subject:Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do 
you use

Sent by:IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>



Isn't there a -model option something like:

-model n

Where n is 2 for mod 2, 3 for mod 3, etc.

I don't have access to x3270 right now but that is what I seem to 


recall.
  


--
  

Lionel B. Dyck (Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)

VA OI Service Delivery & Engineering
Office: 512-326-6173
Cell: 925-348-0237


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



  

Behalf Of Martin Packer
Sent: Thursday, March 10, 2016 10:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do you use

Maybe I'm being thick here but with X3270 I think I'm stuck at 32 x 80 - 



  
and not because of the emulator but because I don't know how to get the 
z/OS TSO/ISPF environment I'm using to take advantage of more.


Cheers, Martin

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


+44-7802-245-584

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

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




From:   "R.S." <r.skoru...@bremultibank.com.pl>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 16:23
Subject:Re: [SURVEY] What ISPF terminal model do you use
Sent by:IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>



24x80

Yes, I have colour monitor, flat one, actually two of them, 27" each.
And still the most popular (3270) screen resolution I use is 24x80.
Atavism ;-)
I also use 43x80 and rarely 24x132 or 42x132.

BTW: I wish I would have any resolution *I want* and my application 

simply 
  
supported it. That wasn't case at least for ControlM panels ("illegal" 
resolutions caused abend).


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

Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do you use

[Alan Young]

Try adding the -oversize option as -oversize 43x132.

Alan

Martin Packer wrote:
Yes. And it gives invidious choices:   43 x 80 and 32 x 132.  You can 
guess I'd want 43 x 132. :-)


Cheers, Martin

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

+44-7802-245-584

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

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




From:   "Dyck, Lionel B. (TRA)" 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 17:04
Subject:Re: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do 
you use

Sent by:IBM Mainframe Discussion List 



Isn't there a -model option something like:

-model n

Where n is 2 for mod 2, 3 for mod 3, etc.

I don't have access to x3270 right now but that is what I seem to recall.

--
Lionel B. Dyck (Contractor)
Mainframe Systems Programmer 
Enterprise Infrastructure Support (Station 200) (005OP6.3.10)

VA OI Service Delivery & Engineering
Office: 512-326-6173
Cell: 925-348-0237


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

Sent: Thursday, March 10, 2016 10:49 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: [SURVEY] What ISPF terminal model do you use

Maybe I'm being thick here but with X3270 I think I'm stuck at 32 x 80 - 
and not because of the emulator but because I don't know how to get the 
z/OS TSO/ISPF environment I'm using to take advantage of more.


Cheers, Martin

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


+44-7802-245-584

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

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




From:   "R.S." 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   10/03/2016 16:23
Subject:Re: [SURVEY] What ISPF terminal model do you use
Sent by:IBM Mainframe Discussion List 



24x80

Yes, I have colour monitor, flat one, actually two of them, 27" each.
And still the most popular (3270) screen resolution I use is 24x80.
Atavism ;-)
I also use 43x80 and rarely 24x132 or 42x132.

BTW: I wish I would have any resolution *I want* and my application simply 
supported it. That wasn't case at least for ControlM panels ("illegal" 
resolutions caused abend).


--
Radoslaw Skorupka
Lodz, Poland






---
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być 
jedynie jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś 

adresatem niniejszej wiadomości lub pracownikiem upoważnionym do jej 
przekazania adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, 

rozprowadzanie lub inne działanie o podobnym charakterze jest prawnie 
zabronione i może być karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, 
prosimy niezwłocznie zawiadomić nadawcę wysyłając odpowiedź oraz trwale 
usunąć tę wiadomość włączając w to wszelkie jej kopie wydrukowane lub 
zapisane na dysku.


This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 

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


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



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


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


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

Re: JCL sample needed

[Alan Young]

David,

This sample JCL and REXX EXECs will run ISPF in batch to do the edit.
It will need a couple of changes to work on your system.

 is the dataset to edit like /tmp/ascii.txt

 is the ISPF message library like SYS1.ISPMLIB

 is the ISPF table library like SYS1.ISPTLIB


//EDITASC  EXEC PGM=IKJEFT1B,
//  PARM='ISPSTART CMD(%EDITA )'
//*
//SYSEXEC  DD  DISP=SHR,DSN=
//ISPPROF  DD  DSN=&,
// DISP=(,PASS,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1,5)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)
//ISPPLIB  DD  DSN=&,
// DISP=(,PASS,DELETE),UNIT=VIO,SPACE=(TRK,(1,1,5)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)
//ISPMLIB  DD  DSN=&,
// DISP=(,PASS,DELETE),UNIT=VIO,SPACE=(TRK,(1,1,5)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)
// DD  DISP=SHR,DSN=
//ISPSLIB  DD  DSN=&,
// DISP=(,PASS,DELETE),UNIT=VIO,SPACE=(TRK,(1,1,5)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)
//ISPTLIB  DD  DSN=&,
// DISP=(,PASS,DELETE),UNIT=VIO,SPACE=(TRK,(1,1,5)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0)
// DD  DISP=SHR,DSN=
//*
//ISPLOG   DD  SYSOUT=*,RECFM=VBA,LRECL=125,BLKSIZE=0
//ISPLIST  DD  SYSOUT=*,RECFM=FBA,LRECL=121,BLKSIZE=0
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  DUMMY
//


EDITA REXX:
/*REXX*/
parse arg dsn
address ISPEXEC "EDIT FILE(dsn) MACRO(CHANGEIT) CONFIRM(NO) ASCII"
exit


CHANGEIT REXX:
/*REXX*/
address ISREDIT
"MACRO"
"RESET"
"CHANGE 'ascii.' 'ASCII!' ALL"
"SAVE"
"END"

Alan

Jousma, David wrote:

All,

Been scratching my head all afternoon on this.   I have a text file in 
mainframe unix filesystem that is ascii format.   Bottom line is that in batch, 
I need to do a find/replace for certain data in it.

Interactively, I know I can do it via ISPF with the EA(edit ASCII) command.   
But I need to do it in batch, so unless someone has a clever way to do it, I'm 
thinking I need to copy it out to flat file, convert to EBCDIC, make the 
changes, and then copy it back to the unix filesystem from whence it came, 
converting it back to ascii and doing it in batch.

Tried ICETOOL with OUTREC...BUILD...TRAN=ATOE, tried FTP, but don't seem to 
have the correct incantation to make that work, and I've tried OGETX, but no 
good results.

Does anyone have some hints/tips to accomplish?

Thanks, Dave
_
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

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

Re: Sort for not there?

[Alan Young]

Paul Gilmartin wrote:

On Thu, 7 Jan 2016 12:56:14 -0700, Alan Young wrote:
  

It's just like a regexp or unix shell command, precede the special
character with a escape backslash.

find r'a\'\"b'



Nope:

 SDSF EDITMAINTRCX (JOB06470) JESMSGLG Parameter not 
recognized
 Command ===> find R'foo \' bar \" wombat' Scroll 
===> CSR
 ** * Top of Data 
**
 ==MSG> -CAUTION- Profile changed to CAPS ON (from CAPS OFF) because the
 ==MSG>   data does not contain any lower case characters.
 **  Bottom of Data 


   ┌───┐
   │ Check for misspelled keywords or too many bounds or range parameters.  
 │
   └───┘

Nope.  I had been pessimistic about this.  "regexp" and "unix shell command" 
are two different tnings.
As I read it, regcomp() has no facility for escaping delimiters.  That's left 
to the caller, as you mention,
"unix shell"  Or C compiler, or whatever, to do the escaping and pass the 
cooked string to regcomp().

Apparently ISPF EDIT has no facility for excaping delimiters.  Never had, not 
even before regexp was
introduced to ISPF.  I believe (haven't tried it) that:

FIND C'foo \' bar \" wombat'

... will fail the same way because ISPF doesn't escape special characters.

-- gil

  


The spaces also need the escape backslash like this

FIND r'foo\ \'\ bar\ \"\ wombat'

Alan

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

Re: BPXBATCH "SH ...; su; pax ..." does not do what you think it does

[Alan Young]

Peter Hunkeler wrote:
  
 
To run commands in a "su" shell environment, you have to write all the commands into a UNIX file first, and then call "su" by redirecting stdin to that UNIX file.



echo "id" > /tmp/sucommandfile
su < /tmp/sucommandfile

  


The manual has examples of executing commands via su without redirection 
like this:


To run the /usr/lib/backupall script under the admin user ID and return 
to the parent shell environment when the script completes:


|su admin /usr/lib/backupall|

To run a remove shell command under the admin user ID and return to the 
parent shell environment when the command completes:


|su admin -c "rm -rf /tmp/"


|

Alan

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

Re: REXX-question

[Alan Young]

Leopold Strauss wrote:

Hi, all

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


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


rexx-script:

parse arg indsn outdsn

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

Result:

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


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


appreciating all hints and br


A couple of thoughts...

Does adding

call rexxopt 'NOTSOIN'

before the address tso statement make a difference?

Try adding a

queue ""

after the queue "END" statement to mark the end of the queue.

Alan

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

Re: I just bought an IBM z890

[Alan Young]

It looks like the zVM 5.3 Evaluation Edition page is still up at 
http://www.vm.ibm.com/eval. It is a DVD of a system that can be IPLed 
and it then runs out of a ramdisk. IIRC, it needs about 3GB to do so. 
Looking back at the posts I don't see what this z890 has, so this may or 
may not an option.


Vince Coen wrote:
For an OS you can always try MVS 3.8J available from multi sources 
including Turnkey 4.


It is a old OS pre OS390 etc but is free with no restrictions.


On 07/11/15 16:43, Connor Krukosky wrote:

So an update from when I posted yesterday.
Me and a friend have (after many hours last night) figured out how to 
reconfigure the IOCDS and create a new LPAR.
We also got as far as being able to load over FTP, but that's about 
where we got because we are not sure how or where to get an SSH 
connection to the machine to continue.
Also if I am installing Linux would I need 3270 OSC ports on the 
machine? I figured Linux wouldn't use the 3270 protocol but am I wrong?
My friend also had a theory that you can use a 3270 console to access 
the LPAR directly without anything running on it to assist in an 
install, if this is true how do I know the IP address of the OSA 
card? All I can find is the MAC address.
I've even preformed a network scan in the subnet to see if my router 
gave it an address and I just need to find it but nothing appears on 
the network that seems to be related to the machine.
(Also note, the SE on this machine doesn't have a built in 3270 
console sadly, its an older OS/2 SE that doesn't have this feature.)


The real frustrating part is it seems 90% of the install docs for 
Linux speak of installing through something like z/OS or z/VM where 
you can define IP addresses and such and know exactly what is going 
on. Where as this is an install through the SE (HMC) which is a blind 
install almost.


We've made a lot of progress, but there are still a few missing 
pieces to the puzzle.


Also as for later plans for storage and such, I am still waiting for 
a few pieces to get here but I have an IBM 2108-G07 SAN Data Gateway 
that should give me FCP based SCSI storage to install onto once I 
figure out how to actually get an SSH into the Debian installer and 
actually complete the install.


--
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: SK3T-4271-28

[Alan Young]

Robert Prins wrote:

I'm trying to find the full (~5GB collection) of z/OS 1.12 manuals,
does anyone know if the above (.zip) is still around anywhere. Tried
changing URL's, but to no avail...

Robert
  

Go to https://www.ibm.com/shop/publications/order

Then choose your country

Then click on Search for Publications on the left

Then enter SK3T-4271 in the Publication Number field

Leaving off the revision suffix will produce a list of all available 
versions of a publication or collection. For some items, multiple 
version are available. For others only the most recent version is available.


Then click GO to list the available publications.

Alan

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

Re: Is there anything like backtrace_symbols() in LE or the C library on z/OS?

[Alan Young]

Kirk Wolf wrote:

See:  http://linux.die.net/man/3/backtrace_symbols

Kirk Wolf
Dovetailed Technologies
http://dovetail.com

  


CEEURTB in the LE Vendor Interfaces manual?

Alan

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

Re: z/OS Platform Software Products on ... Tape?

[Alan Young]

Yeah, BD drives have never come down in price like DVD drives did. The 
50GB and 100GB media can be expensive too. But then again so is TB tape...


I use this combo:

http://www.amazon.com/LG-Electronics-Internal-Rewriter-WH14NS40/dp/B007YWMCA8

plus

http://www.amazon.com/Vantec-5-25-Inch-Enclosure-Interface-NST-530S3-BK/dp/B0093HKFYW

Works on Linux and Windows. eSATA or USB 3.0. No drivers needed. So I 
suspect that other player doesn't need Windows either. It's probably for 
the bundled software for which there are alternatives.


Alan


Charles Mills wrote:
GIYF: http://www.cdw.com/shop/products/LG-UH12NS30-Super-Multi-Blue-DVD-RW-R-DL-DVD-RAM-BD-ROM-drive-Se/3068372.aspx 


Half a C-Note!

Unfortunately, the only supported OS are Windows XP, Windows Vista™, and 
Windows 7; no z/OS.

Charles

  


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

Re: dynamic allocation for tape using TSO in batch

[Alan Young]

Larre,

Is it possible that the SMS ACS routines are not handling the dynamic 
tape allocation properly?


Another thought is does the step require TSO? If TSO is not required and 
the program can be called from REXX, can the step execute IRXJCL instead 
of IKJEFT1A?


Alan

Larre Shiller wrote:

Hello -

Please excuse the lack of detail in this post... I'm not a COBOL programmer and quite a 
bit of what is happening here is either outside of my scope of understanding and 
experience or I have no way to directly test some of this.   There are quite a few 
moving parts involved and I'm not sure which one may be the culprit.

We have a production batch job that executes DB2 and a COBOL program using TSO in batch 
(IKJEFT1A).  The COBOL program dynamically allocates DASD data sets as input using PUTENV 
and standard COBOL SELECT and OPEN statements.  The COBOL program uses the CATALOG to get 
the data set names it is interested in uses the DSN to do the OPEN.  This has been 
working for years.  Unfortunately, some of the input data sets chaned from DASD data sets 
to TAPE data sets and the job is now getting failure to allocate messages:

IKJ56221I DATA SET FOO.BAR NOT ALLOCATED, VOLUME NOT AVAILABLE+

IKJ56221I VOLUME  NECESSARY TO SATISFY YOUR REQUEST NOT ON SYSTEM, AND CANNOT 
BE MOUNTED

...and since we are a JES3 shop, this one gets thrown in as well:

IEF295I FOO.BAR - VOLUME MOUNTING NOT ALLOWED BUT IS NEEDED BY JES3 
INITIALIZATION

I find the IEF295I message (and descriptive text) to be especially cryptic and confusing. 
 I'm not quite sure what failure to mount a volume has to do with JES3 
INITIALIZATION, but I suspect the message is probably just ancient and poorly 
worded...

I opened a PMR with IBM, but the essence of what I'm getting back just boils down to 
...you can't mount a tape from a batch job executing TSO  And although 
that certainly seems to be the case here, I guess I'm just skeptical.  And I can't seem 
to find that blanket restriction specifically documented anywhere.

I have found numerous other can I dynamically allocate a data set from a COBOL 
program posts on the Interwebs and I have read quite a few of them, but none of 
them specifically mention tape--at least not the ones that I can find.  And one would 
think that if that were a restriction, it would have been discussed or mentioned in at 
least *one* of them...!  But maybe not.  We even tried adding a TSO segment to the batch 
userID and gave it MOUNT authority, but that did not help.  It seems awfully odd that 
there is no way to permit this, if this is indeed a default behavior/restriction... after 
all, even with the TSO restriction, you can still override it with UADS or TSOAUTH...!

I guess I'm just looking for definitive confirmation one way or the other and 
was hoping that somebody would have specific knowledge or experience here.

Thanks for any help...

Larre Shiller
US Social Security Administration

--
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: LE Question

[Alan Young]

The C runtime I/O functions fopen(), fread(), fwrite(), etc. support 
hiperspace data if the fopen() file mode parameter 
type=memory(hiperspace) is specified.


The functions are callable from COBOL. You just have to setup the 
parameters for what C expects and compile with NODYNAM. On our system a 
test program will allocate up to 2GB before a runtime error occurs. I 
don't know if that's due to AMODE 31 restrictions or not. Until we get 
64 bit COBOL, I guess one can try to allocate multiple files to store 
2GB in each.


I don't know if you will need to pass the file stream pointer back and 
forth between the programs or if opening the file with the same 
parameters in both will access the same file... We don't have a C 
compiler to try that out.


Alan

Scott Ford wrote:

Sam,

Yeah I agree.  I might have to stay with QSAM file until we can write and
test an API..
Thanks a lot,

As always much appreciated.

Regards,
Scott

On Monday, March 9, 2015, Sam Siegel s...@pscsi.net wrote:

  

OK ... that is a lot of data.

Since an address space provides for just 2GB in the 31 bit range for code,
data and system code, you cannot get 3GB in there.  You have the following
choices:
1) 1 or more data spaces
2) 64bit memory
3) some 31 bit data in current address space; remainder in dataspace(s)
and/or 64bit memory.

64 bit memory is the cleanest in terms of using linear addresses.  However,
if data needs to be referenced by COBOL, you will face problems.  You might
need to copy back data to 31bit address space or other means.

dataspaces cannot be directly accesses by COBOL as you need to be in AR
mode and use the proper ALETs. COBOL does not do ALETs.

If you go the 64 bit memory route.  You can create an API in c that will
retrieve data on behalf of COBOL and copy it back to 31 bit memory.

If you go the dataspace route, you can create an API in asm that will
retrieve ALET qualified data on behalf of COBOL and copy it over to
non-alet qualified memory.

Either way, i think you need an API.

On Mon, Mar 9, 2015 at 3:44 PM, Scott Ford idfzos...@gmail.com
javascript:; wrote:



Sam,

2-3 G .

Regards,
Scott

On Monday, March 9, 2015, Paul Gilmartin 
000433f07816-dmarc-requ...@listserv.ua.edu javascript:; wrote:

  

On Mon, 9 Mar 2015 14:18:15 -0700, Sam Siegel wrote:



How much data?  10meg?  100meg?  1gig?

  

How about 10 gig?  None of those numbers would be unreasonable
if COBOL supported 64-bit addressing.  But IBM can't see the use
for that.

Of course if the data are large enough they go into page data sets
anyway, but that's utterly transparent to the programmer.



On Mar 9, 2015 2:06 PM, Scott Ford wrote:
  

I will have to read and try ..my question is how do i pass a lot of


data
  

...a dataspace ? i would like to avoid dasd if I can ..


-- gil



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

Re: InfoCenter TOS?

[Alan Young]

John McKown wrote:

 I think you are a bit tongue-in-cheek, but in today's litigious world,  
 who knows?


 But one thing that I relatively new and which I despise is that, unlike
 with the old BookManager and PDF, the above definitely means that I
 __CANNOT__ make a copy of the site for off-line perusal. So if I have no
 Internet connectivity, I have no documentation. Nor can I make hard 
copy 
 of the pages. Well, not without violating copyright.


Actually, it is downloadable. If you click on IBM Softcopy on the
Information Center's home page, it lists the collection's publication  
number. If you then click on the Quick Publications Center search link that

is also on that page and then enter the publication's number and hit search
it will list several versions that can be downloaded and installed.

Bad thing about this is it looks like there's an update every quarter or so
and each download is about 1200 MB or so.  So much for diffs.

I seem to recall the CICS explorer would download documentation updates.
But I don't recall if it was smart enough to just pull the updated books 
only. 
I'm not sure what the newer IBM explorer does.


Alan

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

Re: Dynalloc with FREE=CLOSE,SPIN=UNALLOC

[Alan Young]

Sam Siegel wrote:

My error ... I thought that text units could be added to a dynalloc
request.  After reading the doc, dynalloc appears to be limited to a subset
of svc99 functions.

You might have you use the svc99() function and build your own text units.

  
You can specify text units in the request by attaching them to the 
__miscitems pointer array in the __dyn_t structure.


Alan ||

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

Re: Dynalloc with FREE=CLOSE,SPIN=UNALLOC

[Alan Young]

Paul Gilmartin wrote:

On Sat, 6 Sep 2014 13:16:53 -0700, Alan Young wrote:

  

Sam Siegel wrote:


My error ... I thought that text units could be added to a dynalloc
request.  After reading the doc, dynalloc appears to be limited to a subset
of svc99 functions.

You might have you use the svc99() function and build your own text units.

  

BPXWDYN suffers a similar limitation.

  

You can specify text units in the request by attaching them to the
__miscitems pointer array in the __dyn_t structure.



And, AFAIK, no similar circumvention.
  



No, dynalloc() will use text units in addition to the mapped parameters.

http://pic.dhe.ibm.com/infocenter/zos/v1r13/index.jsp?topic=%2Fcom.ibm.zos.r13.bpxbd00%2Fdynalloc.htm 
:


__miscitems

char * __ptr32 * __ptr32

For all other text unit keys not available in __dyn_t, this pointer will 
let you specify an array of text unit strings. If you specify this 
field, you must turn the high bit on the last item (as in svc99()). Use 
the bitwise inclusive-OR (|) operand with the last item and the 
hexadecimal value 0x8000.


I've used it to specify parameters like EXPDT which is not directly mapped.

Alan

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

Re: Sorting CSV data that begins with an IP address

[Alan Young]

Sankaranarayanan, Vignesh wrote:

Hello,

I need help sorting some 5000 lines based on the first entry in a CSV - IP 
address. When sorting, I need the whole record to be involved in the sort, not 
just the IP's.

Sample data:

IP,MAC,Make-Model,SEPINFO,Type,Ping,Status,Printer,GRPNAME Warehouse 
#,Warehouse Name,Warehouse Terminal,Warehouse Code, Warehouse CICS
xx.yyy.zz.aaa,Unknown,Unknown,OKI,Report,NOT Ok,Unknown,abcd,Not Defined
xx.yyy.zzz.a,Unknown,Unknown,Not Defined,Report,NOT Ok,Unknown,efgh,Not Defined
xx.yy.zzz.aaa,bb:cc:dd:ee:ff:gg,ZTC GK420d,Not Defined,Report,Ok,Online,qwer,WHW

Xx doesn't mean the same digit; just clearing out data. I require the sort to 
work for any IP address, be it 1 or 2 or 3 characters per octet.

I'm working with this, and I haven't a clue on each of these keywords. If you 
guys were so kind as to help me with the SYSIN, I could save an hour or two of 
reading syntax rules.

INREC IFTHEN=(WHEN=INIT,
  PARSE=(%01=(ENDBEFR=C'.',FIXLEN=3),
 %02=(ENDBEFR=C'.',FIXLEN=3),
 %03=(ENDBEFR=C'.',FIXLEN=3),
 %04=(FIXLEN=3)),
  OVERLAY=(81:%01,%02,%03,%04))
SORT FORMAT=UFF,FIELDS=(81,3,A,84,3,A,87,3,A,90,3,A)
OUTREC BUILD=(1,133)


Thanks in advance.

- Vignesh
Mainframe Admin

  


Hello,

I think this might do what you need. It was run with Syncsort 1.4.10R. I 
think there is nothing special that should prevent it from running under 
a recent DFSORT, but I don't have it available to test with.


INREC IFTHEN=(WHEN=INIT,
 PARSE=(%01=(ENDBEFR=C'.',FIXLEN=3),
%02=(ENDBEFR=C'.',FIXLEN=3),
%03=(ENDBEFR=C'.',FIXLEN=3),
%04=(ENDBEFR=C',',FIXLEN=3)),
 OVERLAY=(81:%01,SQZ=(SHIFT=RIGHT,LENGTH=3),
 %02,SQZ=(SHIFT=RIGHT,LENGTH=3),
 %03,SQZ=(SHIFT=RIGHT,LENGTH=3),
 %04,SQZ=(SHIFT=RIGHT,LENGTH=3))),
  IFTHEN=(WHEN=INIT,
 FINDREP=(IN=C' ',OUT=C'0',STARTPOS=81,ENDPOS=93))

*
SORT FORMAT=CH,FIELDS=(81,3,A,84,3,A,87,3,A,90,3,A)
*
* You may be able to change the sort to the following
*
* SORT FORMAT=CH,FIELDS=(81,12,A)


Alan

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

Re: DYNALLOC reusing DUMMY

[Alan Young]

Paul Gilmartin wrote:


Is in use synonymous with open?  Squirrely either way.  How can
the user control the in use status?  Does either TSO ALLOCATE
or BPXWDYN provide a keyword?


  



They are not the same.  You can have a dataset closed, allocated to the 
step and the in use attribute set or not set.


There is a SVC99 verb code (x'05') to remove the in use attribute.   
Unfortunately it only removes the in use attribute for the DSN and DD.  
It does not remove the SYSZVOLS enqueue on a tape volume.  Another SVC99 
brain deadness when trying to reuse a dynamically allocated output 
dataset for stacking on the same unit in a application program.


I have no idea if there is a secret keyword for it in BPXWDYN.

Alan

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

Re: Dynamic Allocation in COBOL

[Alan Young]

Mark Jacobs wrote:

This might not be the right forum for this question, but...

Doing some very limited in initial research I've found three 
documented methods of performing Dynamic Allocation in COBOL ( 
Enterprise COBOL 4.2), BPXWDYN, CEEENV or setenv.


Q1) Are there any others?We already use a home grown assembler program 
for dynamic allocation, but our direction is to move as much to the OS 
as possible.

Q2) Is there any reason to pick one over the others?



I use BPXWDYN where I can.   Unfortunately, with tape datasets all the 
needed parameters a sometimes not there.  So I have a alternative 
process for those uses.  COBOL can call the C runtime library 
functions.   C has dynalloc() and dynfree() to dynamically allocate and 
free datasets.  The linkage is a bit different.  And C doesn't set the 
high bit in it's parameter lists, so one has to call the function with a 
extra parameter to keep the high bit in the address from being set like 
this:


CALL 'DYNALLOC' USING BY REFERENCE LS-DYNT
   BY VALUE ZERO
   RETURNING WS-RETURN-CODE.

A gotcha is being C, character strings need to be NULL terminated (PIC 
Z).  And another is some of the functions in the C runtime have to be 
statically linked at compile time.  I use a small COBOL wrapper that 
links the C routine statically which I then can call dynamically.   The 
runtime functions also allow text units to be passed which make them 
flexible.  A nice thing is since they are part of the IBM C runtime, you 
don't have to maintain a routine or distribute one.   It's already there 
with Language Environment.


Alan

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