Re: thoughts on z/OS ftp server enhancement.

[Charles Mills]

ETL is the TLA I was trying to think of. 



CharlesSent from a mobile; please excuse the brevity.
 Original message From: Mike Bell  Date: 
3/22/17  8:15 PM  (GMT-08:00) To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: 
thoughts on z/OS ftp server enhancement. 
the existing products that do this a generally classified as ETL  -
extract, transfer and load.  most of them are data warehouse style products

Mike

On Wed, Mar 22, 2017 at 8:19 PM, Mike Schwab 
wrote:

> What you have to do is take the file layout and code SORT or IEBGENER
> control cards.  They will copy the EBCDIC text fields as is and expand
> the packed and binary numbers to EBCDIC digits.  Then you can FTP the
> resulting EBCDIC text only file.  In some cases you might want to put
> in quotes and comma delimiters so a spreadsheet can nicely display
> them.
>
> On Wed, Mar 22, 2017 at 3:15 PM, John McKown
>  wrote:
> > I am wondering if anyone else thinks the following might be a nice
> > enhancement to the z/OS FTP server. At present, when you transfer a file
> > to/from another system, you can basically only do a BIN (null) or ASCII
> > transformation. We have been doing a lot of ftp's to a Windows server, so
> > we really need an ASCII transformation. The problem is that our real
> data,
> > in a VSAM data set, has PACKED DECIMAL and 32 bit internal binary numbers
> > and not just character data. So, I was thinking that it might be nice to
> > have a FTP server command which would set up a "global" data
> transformation
> > program as in intermediary. That is, the client (on Windows) would do
> > something like:
> >
> > quote outxform somepgm
> > get vsam.dataset
> >
> > And what the FTP server would do is invoke "somepgm" with a parameter of
> > "vsam.dataset". The "somepgm" would allocate & open the given data set.
> It
> > would then read the data; transform it; then return the transformed
> > record(s) to ftp. This would be conceptually similar to what COBOL and
> SORT
> > do when the SORT verb in a program has the USING INPUT PROCEDURE phrase.
> > Perhaps the parameters to "somepgm" would be a character string and the
> > address of a "subroutine" to call to return a record back to the ftp
> > server.
> >
> > Or maybe something similar to how ftp can do an SQL query, but more
> generic:
> > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.
> 0/com.ibm.zos.v2r1.halu001/db2sqlquerysubmitftps.htm
> >
> >
> > --
> > "Irrigation of the land with seawater desalinated by fusion power is
> > ancient. It's called 'rain'." -- Michael McClary, in alt.fusion
> >
> > Maranatha! <><
> > John McKown
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Mike

--
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: thoughts on z/OS ftp server enhancement.

[Mike Bell]

the existing products that do this a generally classified as ETL  -
extract, transfer and load.  most of them are data warehouse style products

Mike

On Wed, Mar 22, 2017 at 8:19 PM, Mike Schwab 
wrote:

> What you have to do is take the file layout and code SORT or IEBGENER
> control cards.  They will copy the EBCDIC text fields as is and expand
> the packed and binary numbers to EBCDIC digits.  Then you can FTP the
> resulting EBCDIC text only file.  In some cases you might want to put
> in quotes and comma delimiters so a spreadsheet can nicely display
> them.
>
> On Wed, Mar 22, 2017 at 3:15 PM, John McKown
>  wrote:
> > I am wondering if anyone else thinks the following might be a nice
> > enhancement to the z/OS FTP server. At present, when you transfer a file
> > to/from another system, you can basically only do a BIN (null) or ASCII
> > transformation. We have been doing a lot of ftp's to a Windows server, so
> > we really need an ASCII transformation. The problem is that our real
> data,
> > in a VSAM data set, has PACKED DECIMAL and 32 bit internal binary numbers
> > and not just character data. So, I was thinking that it might be nice to
> > have a FTP server command which would set up a "global" data
> transformation
> > program as in intermediary. That is, the client (on Windows) would do
> > something like:
> >
> > quote outxform somepgm
> > get vsam.dataset
> >
> > And what the FTP server would do is invoke "somepgm" with a parameter of
> > "vsam.dataset". The "somepgm" would allocate & open the given data set.
> It
> > would then read the data; transform it; then return the transformed
> > record(s) to ftp. This would be conceptually similar to what COBOL and
> SORT
> > do when the SORT verb in a program has the USING INPUT PROCEDURE phrase.
> > Perhaps the parameters to "somepgm" would be a character string and the
> > address of a "subroutine" to call to return a record back to the ftp
> > server.
> >
> > Or maybe something similar to how ftp can do an SQL query, but more
> generic:
> > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.
> 0/com.ibm.zos.v2r1.halu001/db2sqlquerysubmitftps.htm
> >
> >
> > --
> > "Irrigation of the land with seawater desalinated by fusion power is
> > ancient. It's called 'rain'." -- Michael McClary, in alt.fusion
> >
> > Maranatha! <><
> > John McKown
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
>
> --
> Mike A Schwab, Springfield IL USA
> Where do Forest Rangers go to get away from it all?
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>



-- 
Mike

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

Re: GREAT presentation on the history of the mainframe

[scott Ford]

Charles,

One of my first sysprog jobs was on a 370-155 un-dated ..no dynamic address
translation ran Intel's DOS look-a-like.

It was a wierd beast.

Scott

On Wed, Mar 22, 2017 at 9:53 AM Charles Mills  wrote:

> And it's not just a "nostalgia" presentation. I learned things I did not
> know about the thinking inside IBM that led to the 360. And it goes all the
> way through the EC12. Answered my question about Interlocked-Access
> Facility 2.
>
>
>
> Charles
>
>
>
>
>
> -Original Message-
>
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of scott Ford
>
> Sent: Wednesday, March 22, 2017 5:59 AM
>
> To: IBM-MAIN@LISTSERV.UA.EDU
>
> Subject: Re: GREAT presentation on the history of the mainframe
>
>
>
> Thanks for sharing Charles, like George my operations and systems
> programming background is similar..
>
>
>
> Learning BAL on a 360/20 did this while a Oprator on a 360/40 DOS/VS/POWER
> Worked on 370/135 , 370/158 OS/VS2/HASP with TSO and TCAM Worked on 9000
> series on VM ans VSE On On 
>
>
>
> Took me back..loved it
>
>
>
> --
>
> 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

Re: thoughts on z/OS ftp server enhancement.

[Mike Schwab]

What you have to do is take the file layout and code SORT or IEBGENER
control cards.  They will copy the EBCDIC text fields as is and expand
the packed and binary numbers to EBCDIC digits.  Then you can FTP the
resulting EBCDIC text only file.  In some cases you might want to put
in quotes and comma delimiters so a spreadsheet can nicely display
them.

On Wed, Mar 22, 2017 at 3:15 PM, John McKown
 wrote:
> I am wondering if anyone else thinks the following might be a nice
> enhancement to the z/OS FTP server. At present, when you transfer a file
> to/from another system, you can basically only do a BIN (null) or ASCII
> transformation. We have been doing a lot of ftp's to a Windows server, so
> we really need an ASCII transformation. The problem is that our real data,
> in a VSAM data set, has PACKED DECIMAL and 32 bit internal binary numbers
> and not just character data. So, I was thinking that it might be nice to
> have a FTP server command which would set up a "global" data transformation
> program as in intermediary. That is, the client (on Windows) would do
> something like:
>
> quote outxform somepgm
> get vsam.dataset
>
> And what the FTP server would do is invoke "somepgm" with a parameter of
> "vsam.dataset". The "somepgm" would allocate & open the given data set. It
> would then read the data; transform it; then return the transformed
> record(s) to ftp. This would be conceptually similar to what COBOL and SORT
> do when the SORT verb in a program has the USING INPUT PROCEDURE phrase.
> Perhaps the parameters to "somepgm" would be a character string and the
> address of a "subroutine" to call to return a record back to the ftp
> server.
>
> Or maybe something similar to how ftp can do an SQL query, but more generic:
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.halu001/db2sqlquerysubmitftps.htm
>
>
> --
> "Irrigation of the land with seawater desalinated by fusion power is
> ancient. It's called 'rain'." -- Michael McClary, in alt.fusion
>
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN



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

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

Re: Spool file

[Campbell Jay]

Hate inserting myself -
Joe is using zdpt on Linux on his home laptop.
Might change the discussion a little.

Jay Campbell


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@listserv.ua.edu] On Behalf 
Of Joseph Reichman
Sent: Wednesday, March 22, 2017 7:23 PM
To: IBM-MAIN@listserv.ua.edu
Subject: Re: Spool file

My parmlib member points to SPOOL as the volume but everything else shows B2SYS.

SDSF SPOOL DISPLAY S0W1   2% ACT  14095 FRE  13683 LINE 1-2 (2)

 COMMAND INPUT ===>SCROLL ===>
CSR  
 NP   NAME   Status   TGPct TGNum TGUse Command  SAff  Ext LoCylLoTrk

  B2SYS1 ACTIVE   5  3000   164  ANY   00  031B

  B2SYS2 ACTIVE   2 11095   248  ANY   01  0006
  

3.4 Display
DSLIST - Data Sets on volume SPOOL* Row 1 of
6 
Command ===>  Scroll ===>
PAGE 
 

Command - Enter "/" to select action  Message
Volume

---
 SYS1.HASPACE
SPOOL1 
 SYS1.HASPACE
SPOOL2 
 SYS1.HASPACE
SPOOL3 
 SYS1.VTOCIX.SPOOL1
SPOOL1 
 SYS1.VTOCIX.SPOOL2
SPOOL2 
 SYS1.VTOCIX.SPOOL3
SPOOL3
* End of Data Set list

 





  $dspool,long  
  $HASP893 VOLUME(B2SYS1)   
VOLUME(B2SYS1)  STATUS=ACTIVE,DSNAME=SYS1.HASPACE,  
SYSAFF=(ANY),TGNUM=3000,TGINUSE=164,
TRKPERTGB=3,PERCENT=5,RESERVED=NO,  
MAPTARGET=NO
  $HASP893 VOLUME(B2SYS2)   
VOLUME(B2SYS2)  STATUS=ACTIVE,DSNAME=SYS1DisplKCELL=3,VOLUME=B2SYS

  $DSPOLLDEF   

JES parmlib member

SPOOLDEF BUFSIZE=3856,   /* MAXIMUM BUFFER SIZEc*/
 DSNAME=SYS1.HASPACE, 
 FENCE=NO,   /* Don't Force to Min.Vol. oc*/
 SPOOLNUM=32,/* Max. Num. Spool Vols--- c*
 TGBPERVL=5, /* Track Groups per volume in BLOB  ownc*
 TGSIZE=33,  /* 30 BUFFERS/TRACK GROUPwnc*/
 TGSPACE=(MAX=26288, /* Fits TGMs into 4K Page  =(,  c*/
  WARN=80),  /*   =(,% onc*/
 TRKCELL=3,  /* 3 Buffers/Track-cell   c*/
 VOLUME=SPOOL/* SPOOL VOLUME SERIALc*/
<---
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, March 22, 2017 12:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Spool file

Only one HASPACE per JES2 Spool volume

Lizette

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Lizette Koehler
> Sent: Tuesday, March 21, 2017 8:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU 
> Subject: Re: Spool file
> 
> Issue a $DSPOOL,LONG  and see what it shows
> 
> Issue $DSPOOLDEF and see what it shows
> 
> Next go to ISPF 3.4
> 
> Search
> 
> **   in the dataset level
> SPOOL*  in the VOLSER and see what it shows
> 
> I am not clear about your statement:   The spool volumes are still on the
same
> pack.  Please provide a display of what you are seeing.
> 
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List 
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman
> > Sent: Tuesday, March 21, 2017 7:48 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU 
> > Subject: Re: Spool file
> >
> > I have 3 vols SPOOL1 SPOOL2 and SPOOL3
> >
> > In jes2 parmlib member on the spool def for volume I specify SPOOL 
> > and yet after ipl'ing
> >
> > And then going back to SDSF to look for the  spool volumes are on 
> > still on the same pack
> >
> >
> >
> > > On Mar 21, 2017, at 11:20 AM, Lizette Koehler 
> > >  >
> > wrote:
> > >
> > > The best practice for JES2 Spool file is standalone.  Never put 
> > > anything on the same volume as either the SPOOL Space or the CKPT
> datasets.
> > >
> > > That can lead to unintentional issues.
> > >
> > > Many shops in the past have tended towards multi-use volumes with 
> > > JES2.  This is not recommended.
> > >
> > > With storage arrays, you can code a volume as a MOD9 (9GB, 10,017
> > > Cylinders) and only place the ckpt or the spool space (not both) 
> > > on it. The array will typically only hold the amount of storage on 
> > > the
> > > mod9 as is allocated.  It does not hold the entire 10,017 
> > > cylinders when you only have a 60 cylinder dataset on it.  As the 
> > > volume is grown - the array 

Re: Spool file

[Joseph Reichman]

My parmlib member points to SPOOL as the volume but everything else shows
B2SYS.

SDSF SPOOL DISPLAY S0W1   2% ACT  14095 FRE  13683 LINE 1-2 (2)

 COMMAND INPUT ===>SCROLL ===>
CSR  
 NP   NAME   Status   TGPct TGNum TGUse Command  SAff  Ext LoCylLoTrk

  B2SYS1 ACTIVE   5  3000   164  ANY   00  031B

  B2SYS2 ACTIVE   2 11095   248  ANY   01  0006
  

3.4 Display
DSLIST - Data Sets on volume SPOOL* Row 1 of
6 
Command ===>  Scroll ===>
PAGE 
 

Command - Enter "/" to select action  Message
Volume 

---
 SYS1.HASPACE
SPOOL1 
 SYS1.HASPACE
SPOOL2 
 SYS1.HASPACE
SPOOL3 
 SYS1.VTOCIX.SPOOL1
SPOOL1 
 SYS1.VTOCIX.SPOOL2
SPOOL2 
 SYS1.VTOCIX.SPOOL3
SPOOL3 
* End of Data Set list

 





  $dspool,long  
  $HASP893 VOLUME(B2SYS1)   
VOLUME(B2SYS1)  STATUS=ACTIVE,DSNAME=SYS1.HASPACE,  
SYSAFF=(ANY),TGNUM=3000,TGINUSE=164,
TRKPERTGB=3,PERCENT=5,RESERVED=NO,  
MAPTARGET=NO
  $HASP893 VOLUME(B2SYS2)   
VOLUME(B2SYS2)  STATUS=ACTIVE,DSNAME=SYS1DisplKCELL=3,VOLUME=B2SYS

  $DSPOLLDEF   

JES parmlib member

SPOOLDEF BUFSIZE=3856,   /* MAXIMUM BUFFER SIZEc*/
 DSNAME=SYS1.HASPACE, 
 FENCE=NO,   /* Don't Force to Min.Vol. oc*/
 SPOOLNUM=32,/* Max. Num. Spool Vols--- c*
 TGBPERVL=5, /* Track Groups per volume in BLOB  ownc*
 TGSIZE=33,  /* 30 BUFFERS/TRACK GROUPwnc*/
 TGSPACE=(MAX=26288, /* Fits TGMs into 4K Page  =(,  c*/
  WARN=80),  /*   =(,% onc*/
 TRKCELL=3,  /* 3 Buffers/Track-cell   c*/
 VOLUME=SPOOL/* SPOOL VOLUME SERIALc*/
<---
-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Lizette Koehler
Sent: Wednesday, March 22, 2017 12:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Spool file

Only one HASPACE per JES2 Spool volume

Lizette

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
> On Behalf Of Lizette Koehler
> Sent: Tuesday, March 21, 2017 8:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU  
> Subject: Re: Spool file
> 
> Issue a $DSPOOL,LONG  and see what it shows
> 
> Issue $DSPOOLDEF and see what it shows
> 
> Next go to ISPF 3.4
> 
> Search
> 
> **   in the dataset level
> SPOOL*  in the VOLSER and see what it shows
> 
> I am not clear about your statement:   The spool volumes are still on the
same
> pack.  Please provide a display of what you are seeing.
> 
> 
> Lizette
> 
> 
> > -Original Message-
> > From: IBM Mainframe Discussion List 
> > [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Joseph Reichman
> > Sent: Tuesday, March 21, 2017 7:48 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU  
> > Subject: Re: Spool file
> >
> > I have 3 vols SPOOL1 SPOOL2 and SPOOL3
> >
> > In jes2 parmlib member on the spool def for volume I specify SPOOL 
> > and yet after ipl'ing
> >
> > And then going back to SDSF to look for the  spool volumes are on 
> > still on the same pack
> >
> >
> >
> > > On Mar 21, 2017, at 11:20 AM, Lizette Koehler 
> > >  >
> > wrote:
> > >
> > > The best practice for JES2 Spool file is standalone.  Never put 
> > > anything on the same volume as either the SPOOL Space or the CKPT
> datasets.
> > >
> > > That can lead to unintentional issues.
> > >
> > > Many shops in the past have tended towards multi-use volumes with 
> > > JES2.  This is not recommended.
> > >
> > > With storage arrays, you can code a volume as a MOD9 (9GB, 10,017
> > > Cylinders) and only place the ckpt or the spool space (not both) 
> > > on it. The array will typically only hold the amount of storage on 
> > > the
> > > mod9 as is allocated.  It does not hold the entire 10,017 
> > > cylinders when you only have a 60 cylinder dataset on it.  As the 
> > > volume is grown - the array will allocate more space to that 
> > > device until it reaches
> > its maximum size.
> > >
> > > So, in my shop we have the ckpt on MOD3s and the Spool space on 
> > > MOD54s.  The MOD3s only use a small portion for the ckpt as the 
> > > ckpt is
> > under 1000 cylinders.
> > > The MOD54s are maxed out as I have allocated the entire amount 

Re: thoughts on z/OS ftp server enhancement.

[Paul Gilmartin]

On Wed, 22 Mar 2017 15:15:21 -0500, John McKown wrote:
>
>... So, I was thinking that it might be nice to
>have a FTP server command which would set up a "global" data transformation
>program as in intermediary. That is, the client (on Windows) would do
>something like:
>
>quote outxform somepgm
>get vsam.dataset
>
>And what the FTP server would do is invoke "somepgm" with a parameter of
>"vsam.dataset". The "somepgm" would allocate & open the given data set. It
>would then read the data; transform it; then return the transformed
>record(s) ...
>
I wonder about some combination of ssh/sftp/Co:Z.  I'm imagining:

ssh z-OS "somepgm -options vsam.dataset" >local.vsam.dataset.

No ssh?  How about PuTTY or Cygwin?  Third party software prohibited?
They just don't want you to do your job, do they?

>Or maybe something similar to how ftp can do an SQL query, but more generic:
>https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.halu001/db2sqlquerysubmitftps.htm

-- gil

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

Re: Read SMF using COBOL

[Bill Woodger]

Ah, the diagnostic is only for OUTPUT/EXTEND for an F-type with RECORD CONTAINS 
0.

Since it doesn't produce a diagnostic message in your case, I think you are OK 
going forward, but I'd not code it like that.

Also, your FD:

FD  SMF-RECORDS-IN
RECORDING MODE S
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 32760 CHARACTERS
RECORD CONTAINS 14 TO 32760 CHARACTERS
DATA RECORDS ARE SMF-MIN-REC
 SMF-TYPE14-REC
 SMF-TYPE17-REC
 SMF-TYPE65-REC
 SMF-MAX-REC.

Can be simplified:

FD  SMF-RECORDS-IN
RECORDING MODE S
RECORD CONTAINS 0.

BLOCK CONTAINS is irrelevant for an input file (it is already in blocks, you 
can't change it, or get it changed).

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

Re: Dr. Rainey

[Edward Finnell]

Thanks for the update. My friends that worked there held joint  
appointments.
 
 
In a message dated 3/22/2017 8:52:54 A.M. Central Daylight Time,  
balf...@utk.edu writes:

Oak  Ridge National lab for NIU, not UT  Knoxville

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

Re: Read SMF using COBOL

[Bill Woodger]

The Language Reference says:

"The RECORD CONTAINS 0 CHARACTERS clause can be specified for
input QSAM files containing fixed-length records; the record size is
determined at run time from the DD statement parameters or the data set
label. If, at run time, the actual record is larger than the 01 record
description, then only the 01 record length is available. If the actual record
is shorter, then only the actual record length can be referred to. Otherwise,
uninitialized data or an addressing exception can be produced."

However, no diagnostic for non-F :-)

If you use SMF-MAX-REC when you know that it is a maximum-length record, expect 
a S0C4. I guess you won't use it.

Better would be RECORD IS VARYING from minimum to maximum (which can be 32756 
if that is your actual maximum of data possible).

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

Re: Check out IBM Loads Quantum Computing Onto Its Cloud

[Edward Gould]

> On Mar 22, 2017, at 10:43 AM, John Mattson  wrote:
> 
> However, you do not know whether it is on the cloud or not... until you
> look.  ; ^ )


Or it rains:)

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

Re: thoughts on z/OS ftp server enhancement.

[Charles Mills]

I used to be in the mainframe to ASCII platform file transfer software 
business. There's a name for what you propose -- some 3-letter acronym -- but I 
have forgotten. There is a T in it for Transform. We spent a lot of time 
looking at this, because a recurring customer complaint was "we transferred our 
file and now it's unusable" and it ended up being vendor arguing with customer 
about why you could not translate packed and binary files to ASCII and have 
them be usable.

The problem we wrestled with is there are just so many variables in how record 
layouts work. Non-trivial commercial files inevitably are "well, if there is a 
P in position 51 then it's an accounts payable record and it looks like this, 
but if there is an R then it looks like this, except if there is a C in 
position 92, in which case it's a credit record ..."

You're right, an interesting FTP enhancement might be a generalization of SITE 
FILETYPE=JES|SQL, SITE FILETYPE=somepgm where somepgm would somehow transform a 
file and pass it to FTP. Then the customer could write a COBOL program, say, to 
convert all the packed fields to character on the fly during transmission.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, March 22, 2017 1:15 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: thoughts on z/OS ftp server enhancement.

I am wondering if anyone else thinks the following might be a nice enhancement 
to the z/OS FTP server. At present, when you transfer a file to/from another 
system, you can basically only do a BIN (null) or ASCII transformation. We have 
been doing a lot of ftp's to a Windows server, so we really need an ASCII 
transformation. The problem is that our real data, in a VSAM data set, has 
PACKED DECIMAL and 32 bit internal binary numbers and not just character data. 
So, I was thinking that it might be nice to have a FTP server command which 
would set up a "global" data transformation program as in intermediary. That 
is, the client (on Windows) would do something like:

quote outxform somepgm
get vsam.dataset

And what the FTP server would do is invoke "somepgm" with a parameter of 
"vsam.dataset". The "somepgm" would allocate & open the given data set. It 
would then read the data; transform it; then return the transformed
record(s) to ftp. This would be conceptually similar to what COBOL and SORT do 
when the SORT verb in a program has the USING INPUT PROCEDURE phrase.
Perhaps the parameters to "somepgm" would be a character string and the address 
of a "subroutine" to call to return a record back to the ftp server.

Or maybe something similar to how ftp can do an SQL query, but more generic:
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.halu001/db2sqlquerysubmitftps.htm

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

Re: Read SMF using COBOL

[Bill Woodger]

BLOCK CONTAINS 0 makes sense, if BLOCK CONTAINS is specified in a COBOL 
program, it overrides everything else up the line. But, won't affect your 
problem.

RECORD CONTAINS 0. That's for fixed-length records, where the actual length 
will be acquired at runtime.

For a variable-length record file, you'll get a diagnostic message. I thought 
it was even an RC=8.

It does, however, "work". Until IBM make a change to the compiler. Which means, 
since they've already changed it, perhaps doesn't do the same thing in V5+.

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

thoughts on z/OS ftp server enhancement.

[John McKown]

I am wondering if anyone else thinks the following might be a nice
enhancement to the z/OS FTP server. At present, when you transfer a file
to/from another system, you can basically only do a BIN (null) or ASCII
transformation. We have been doing a lot of ftp's to a Windows server, so
we really need an ASCII transformation. The problem is that our real data,
in a VSAM data set, has PACKED DECIMAL and 32 bit internal binary numbers
and not just character data. So, I was thinking that it might be nice to
have a FTP server command which would set up a "global" data transformation
program as in intermediary. That is, the client (on Windows) would do
something like:

quote outxform somepgm
get vsam.dataset

And what the FTP server would do is invoke "somepgm" with a parameter of
"vsam.dataset". The "somepgm" would allocate & open the given data set. It
would then read the data; transform it; then return the transformed
record(s) to ftp. This would be conceptually similar to what COBOL and SORT
do when the SORT verb in a program has the USING INPUT PROCEDURE phrase.
Perhaps the parameters to "somepgm" would be a character string and the
address of a "subroutine" to call to return a record back to the ftp
server.

Or maybe something similar to how ftp can do an SQL query, but more generic:
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.halu001/db2sqlquerysubmitftps.htm


-- 
"Irrigation of the land with seawater desalinated by fusion power is
ancient. It's called 'rain'." -- Michael McClary, in alt.fusion

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: Read SMF using COBOL

[Steely.Mark]

The solution was to change the file system to :

 FD  SMF-RECORDS-IN  
RECORDING MODE S
LABEL RECORDS ARE STANDARD  
BLOCK CONTAINS 0 CHARACTERS   Change this to 0 char  
RECORD CONTAINS 0 CHARACTERSChange this to 0 char
 DATA RECORDS ARE SMF-MIN-REC
 SMF-TYPE14-REC 
 SMF-TYPE17-REC 
 SMF-TYPE65-REC 
 SMF-MAX-REC.


Thanks for all the suggestions. 


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

Re: Read SMF using COBOL

[Bill Woodger]

And no, I don't know why the discrepancy is not four. Perhaps there is a 
problem when you specify variable-length data in the FD that is longer than the 
maximum possible value.

You should get the file open by reducing your 32760 to 32754 in the FILLER.

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

Re: Read SMF using COBOL

[Bill Woodger]

You have specified 32760 bytes of data. Remember that the LRECL does not only 
include data. If you have 32760 of data, your LRECL would be larger than 32760. 
If your LRECL is 32760, your data has to be shorter.

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

Re: Read SMF using COBOL

[John McKown]

On Wed, Mar 22, 2017 at 12:40 PM, Steely.Mark 
wrote:

> I am trying to read SMF data using COBOL for z/OS  4.2.0. This setup use
> to work but that was in a past life.
>
> This input is Record Format. . . : VBS, Record Length. . . : 32760 & Block
> Size   . . . : 32760. Program IFASMFDP
>
> Cobol File Section:
>
> FD  SMF-RECORDS-IN
> RECORDING MODE S
> LABEL RECORDS ARE STANDARD
> BLOCK CONTAINS 32760 CHARACTERS
> RECORD CONTAINS 14 TO 32760 CHARACTERS
> DATA RECORDS ARE SMF-MIN-REC
>  SMF-TYPE14-REC
>  SMF-TYPE17-REC
>  SMF-TYPE65-REC
>  SMF-MAX-REC.
> SKIP1
> 01  SMF-MIN-REC.
> 12  FILLER  PIC X.
> 12  SMF-RECORD-TYPE PIC X.
> 12  FILLER  PIC X(12).
> SKIP3
> 01  SMF-TYPE14-REC.
> 12  FILLER  PIC X(284).
> SKIP3
> 01  SMF-TYPE17-REC.
> 12  FILLER  PIC X(232).
> SKIP3
> 01  SMF-TYPE65-REC.
> 12  FILLER  PIC X(208).
> SKIP3
> 01  SMF-MAX-REC.
> 12  FILLER  PIC X(32760).
> EJECT
>
> Receive error:
> IGZ0201W A file attribute mismatch was detected. File SMF-RECORDS-IN in
> program  SMFXTRCT had a record length of 32771 and the file specified
> in the ASSIGN  clause had a record length of 32760.
> IGZ0035S There was an unsuccessful OPEN or CLOSE of file SMFIN in program
> SMFXTRCT at  relative location X'0416'. Neither FILE STATUS nor an ERROR
> declarative were   specified. The status code was 39. From compile unit
> SMFXTRCT at entry point  SMFXTRCT at compile unit offset +0416 at
> address 7786.
> <> LEAID ENTERED (LEVEL 11/20/2015 AT 08.13)
> <> LEAID PROCESSING COMPLETE. RC=0
>
> I tried changing to RECORD CONTAINS  to 32771 but receive error message:
>  IGYGR1224-E  SMF-RECORDS-IN" was greater than the maximum allowable size
> 32767
>
> Is there a way to do this with COBOL.
>

​This is what I found:
https://www.ibm.com/support/knowledgecenter/en/SS6SG3_4.2.0/com.ibm.entcobol.doc_4.2/PGandLR/tasks/tpqsm14.htm

Basically for LBI (tape only), you say:

BLOCK CONTAINS 0 CHARACTERS​



>
> Thanks
>


-- 
"Irrigation of the land with seawater desalinated by fusion power is
ancient. It's called 'rain'." -- Michael McClary, in alt.fusion

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: Read SMF using COBOL

[Steve Beaver]

Add this to your DD Statement

dcb=(eropt=acc)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
Behalf Of Steely.Mark
Sent: Wednesday, March 22, 2017 12:41 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Read SMF using COBOL

I am trying to read SMF data using COBOL for z/OS  4.2.0. This setup use to
work but that was in a past life.

This input is Record Format. . . : VBS, Record Length. . . : 32760 & Block
Size   . . . : 32760. Program IFASMFDP

Cobol File Section:

FD  SMF-RECORDS-IN
RECORDING MODE S
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 32760 CHARACTERS
RECORD CONTAINS 14 TO 32760 CHARACTERS
DATA RECORDS ARE SMF-MIN-REC
 SMF-TYPE14-REC
 SMF-TYPE17-REC
 SMF-TYPE65-REC
 SMF-MAX-REC.
SKIP1
01  SMF-MIN-REC.
12  FILLER  PIC X.
12  SMF-RECORD-TYPE PIC X.
12  FILLER  PIC X(12).
SKIP3
01  SMF-TYPE14-REC.
12  FILLER  PIC X(284).
SKIP3
01  SMF-TYPE17-REC.
12  FILLER  PIC X(232).
SKIP3
01  SMF-TYPE65-REC.
12  FILLER  PIC X(208).
SKIP3
01  SMF-MAX-REC.
12  FILLER  PIC X(32760).
EJECT

Receive error:
IGZ0201W A file attribute mismatch was detected. File SMF-RECORDS-IN in
program  SMFXTRCT had a record length of 32771 and the file specified
in the ASSIGN  clause had a record length of 32760.
IGZ0035S There was an unsuccessful OPEN or CLOSE of file SMFIN in program
SMFXTRCT at  relative location X'0416'. Neither FILE STATUS nor an ERROR
declarative were   specified. The status code was 39. From compile unit
SMFXTRCT at entry point  SMFXTRCT at compile unit offset +0416 at
address 7786.
<> LEAID ENTERED (LEVEL 11/20/2015 AT 08.13) <> LEAID PROCESSING COMPLETE.
RC=0

I tried changing to RECORD CONTAINS  to 32771 but receive error message:
IGYGR1224-E  SMF-RECORDS-IN" was greater than the maximum allowable size
32767

Is there a way to do this with COBOL.

Thanks

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

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

Read SMF using COBOL

[Steely.Mark]

I am trying to read SMF data using COBOL for z/OS  4.2.0. This setup use to 
work but that was in a past life.

This input is Record Format. . . : VBS, Record Length. . . : 32760 & Block Size 
  . . . : 32760. Program IFASMFDP

Cobol File Section:

FD  SMF-RECORDS-IN
RECORDING MODE S
LABEL RECORDS ARE STANDARD
BLOCK CONTAINS 32760 CHARACTERS
RECORD CONTAINS 14 TO 32760 CHARACTERS
DATA RECORDS ARE SMF-MIN-REC
 SMF-TYPE14-REC
 SMF-TYPE17-REC
 SMF-TYPE65-REC
 SMF-MAX-REC.
SKIP1
01  SMF-MIN-REC.
12  FILLER  PIC X.
12  SMF-RECORD-TYPE PIC X.
12  FILLER  PIC X(12).
SKIP3
01  SMF-TYPE14-REC.
12  FILLER  PIC X(284).
SKIP3
01  SMF-TYPE17-REC.
12  FILLER  PIC X(232).
SKIP3
01  SMF-TYPE65-REC.
12  FILLER  PIC X(208).
SKIP3
01  SMF-MAX-REC.
12  FILLER  PIC X(32760).
EJECT

Receive error:
IGZ0201W A file attribute mismatch was detected. File SMF-RECORDS-IN in program 
 SMFXTRCT had a record length of 32771 and the file specified   
   in the ASSIGN  clause had a record length of 32760.
IGZ0035S There was an unsuccessful OPEN or CLOSE of file SMFIN in program 
SMFXTRCT at  relative location X'0416'. Neither FILE STATUS nor an ERROR 
declarative were   specified. The status code was 39. From compile unit 
SMFXTRCT at entry point  SMFXTRCT at compile unit offset +0416 at address 
7786.
<> LEAID ENTERED (LEVEL 11/20/2015 AT 08.13)
<> LEAID PROCESSING COMPLETE. RC=0

I tried changing to RECORD CONTAINS  to 32771 but receive error message:   
IGYGR1224-E  SMF-RECORDS-IN" was greater than the maximum allowable size 32767

Is there a way to do this with COBOL.

Thanks

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

Check out IBM Loads Quantum Computing Onto Its Cloud

[John Mattson]

However, you do not know whether it is on the cloud or not... until you
look.  ; ^ )

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

Re: Spool file

[Joseph Reichman]

Ok will do 

Thanks 



> On Mar 22, 2017, at 10:30 AM, Lizette Koehler  wrote:
> 
> Besides posting the info requested
>   $DSPOOL,ALL
>   $DSPOOLDEF,LONG
> 
> 3.4 listing of dataset on spool volumes
> 
> Include any error message (complete text) that requires you to IPL.
> 
> I am guessing you are seeing HASP message and maybe IEC messages.  But show us
> what you see.
> 
> Thank you 
> 
> Lizette
> 
> 
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
>> Behalf Of Joseph Reichman
>> Sent: Wednesday, March 22, 2017 5:47 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Spool file
>> 
>> I just allocated the dataset SYS1.HASPACE
>> 
>> On all 3 volumes and on the SPOOLDEF
>> 
>> Macro vol prameter had SPOOL
>> 
>> The name of the 3 volumes I have a dataset
>> 
>> SYS1.HASPACE are SPOOL1 SPOOL2 and SPOOL3 I wasn't aware I had to do anything
>> else
>> 
>> Joe Reichman
>> 8045 Newell St Apt 403
>> Silver Spring MD 20910
>> Home (240) 863-3965
>> Cell (917) 748 -9693
>> 
>>> On Mar 22, 2017, at 7:51 AM, Elardus Engelbrecht
>>  wrote:
>>> 
>>> Jousma, David wrote:
>>> 
 If you have never used spool2 and spool3, you will need to start those
>> volumes, and probably format them too.  Then you will want to drain spool1 if
>> you no longer want to use.  This all assumes you have allocated a
>> SYS1.HASPACE(or whatever name you use in SPOOLDEF) dataset on each volume.
>>> 
>>> Good advice! If your STCs are still using spool1, then you're SOL unless you
>> can stop/start them.
>>> 
>>> 
>>> Joseph Reichman wrote:
>>> 
 It's getting corrupted and I have to re-ipl
>>> 
>>> How do you know it is getting corrupted? Do you see any message(s)? Please
>> post these messages if you can.
>>> 
>>> 
 I have 3 vols SPOOL1 SPOOL2 and SPOOL3
>>> 
>>> What are on them? Only Spool datasets? These NON-SMS volsers should or
>> rather MUST have only these datasets on them.
>>> 
>>> What are their attributes? LRECL, BLKSIZE, etc.?
>>> 
>>> Your checkpoint datasets, JES2 parmlibs, etc. must be spread around on your
>> other volumes.
>>> 
>>> Groete / Greetings
>>> Elardus Engelbrecht
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Spool file

[Lizette Koehler]

 Besides posting the info requested
   $DSPOOL,ALL
   $DSPOOLDEF,LONG

3.4 listing of dataset on spool volumes

Include any error message (complete text) that requires you to IPL.

I am guessing you are seeing HASP message and maybe IEC messages.  But show us
what you see.

Thank you 

Lizette


> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Joseph Reichman
> Sent: Wednesday, March 22, 2017 5:47 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Spool file
> 
> I just allocated the dataset SYS1.HASPACE
> 
> On all 3 volumes and on the SPOOLDEF
> 
> Macro vol prameter had SPOOL
> 
> The name of the 3 volumes I have a dataset
> 
> SYS1.HASPACE are SPOOL1 SPOOL2 and SPOOL3 I wasn't aware I had to do anything
> else
> 
> Joe Reichman
> 8045 Newell St Apt 403
> Silver Spring MD 20910
> Home (240) 863-3965
> Cell (917) 748 -9693
> 
> > On Mar 22, 2017, at 7:51 AM, Elardus Engelbrecht
>  wrote:
> >
> > Jousma, David wrote:
> >
> >> If you have never used spool2 and spool3, you will need to start those
> volumes, and probably format them too.  Then you will want to drain spool1 if
> you no longer want to use.  This all assumes you have allocated a
> SYS1.HASPACE(or whatever name you use in SPOOLDEF) dataset on each volume.
> >
> > Good advice! If your STCs are still using spool1, then you're SOL unless you
> can stop/start them.
> >
> >
> > Joseph Reichman wrote:
> >
> >> It's getting corrupted and I have to re-ipl
> >
> > How do you know it is getting corrupted? Do you see any message(s)? Please
> post these messages if you can.
> >
> >
> >> I have 3 vols SPOOL1 SPOOL2 and SPOOL3
> >
> > What are on them? Only Spool datasets? These NON-SMS volsers should or
> rather MUST have only these datasets on them.
> >
> > What are their attributes? LRECL, BLKSIZE, etc.?
> >
> > Your checkpoint datasets, JES2 parmlibs, etc. must be spread around on your
> other volumes.
> >
> > Groete / Greetings
> > Elardus Engelbrecht

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

Re: GREAT presentation on the history of the mainframe

[Charles Mills]

And it's not just a "nostalgia" presentation. I learned things I did not know 
about the thinking inside IBM that led to the 360. And it goes all the way 
through the EC12. Answered my question about Interlocked-Access Facility 2.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of scott Ford
Sent: Wednesday, March 22, 2017 5:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GREAT presentation on the history of the mainframe

Thanks for sharing Charles, like George my operations and systems programming 
background is similar..

Learning BAL on a 360/20 did this while a Oprator on a 360/40 DOS/VS/POWER 
Worked on 370/135 , 370/158 OS/VS2/HASP with TSO and TCAM Worked on 9000 series 
on VM ans VSE On On 

Took me back..loved it

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

Dr. Rainey

[Alford, Ben]

Minor Nit - Dr. Robert Rainey left Oak Ridge National lab for NIU, not UT 
Knoxville.UT lost Joe Morris from UT Knoxville to Mitre.

Ben Alford
Computing at UT since '76
The University of Tennessee



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

Re: Spool file

[Joseph Reichman]

Thank so much for your help as jay will tell you I'm in a Java class 

I'm running z/os 2.2 


I will do when I get home 

Thanks again 



> On Mar 22, 2017, at 9:06 AM, Elardus Engelbrecht 
>  wrote:
> 
> Joseph Reichman wrote:
> 
>> I just allocated the dataset SYS1.HASPACE
>> On all 3 volumes and on the SPOOLDEF
>> Macro vol prameter had SPOOL 
>> The name of the 3 volumes I have a dataset 
>> SYS1.HASPACE are SPOOL1 SPOOL2 and SPOOL3
>> I wasn't aware I had to do anything else 
> 
> Ok. Thanks. Could you be kind to post your SPOOLDEF and all its parameters?
> 
> On what z/OS level are you?
> 
> When you start your JES2, are the results of $DSPOOLDEF the same as your 
> SPOOLDEF statement?
> 
> 
>> It's getting corrupted and I have to re-ipl
> 
> How do you know it is getting corrupted? Do you see any message(s)? Please 
> post these messages if you can.
> 
> Groete / Greetings
> Elardus Engelbrecht
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Spool file

[Elardus Engelbrecht]

Joseph Reichman wrote:

>I just allocated the dataset SYS1.HASPACE
>On all 3 volumes and on the SPOOLDEF
>Macro vol prameter had SPOOL 
>The name of the 3 volumes I have a dataset 
>SYS1.HASPACE are SPOOL1 SPOOL2 and SPOOL3
>I wasn't aware I had to do anything else 

Ok. Thanks. Could you be kind to post your SPOOLDEF and all its parameters?

On what z/OS level are you?

When you start your JES2, are the results of $DSPOOLDEF the same as your 
SPOOLDEF statement?


> It's getting corrupted and I have to re-ipl

How do you know it is getting corrupted? Do you see any message(s)? Please post 
these messages if you can.

Groete / Greetings
Elardus Engelbrecht

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

Re: GREAT presentation on the history of the mainframe

[scott Ford]

Thanks for sharing Charles, like George my operations and systems
programming background is similar..

Learning BAL on a 360/20 did this while a Oprator on a 360/40 DOS/VS/POWER
Worked on 370/135 , 370/158 OS/VS2/HASP with TSO and TCAM
Worked on 9000 series on VM ans VSE
On
On


Took me back..loved it



On Wed, Mar 22, 2017 at 6:59 AM George Rodriguez <
george.rodrig...@palmbeachschools.org> wrote:

> Awesome presentation! My first job coming out of school was at a service
>
> bureau and they had a 360/20 (used to print) 360/30 (most production ran
>
> there) and a 360/40 for testing new apps... This presentation took me back
>
> to those days!
>
>
>
> Thanks for sharing!​
>
>
>
>
>
> *George Rodriguez*
>
> *Specialist II - IT Solutions*
>
> *IT Enterprise Applications*
>
> *PX - 47652*
>
> *(561) 357-7652 (office)*
>
> *(954) 415-7586 (mobile)*
>
> *School District of Palm Beach County*
>
> *3348 Forest Hill Blvd.*
>
> *Room B-251*
>
> *West Palm Beach, FL. 33406-5869*
>
> *Florida's Only A-Rated Urban District For Eight Consecutive Years*
>
>
>
> On Tue, Mar 21, 2017 at 9:40 PM, Edward Finnell <
>
> 000248cce9f3-dmarc-requ...@listserv.ua.edu> wrote:
>
>
>
> > When Dr. Rainey migrated to NIU from UT, Knoxville felt a sense of loss
>
> > never regained. Virtual paddle and all.
>
> >
>
> >
>
> > In a message dated 3/21/2017 4:54:35 P.M. Central Daylight Time,
>
> > charl...@mcn.org writes:
>
> >
>
> > Just  happened to run into this while searching for one specific answer.
>
> > (What  model gave us Interlocked-Access Facility 2? Answer:  EC12)
>
> >
>
> >
>
> > --
>
> > For IBM-MAIN subscribe / signoff / archive access instructions,
>
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> >
>
>
>
> --
>
>
>
>
>
> *Disclaimer: *Under Florida law, e-mail addresses are public records. If
>
> you do not want your e-mail address released in response to a public
>
> records request, do not send electronic mail to this entity. Instead,
>
> contact this office by phone or in writing.
>
>
>
>
>
> --
>
> 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

Re: Spool file

[Joseph Reichman]

I just allocated the dataset SYS1.HASPACE

On all 3 volumes and on the SPOOLDEF

Macro vol prameter had SPOOL 

The name of the 3 volumes I have a dataset 

SYS1.HASPACE are SPOOL1 SPOOL2 and SPOOL3
I wasn't aware I had to do anything else 

Joe Reichman
8045 Newell St Apt 403
Silver Spring MD 20910
Home (240) 863-3965
Cell (917) 748 -9693

> On Mar 22, 2017, at 7:51 AM, Elardus Engelbrecht 
>  wrote:
> 
> Jousma, David wrote:
> 
>> If you have never used spool2 and spool3, you will need to start those 
>> volumes, and probably format them too.  Then you will want to drain spool1 
>> if you no longer want to use.  This all assumes you have allocated a 
>> SYS1.HASPACE(or whatever name you use in SPOOLDEF) dataset on each volume.
> 
> Good advice! If your STCs are still using spool1, then you're SOL unless you 
> can stop/start them.
> 
> 
> Joseph Reichman wrote:
> 
>> It's getting corrupted and I have to re-ipl
> 
> How do you know it is getting corrupted? Do you see any message(s)? Please 
> post these messages if you can.
> 
> 
>> I have 3 vols SPOOL1 SPOOL2 and SPOOL3
> 
> What are on them? Only Spool datasets? These NON-SMS volsers should or rather 
> MUST have only these datasets on them.
> 
> What are their attributes? LRECL, BLKSIZE, etc.?
> 
> Your checkpoint datasets, JES2 parmlibs, etc. must be spread around on your 
> other volumes.
> 
> Groete / Greetings
> Elardus Engelbrecht
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Spool file

[Elardus Engelbrecht]

Jousma, David wrote:

>If you have never used spool2 and spool3, you will need to start those 
>volumes, and probably format them too.  Then you will want to drain spool1 if 
>you no longer want to use.  This all assumes you have allocated a 
>SYS1.HASPACE(or whatever name you use in SPOOLDEF) dataset on each volume.

Good advice! If your STCs are still using spool1, then you're SOL unless you 
can stop/start them.


Joseph Reichman wrote:

>It's getting corrupted and I have to re-ipl

How do you know it is getting corrupted? Do you see any message(s)? Please post 
these messages if you can.


>I have 3 vols SPOOL1 SPOOL2 and SPOOL3

What are on them? Only Spool datasets? These NON-SMS volsers should or rather 
MUST have only these datasets on them.

What are their attributes? LRECL, BLKSIZE, etc.?

Your checkpoint datasets, JES2 parmlibs, etc. must be spread around on your 
other volumes.

Groete / Greetings
Elardus Engelbrecht

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

Re: Spool file

[Jousma, David]

If you have never used spool2 and spool3, you will need to start those volumes, 
and probably format them too.  Then you will want to drain spool1 if you no 
longer want to use.  This all assumes you have allocated a SYS1.HASPACE(or 
whatever name you use in SPOOLDEF) dataset on each volume.

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

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Joseph Reichman
Sent: Tuesday, March 21, 2017 10:48 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Spool file

I have 3 vols SPOOL1 SPOOL2 and SPOOL3

In jes2 parmlib member on the spool def for volume I specify SPOOL and yet 
after ipl'ing 

And then going back to SDSF to look for the  spool volumes are on still on the 
same pack



> On Mar 21, 2017, at 11:20 AM, Lizette Koehler  wrote:
> 
> The best practice for JES2 Spool file is standalone.  Never put 
> anything on the same volume as either the SPOOL Space or the CKPT datasets.
> 
> That can lead to unintentional issues.
> 
> Many shops in the past have tended towards multi-use volumes with 
> JES2.  This is not recommended.
> 
> With storage arrays, you can code a volume as a MOD9 (9GB, 10,017 
> Cylinders) and only place the ckpt or the spool space (not both) on 
> it. The array will typically only hold the amount of storage on the 
> mod9 as is allocated.  It does not hold the entire 10,017 cylinders 
> when you only have a 60 cylinder dataset on it.  As the volume is 
> grown - the array will allocate more space to that device until it reaches 
> its maximum size.
> 
> So, in my shop we have the ckpt on MOD3s and the Spool space on 
> MOD54s.  The MOD3s only use a small portion for the ckpt as the ckpt is under 
> 1000 cylinders.
> The MOD54s are maxed out as I have allocated the entire amount to the 
> Spool space.
> 
> So even though there could be 3339 cylinders allocated for the MOD3, I 
> am using barely 15% of that.  So the volume is not very large even though it 
> could be.
> 
> Or your shop could elect to create MOD1s - which is any size you wish 
> to define
> - for your ckpt and spool space to be considered stand alone.
> 
> When you start to mix files on volumes that should be dedicated - CA1 
> TMS, JES Spool or JES ckpt - you can enq that volume and cause issues to 
> those products.
> 
> 
> Worst case scenario you might encounter is the need to cold start jes2.
> 
> Lizette
> 
> 
>> -Original Message-
>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] 
>> On Behalf Of Joseph Reichman
>> Sent: Tuesday, March 21, 2017 5:47 AM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Spool file
>> 
>> Hi
>> 
>> I'm having problems with my spool file
>> 
>> SYS1.HASPACE
>> 
>> 
>> It happens to be in the same pack as my parmlib And other important 
>> files
>> 
>> I'm wondering can the spool file be on any pack ?
>> 
>> Thanks
>> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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


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: GREAT presentation on the history of the mainframe

[George Rodriguez]

Awesome presentation! My first job coming out of school was at a service
bureau and they had a 360/20 (used to print) 360/30 (most production ran
there) and a 360/40 for testing new apps... This presentation took me back
to those days!

Thanks for sharing!​


*George Rodriguez*
*Specialist II - IT Solutions*
*IT Enterprise Applications*
*PX - 47652*
*(561) 357-7652 (office)*
*(954) 415-7586 (mobile)*
*School District of Palm Beach County*
*3348 Forest Hill Blvd.*
*Room B-251*
*West Palm Beach, FL. 33406-5869*
*Florida's Only A-Rated Urban District For Eight Consecutive Years*

On Tue, Mar 21, 2017 at 9:40 PM, Edward Finnell <
000248cce9f3-dmarc-requ...@listserv.ua.edu> wrote:

> When Dr. Rainey migrated to NIU from UT, Knoxville felt a sense of loss
> never regained. Virtual paddle and all.
>
>
> In a message dated 3/21/2017 4:54:35 P.M. Central Daylight Time,
> charl...@mcn.org writes:
>
> Just  happened to run into this while searching for one specific answer.
> (What  model gave us Interlocked-Access Facility 2? Answer:  EC12)
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

-- 


*Disclaimer: *Under Florida law, e-mail addresses are public records. If 
you do not want your e-mail address released in response to a public 
records request, do not send electronic mail to this entity. Instead, 
contact this office by phone or in writing.


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

Re: ComputerWorld Says: Cobol plays major role in U.S. government breaches

[John Crossno]

Came across another article on this same subject. Almost seems that the two
authors collaborated (colluded?) in producing their versions of the
articles.
http://www.computing.co.uk/ctg/news/3006897/legacy-cobol-code-an-increasing-problem-in-computer-security-claims-research




"Common sense is not so common."
 * Voltaire, Dictionnaire Philosophique (1764)



On Tue, Mar 21, 2017 at 1:54 PM, Mike Schwab 
wrote:

> https://en.wikipedia.org/wiki/Export_of_cryptography_from_
> the_United_States
> Just made other countries share their non-us encryption software.
>
> On Mon, Mar 20, 2017 at 11:33 AM, Martin Packer
>  wrote:
> > Not to disagree with anything anyone has said, I think one thing might
> > work against us:
> >
> > I don't know when restrictions on encryption were lifted but when I first
> > was involved with encryption in the late 1980's it was pretty restrictive
> > who could have it.
> >
> > So the point is - because of the restricted availability - it's possible
> > the injection of encryption into sites and applications might be less
> than
> > desirable.
> >
> > But I hope the world has changed enough for most sites to have caught up
> > with the need to implement it.
> >
> > 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
> >
> > Podcast Series (With Marna Walle): https://developer.ibm.com/tv/mpt/
> or
> >
> > https://itunes.apple.com/gb/podcast/mainframe-performance-
> topics/id1127943573?mt=2
> >
> >
> >
> > From:   Todd Arnold 
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date:   20/03/2017 16:06
> > Subject:Re: ComputerWorld Says: Cobol plays major role in U.S.
> > government breaches
> > Sent by:IBM Mainframe Discussion List 
> >
> >
> >
> > Gee, I've been developing crypto technology for 30+ years that runs in
> > those environments - so it's certainly news to me that it can't be done
> > :-)
> >
> > Looking at the ICSF Application Programmer's Guide, which defines the
> ways
> > most z/OS applications get cryptographic services, I see this:
> >
> >   ICSF callable services can be called from application programs written
> > in a number
> >   of high-level languages as well as assembler. The high-level languages
> > are:
> > - C
> > - COBOL
> > - FORTRAN
> > - PL/I
> >
> > --
> > 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
>
>
>
> --
> 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: ADR144E

[Elardus Engelbrecht]

Peter Hunkeler wrote:

>>In that OP's job, I see UNIT=3390, that is DASD, not tape. I agree that job 
>>is looking at VTOC, not Catalog.

>How embarrassing. I don't know what fooled me to believe it was about tape 
>data sets. Maybe the NOTAPE DDname, but that one was OUTDDNAME, in combination 
>with TD as VOL=SER?

I also believed initially it is about tape until I see UNIT, but hey, I also 
make errors too and sometimes I posted something (wrong advice for example) 
which really embarrasses me. [1] 

(Oh, you can be cruel and swap around 3490 with 3390 in you device group 
tables... ;-D )


>Anyway, I'm sorry for the confusion this may have caused.

No need to apologize. I really value your educational postings. Please keep up 
with your good work!

Groete / Greetings
Elardus Engelbrecht

[1] - There is nothing on LSoft web pages, e-mail clients and similar software 
with a delayed send functionality. That delay may spare some nasty ps.

Apparently, WhatsApp does have a delete function, but that only works if the 
receiver does NOT receive (and later read it) it on its device.

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

Re: Need to extract IODF file into text formate

[Field, Alan]

In the HCD dialog

Select 2.  Activate or Process Configuration Data 
Then
3.  Build IOCP input data set 

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Shashi Kumar
Sent: Wednesday, March 22, 2017 1:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Need to extract IODF file into text formate

CAUTION:  This email originated outside of the organization.
 DO NOT CLICK links or open attachments unless you recognize the sender and 
know the content is safe.

__
Hi All,

I need to extract current IODF files as well as DR IODF in a text formate.
How can I extract, Please need some help

Thanks!!!

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


This email and any files transmitted with it are confidential and intended 
solely for the use of the individual or entity to whom they are addressed. If 
you are not the named addressee you must not disseminate, distribute or copy 
this e-mail. Please notify the sender immediately by e-mail if you have 
received this e-mail by mistake and delete this e-mail from your system. If you 
are not the intended recipient you are notified that disclosing, copying, 
distributing or taking any action in reliance on the contents of this 
information is strictly prohibited.


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

Re: Need to extract IODF file into text formate

[גדי בן אבי]

You can run a report from within the HCD dialog
Check out option 3.1

Gadi

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Shashi Kumar
Sent: Wednesday, March 22, 2017 8:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Need to extract IODF file into text formate

Hi All,

I need to extract current IODF files as well as DR IODF in a text formate.
How can I extract, Please need some help

Thanks!!!

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
לתשומת ליבך, בהתאם לנהלי חברת מלם מערכות בע"מ ו/או כל חברת בת ו/או חברה קשורה 
שלה (להלן : "החברה") וזכויות החתימה בהן, כל הצעה, התחייבות או מצג מטעם החברה, 
מחייבים מסמך נפרד וחתום על ידי מורשי החתימה של החברה, הנושא את לוגו החברה או 
שמה המודפס ובצירוף חותמת החברה. בהעדר מסמך כאמור (לרבות מסמך סרוק) המצורף 
להודעת דואר אלקטרוני זאת, אין לראות באמור בהודעה אלא משום טיוטה לדיון, ואין 
להסתמך עליה לביצוע פעולה עסקית או משפטית כלשהי. Please note that in accordance 
with Malam and/or its subsidiaries (hereinafter : "Malam") regulations and 
signatory rights, no offer, agreement, concession or representation is binding 
on the Malam, unless accompanied by a duly signed separate document (or a 
scanned version thereof), affixed with the Malam seal.

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

Need to extract IODF file into text formate

[Shashi Kumar]

Hi All,

I need to extract current IODF files as well as DR IODF in a text formate.
How can I extract, Please need some help

Thanks!!!

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

Re: ADR144E

[Peter Hunkeler]

I am trying to troubleshoot a user's job which is using ADRDSSU.
>>>That job is DELETING the datasets on the selected volsers. Is that what the 
>>>user wants?
 >>
>>Does it? The JCL is referring to the tape by VOL=SER=, not via catalog.
 >
>In that OP's job, I see UNIT=3390, that is DASD, not tape. I agree that job is 
>looking at VTOC, not Catalog.



How embarrassing. I don't know what fooled me to believe it was about tape data 
sets. Maybe the NOTAPE DDname, but that one was OUTDDNAME, in combination with 
TD as VOL=SER?


Anyway, I'm sorry for the confusion this may have caused.


--
Peter Hunkeler

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