REXX Testing a bit?

[Lionel B. Dyck]

What is the best way to test if a bit is 1 or 0?

 

I'm doing this but was thinking there may/probably is a better way:

 

If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'

 

 

Lionel B. Dyck <><

Website:   https://www.lbdsoftware.com

Github:   https://github.com/lbdyck

 

"Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are."   - - - John Wooden

 


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

Re: REXX Testing a bit?

[David Spiegel]

Hi Lionel,
(assuming Rexx) you can omit "=1"

Regards,
David

On 2022-08-02 07:50, Lionel B. Dyck wrote:

What is the best way to test if a bit is 1 or 0?

  


I'm doing this but was thinking there may/probably is a better way:

  


If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'

  

  


Lionel B. Dyck <><

Website:  

 
https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.lbdsoftware.com%2F&data=05%7C01%7C%7Ccc1e9338f8394f1904cb08da747d372a%7C84df9e7fe9f640afb435%7C1%7C0%7C637950378433404515%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=fLnRqUbAjMhhMGALjlZVtFw%2BWZjF91dxjPmezCDeis4%3D&reserved=0

Github:  

 
https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgithub.com%2Flbdyck&data=05%7C01%7C%7Ccc1e9338f8394f1904cb08da747d372a%7C84df9e7fe9f640afb435%7C1%7C0%7C637950378433404515%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=WSxsbepwoLIuGFflWOUFpLpA3kRLZGNl0GLeDJLZsww%3D&reserved=0

  


"Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are."   - - - John Wooden

  



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


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

Re: REXX Testing a bit?

[Billy Ashton]

I usually am displaying something depending on the bit setting, so I 
wrote a small proc:


/**
 * BITSW function: to test a bit for a value and return translation   *
 **/
BitSw:
tr$ = Trace(o);;

   test_str = Arg(1);
   test_bit = Arg(2);
   test_ret = Arg(3);

   Return Translate(Substr(x2b(test_str),test_bit,1),test_ret,"01");


You could use it like this:
mystring = BitSw(flag1,6,"NY")

This means:
Test the setting of bit 6 of the flag1 variable
Translate to the values I pass in (N, Y) from the bit value of 0, 1


Another simple way you could do it is to build your test mask (bit 6 
on), and use this:

If C2X(Bitand(flag1,'0100'b)) > 0 Then say "got it"

Thank you and best regards,
Billy Ashton

-- Original Message --

From "Lionel B. Dyck" 

To IBM-MAIN@listserv.ua.edu
Date 8/2/2022 7:50:10 AM
Subject REXX Testing a bit?


What is the best way to test if a bit is 1 or 0?



I'm doing this but was thinking there may/probably is a better way:



If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'





Lionel B. Dyck <><

Website:   https://www.lbdsoftware.com

Github:   https://github.com/lbdyck



"Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are."   - - - John Wooden




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


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

Re: REXX Testing a bit?

[Itschak Mugzach]

i use if (bitand(xxx) = x'80') (or any other hex value that match your bit
position

ITschak

*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
and IBM I **|  *

*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*





On Tue, Aug 2, 2022 at 3:39 PM David Spiegel 
wrote:

> Hi Lionel,
> (assuming Rexx) you can omit "=1"
>
> Regards,
> David
>
> On 2022-08-02 07:50, Lionel B. Dyck wrote:
> > What is the best way to test if a bit is 1 or 0?
> >
> >
> >
> > I'm doing this but was thinking there may/probably is a better way:
> >
> >
> >
> > If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'
> >
> >
> >
> >
> >
> > Lionel B. Dyck <><
> >
> > Website:  <
> https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.lbdsoftware.com%2F&data=05%7C01%7C%7Ccc1e9338f8394f1904cb08da747d372a%7C84df9e7fe9f640afb435%7C1%7C0%7C637950378433404515%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=fLnRqUbAjMhhMGALjlZVtFw%2BWZjF91dxjPmezCDeis4%3D&reserved=0>
>
> https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.lbdsoftware.com%2F&data=05%7C01%7C%7Ccc1e9338f8394f1904cb08da747d372a%7C84df9e7fe9f640afb435%7C1%7C0%7C637950378433404515%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=fLnRqUbAjMhhMGALjlZVtFw%2BWZjF91dxjPmezCDeis4%3D&reserved=0
> >
> > Github:  <
> https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgithub.com%2Flbdyck&data=05%7C01%7C%7Ccc1e9338f8394f1904cb08da747d372a%7C84df9e7fe9f640afb435%7C1%7C0%7C637950378433404515%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=WSxsbepwoLIuGFflWOUFpLpA3kRLZGNl0GLeDJLZsww%3D&reserved=0>
>
> https://nam12.safelinks.protection.outlook.com/?url=https%3A%2F%2Fgithub.com%2Flbdyck&data=05%7C01%7C%7Ccc1e9338f8394f1904cb08da747d372a%7C84df9e7fe9f640afb435%7C1%7C0%7C637950378433404515%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=WSxsbepwoLIuGFflWOUFpLpA3kRLZGNl0GLeDJLZsww%3D&reserved=0
> >
> >
> >
> > "Worry more about your character than your reputation. Character is what
> you
> > are, reputation merely what others think you are."   - - - John Wooden
> >
> >
> >
> >
> > --
> > 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: REXX Testing a bit?

[Dale R. Smith]

On Tue, 2 Aug 2022 06:50:10 -0500, Lionel B. Dyck  wrote:

>What is the best way to test if a bit is 1 or 0?
>
>
>
>I'm doing this but was thinking there may/probably is a better way:
>
>
>
>If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'
>
>
>
>
>
>Lionel B. Dyck <><

Assuming flag1 is a one byte field:
If BitAnd(flag1,'40'x) == '40 × Then Say 'got it'

Make sure you use exactly equal (==) especially when testing for hex 40!

-- 
Dale R. Smith

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

Re: REXX Testing a bit?

[Colin Paice]

if BITAND(invalue,  '01'x)  =  '01'x


On Tue, 2 Aug 2022 at 12:50, Lionel B. Dyck  wrote:

> What is the best way to test if a bit is 1 or 0?
>
>
>
> I'm doing this but was thinking there may/probably is a better way:
>
>
>
> If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'
>
>
>
>
>
> Lionel B. Dyck <><
>
> Website:   https://www.lbdsoftware.com
>
> Github:   https://github.com/lbdyck
>
>
>
> "Worry more about your character than your reputation. Character is what
> you
> are, reputation merely what others think you are."   - - - John Wooden
>
>
>
>
> --
> 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

Celebrating 50 Years of Virtualization Innovation

[Dave Jones]

From Kerry Wilson at IBM:
August 2, 1972 was the day IBM officially announced VM as a product.   To help 
recognize the past 50 years of achievements and innovation by VM and the 
community I have created a few web pages in honor of the occasion:

 

IBM VM 50th anniversary - https://www.vm.ibm.com/history/50th/index.html
VM Timeline - https://www.vm.ibm.com/history/timeline.html
VM history and heritage (updated) - 
https://www.vm.ibm.com/history/index.html

 

Enjoy!

 

Many thanks to Max Campbell at the IBM Archives who supplied many of the videos 
and documents.  Thank you to Melinda Varian and Jim Elliott who both created 
remarkable historical accounts of VM and are linked on the third bullet above.  
If anyone wants to learn more those two documents are incredible.  I also 
wanted to acknowledge Bill Bitner, Lauren Maietti and Jacob Gagnon who put up 
with me talking about this the past few months and providing feedback along the 
way. We have some more planned, so please check back or subscribe for updates. 

 

Thank you!

 

 

 

Kerry Andrew Wilson

Software Engineer

z/VM Development

1 607 429 3008 Office

ker...@us.ibm.com

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

RES: Celebrating 50 Years of Virtualization Innovation

[Bodra - Pessoal]

Nice Material It made my mind fly back to 1975 when I started in the 
industry!!


Carlos Bodra
IBM zEnterprise Certified
São Paulo – SP – Brazil


-Mensagem original-
De: IBM Mainframe Discussion List  Em nome de Dave 
Jones
Enviada em: terça-feira, 2 de agosto de 2022 09:54
Para: IBM-MAIN@LISTSERV.UA.EDU
Assunto: Celebrating 50 Years of Virtualization Innovation

>From Kerry Wilson at IBM:
August 2, 1972 was the day IBM officially announced VM as a product.   To help 
recognize the past 50 years of achievements and innovation by VM and the 
community I have created a few web pages in honor of the occasion:

 

IBM VM 50th anniversary - https://www.vm.ibm.com/history/50th/index.html
VM Timeline - https://www.vm.ibm.com/history/timeline.html
VM history and heritage (updated) - 
https://www.vm.ibm.com/history/index.html

 

Enjoy!

 

Many thanks to Max Campbell at the IBM Archives who supplied many of the videos 
and documents.  Thank you to Melinda Varian and Jim Elliott who both created 
remarkable historical accounts of VM and are linked on the third bullet above.  
If anyone wants to learn more those two documents are incredible.  I also 
wanted to acknowledge Bill Bitner, Lauren Maietti and Jacob Gagnon who put up 
with me talking about this the past few months and providing feedback along the 
way. We have some more planned, so please check back or subscribe for updates. 

 

Thank you!

 

 

 

Kerry Andrew Wilson

Software Engineer

z/VM Development

1 607 429 3008 Office

ker...@us.ibm.com

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

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

Re: REXX Testing a bit?

[Paul Gilmartin]

On Tue, 2 Aug 2022 07:43:17 -0500, Dale R. Smith wrote:

>On Tue, 2 Aug 2022 06:50:10 -0500, Lionel B. Dyck wrote:
>>
>>If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'
>> 
Some say "= 1" is superfluous, pleonasm.  However:

o Others say it adds clarity.

o Others insist on maintaining the notional distinction between boolean and 
other types.

>Assuming flag1 is a one byte field:
>If BitAnd(flag1,'40'x) == '40 × Then Say 'got it'
>
>Make sure you use exactly equal (==) especially when testing for hex 40!
> 
I'm more comfortable with "\== '00'x", especially when emulating TM.

-- 
gil

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

Re: REXX Testing a bit?

[Billy Ashton]

If you will be doing many of these kinds of tests, you can create a 
simple proc to tell you if the bit is on:


BitOn:
   If Arg(2) > Length(Arg(1)) * 8 Then Return 9;

   tval = Overlay('1',X2B(C2X(Copies('00'x,Length(Arg(1),Arg(2),1);
   tval = X2C(B2X(tval));
Return C2X(BitAnd(Arg(1),tval)) > 0;

The first test will return a 9 if you make an error, like specify Bit 9 
of a 1-byte field. Otherwise, it will return a 1 or 0 as True or False 
indicating the bit is on or not. Note that it will work on multi-byte or 
single-byte values.


Examples:
If BitOn("AC",15) Then Say "It is on"---> RC (1): It is on
If BitOn("ABC",26) Then Say "It is on"  ---> RC (9): null
If BitOn("A",4) Then Say "It is on"---> RC (0): null


Thank you and best regards,
Billy Ashton

-- Original Message --

From "Billy Ashton" 

To "IBM Mainframe Discussion List" 
Date 8/2/2022 8:40:49 AM
Subject Re: REXX Testing a bit?


I usually am displaying something depending on the bit setting, so I wrote a 
small proc:

/**
 * BITSW function: to test a bit for a value and return translation   *
 **/
BitSw:
tr$ = Trace(o);;

   test_str = Arg(1);
   test_bit = Arg(2);
   test_ret = Arg(3);

   Return Translate(Substr(x2b(test_str),test_bit,1),test_ret,"01");


You could use it like this:
mystring = BitSw(flag1,6,"NY")

This means:
Test the setting of bit 6 of the flag1 variable
Translate to the values I pass in (N, Y) from the bit value of 0, 1


Another simple way you could do it is to build your test mask (bit 6 on), and 
use this:
If C2X(Bitand(flag1,'0100'b)) > 0 Then say "got it"

Thank you and best regards,
Billy Ashton

-- Original Message --
From "Lionel B. Dyck" 
To IBM-MAIN@listserv.ua.edu
Date 8/2/2022 7:50:10 AM
Subject REXX Testing a bit?


What is the best way to test if a bit is 1 or 0?



I'm doing this but was thinking there may/probably is a better way:



If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'





Lionel B. Dyck <><

Website:   https://www.lbdsoftware.com

Github:   https://github.com/lbdyck



"Worry more about your character than your reputation. Character is what you
are, reputation merely what others think you are."   - - - John Wooden




--
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: Running z/OS 1.12 apps on 2.4

[Farley, Peter x23353]

EasyTrieve is both interpreted and compiled.  Not entirely sure of the 
internals ("compiled" may only be "store the interpretable code in an 
executable" like compiled Rexx), but EasyTrieve programs can be run as source 
or compiled to an executable program.

Peter

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Charles Mills
Sent: Monday, August 1, 2022 7:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Running z/OS 1.12 apps on 2.4

Echoing what others have said, upward OS compatibility for compiled and linked 
applications is a hallmark of MVS and its descendants. I would be stunned if 
you had a problem with the COBOL apps. Trust but verify: you might want to run 
a test or two on the new hardware. And it's not the end of the world, right? 
You/they *could* recompile a failing application?

Is Easytrieve interpreted or compiled? My recollection is interpreted. If so, 
it's hard to see how there could be an upward compatibility problem.

Charles
--

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


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

Re: REXX Testing a bit?

[Lionel B. Dyck]

Thank you all for your suggestions. This is the 1st time in decades that I've 
had a need and I may not run into a need again for many years. I was thinking 
there had to be a better way and I've learned several techniques that are now 
in my tool kit for the future.


Lionel B. Dyck <><
Website: https://www.lbdsoftware.com
Github: https://github.com/lbdyck

“Worry more about your character than your reputation. Character is what you 
are, reputation merely what others think you are.”   - - - John Wooden

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Billy Ashton
Sent: Tuesday, August 2, 2022 8:29 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: REXX Testing a bit?

If you will be doing many of these kinds of tests, you can create a simple proc 
to tell you if the bit is on:

BitOn:
If Arg(2) > Length(Arg(1)) * 8 Then Return 9;

tval = Overlay('1',X2B(C2X(Copies('00'x,Length(Arg(1),Arg(2),1);
tval = X2C(B2X(tval));
Return C2X(BitAnd(Arg(1),tval)) > 0;

The first test will return a 9 if you make an error, like specify Bit 9 of a 
1-byte field. Otherwise, it will return a 1 or 0 as True or False indicating 
the bit is on or not. Note that it will work on multi-byte or single-byte 
values.

Examples:
If BitOn("AC",15) Then Say "It is on"---> RC (1): It is on
If BitOn("ABC",26) Then Say "It is on"  ---> RC (9): null
If BitOn("A",4) Then Say "It is on"---> RC (0): null


Thank you and best regards,
Billy Ashton

-- Original Message --
>From "Billy Ashton"  To "IBM Mainframe Discussion 
>List"  Date 8/2/2022 8:40:49 AM Subject Re: REXX 
>Testing a bit?

>I usually am displaying something depending on the bit setting, so I wrote a 
>small proc:
>
>/**
>  * BITSW function: to test a bit for a value and return translation   *
>  
>**/
>BitSw:
>tr$ = Trace(o);;
>
>test_str = Arg(1);
>test_bit = Arg(2);
>test_ret = Arg(3);
>
>Return Translate(Substr(x2b(test_str),test_bit,1),test_ret,"01");
>
>
>You could use it like this:
>mystring = BitSw(flag1,6,"NY")
>
>This means:
>Test the setting of bit 6 of the flag1 variable Translate to the values 
>I pass in (N, Y) from the bit value of 0, 1
>
>
>Another simple way you could do it is to build your test mask (bit 6 on), and 
>use this:
>If C2X(Bitand(flag1,'0100'b)) > 0 Then say "got it"
>
>Thank you and best regards,
>Billy Ashton
>
>-- Original Message --
>From "Lionel B. Dyck"  To IBM-MAIN@listserv.ua.edu 
>Date 8/2/2022 7:50:10 AM Subject REXX Testing a bit?
>
>>What is the best way to test if a bit is 1 or 0?
>>
>>
>>
>>I'm doing this but was thinking there may/probably is a better way:
>>
>>
>>
>>If substr(x2b(c2x(flag1)),6,1)  = 1 then say 'got  it'
>>
>>
>>
>>
>>
>>Lionel B. Dyck <><
>>
>>Website:   https://www.lbdsoftware.com
>>
>>Github:   https://github.com/lbdyck
>>
>>
>>
>>"Worry more about your character than your reputation. Character is what you
>>are, reputation merely what others think you are."   - - - John Wooden
>>
>>
>>
>>
>>--
>>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: Celebrating 50 Years of Virtualization Innovation

[Seymour J Metz]

What about CP-67?


From: IBM Mainframe Discussion List  on behalf of 
Dave Jones 
Sent: Tuesday, August 2, 2022 8:53 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Celebrating 50 Years of Virtualization Innovation

>From Kerry Wilson at IBM:
August 2, 1972 was the day IBM officially announced VM as a product.   To help 
recognize the past 50 years of achievements and innovation by VM and the 
community I have created a few web pages in honor of the occasion:



IBM VM 50th anniversary - 
https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.vm.ibm.com%2Fhistory%2F50th%2Findex.html&data=05%7C01%7Csmetz3%40gmu.edu%7C07ab0c58c26841056bd708da74860c4b%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637950416327647843%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=onNCQTPJHK3grMTsOXp%2BSmcTQV96on4MsezaxTIJat4%3D&reserved=0
VM Timeline - 
https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.vm.ibm.com%2Fhistory%2Ftimeline.html&data=05%7C01%7Csmetz3%40gmu.edu%7C07ab0c58c26841056bd708da74860c4b%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637950416327647843%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=7aufwxXol07CFpFigcAwlTvRvbUsKO2hBdUQVSz3JxI%3D&reserved=0
VM history and heritage (updated) - 
https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.vm.ibm.com%2Fhistory%2Findex.html&data=05%7C01%7Csmetz3%40gmu.edu%7C07ab0c58c26841056bd708da74860c4b%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637950416327647843%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=SCozqz7zgfIjEcqmVtr4%2FBr%2BaTWMLoHr4Kf%2BRmq%2ByB4%3D&reserved=0



Enjoy!



Many thanks to Max Campbell at the IBM Archives who supplied many of the videos 
and documents.  Thank you to Melinda Varian and Jim Elliott who both created 
remarkable historical accounts of VM and are linked on the third bullet above.  
If anyone wants to learn more those two documents are incredible.  I also 
wanted to acknowledge Bill Bitner, Lauren Maietti and Jacob Gagnon who put up 
with me talking about this the past few months and providing feedback along the 
way. We have some more planned, so please check back or subscribe for updates.



Thank you!







Kerry Andrew Wilson

Software Engineer

z/VM Development

1 607 429 3008 Office

ker...@us.ibm.com

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

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

Re: Celebrating 50 Years of Virtualization Innovation

[Dave Jones]

For sure, CP-67 (and before that even, CP-40) is a direct ancestor of z/VM. It 
was an IBM Research project and IBM only made it available to a small set of 
key customers. We celebrate today as VM's anniversary because that's when IBM 
announced VM/370 as an official supported product that anyone could order 
simply by calling up their friendly, helpful IBM sales rep.
See:
  https://www.vm.ibm.com/history/timeline.html

DJ

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

Re: Extending a VTOC

[Jack Zukt]

Thank you all for your input.
Unfortunately I do not have FDR on this system. That would be a very good
option (my problem is with files that have enqueues from active STCs, such
as a few CICS address spaces. And the next programmed IPL is still a long
way away... And this is a model 27 that on which was placed a VTOC that
would be small on a  model 3. So, there is free space on the DASD but not
on the VTOC.
Best regards,
Jack

On Mon, 1 Aug 2022 at 20:16, willie bunter <
001409bd2345-dmarc-requ...@listserv.ua.edu> wrote:

>  If you have FDR they have a very safe way of extending the VTOC.  I have
> done it multiple times sometimes at 3 a.m.
> Willie
>
>
> On Monday, August 1, 2022 at 06:15:35 a.m. EDT, Jack Zukt <
> jzuk...@gmail.com> wrote:
>
>  Hi all,
> It has been way too many years since the last time I dabbled with ICKDSF
> and VTOC definitions (probably over twenty, but I would rather not do the
> math).
> Back on those days, if memory serves me right, the only way to extend a
> VTOC was to clean the DASD of all its contents, put it offline, and
> recreate the VTOC with the new size. As a few years have passed, I have
> been going through the ICKDSF manual trying to find out if a VTOC can be
> extended without having to clear the volume first. I can not say that I
> have became enlightened. It seems to be possible but I am not quite sure
> about it. And this being a production volume I really would hate if things
> do not work as expected.
> So, in a nut shell, can I extend a VTOC from 90 to 900 tracks without
> having first to clean the DASD of all its files?
> Thank you in advance for any help,
> Best regards
> Jack
>
> --
> 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: [EXTERNAL] I knew Cobol 6.3 takes more resources to compile than 4.2 but should I be concerned about how much?

[Pommier, Rex]

Hi list,

I got a resolution for this compile-time issue yesterday and installed it on my 
sandbox this morning.  PTF UI81630 (the July accum maintenance) has the fix in 
it.  After installing the fix, the 3 INITCHECK options perform in essentially 
the same amount of resources.  TCB time for the INITCHECK(LAX) as well as 
STRICT dropped by 90%, back to the roughly 54 CPU seconds.

Thank you, IBM Cobol team for sticking with it and fixing the issue.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Wednesday, May 4, 2022 11:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [EXTERNAL] I knew Cobol 6.3 takes more resources to compile than 
4.2 but should I be concerned about how much?

Hi list,

I have an update on this issue.  I opened a ticket with IBM and I'm thinking 
they are thinking there may be an issue with the compiler because they're still 
looking at it to see if the CPU time can be improved.  As I said earlier, we 
have multiple programs and at this point only 1 of them is behaving this bad.  
Going from .3 TCB seconds under Cobol 4.2 to 520 TCB seconds under 6.3 seems 
more than a bit excessive.

IBM came back to me with a response stating that the INITCHECK compiler option 
is the culprit.  We have this option set at INITCHECK(LAX) across the board and 
it normally doesn't cause heartburn - except in this one program.  I compiled 
the program with NOINITCHECK and the TCB time dropped by almost 90%, from 520 
seconds to 54.  Paging disappeared as storage requirements dropped by close to 
95%.  

Thank you to IBM for finding the problem as well as continuing to look to see 
if there is in fact a problem with the compiler.  Thank you also to the 
IBM-Main soldiers who are willing to lend a hand when this type of weird thing 
crops up.

More to come.

Rex

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Pommier, Rex
Sent: Monday, April 18, 2022 3:18 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] I knew Cobol 6.3 takes more resources to compile than 4.2 
but should I be concerned about how much?

Hi list,

Should I be concerned about the amount of resources Cobol 6.3 is occasionally 
using as compared to 4.2?  I have one particular example that was brought to 
our attention due to the fact that we ran out of page space in our small shop.  
I finally got it to compile after tripling my page space.  It is a CICS program 
and is only 11270 lines long.  I am compiling with Expediter, but have 
optimization(0) configured so there is no additional compile-time processing 
being done to optimize the load module.   I removed Expediter and still had the 
issues.  Here are my comparisons.  Has anybody else seen this kind of huge 
increase?


Cobol42 without Expediter  TCB .00499 minuteswall clock 2 seconds  paging 0 
  serv  14956
Cobol42 with Expediter   TCB  .0138 minutes   wall clock 2 seconds   paging 0   
serv 39158
Cobol63 without Expediter  TCB  8.665 minutes   wall clock 31 minutes  paging 
3185K   serv  23,371,699
Cobol63 with Expediter  TCB  8.519 minutes  wall clock 23 minutes  paging 4522K 
  serv  22,980,890

I will be opening a ticket with IBM but was wondering if anybody else has seen 
this kind of spike.  I have only seen this on one program and I have had my 
developers compile hundreds of programs.  I've seen CPU and wall clock time 
increases but nothing like this.  Obviously wall clock time is so variable due 
to other tasks running, I just included it to show the drastic increase.  2 
seconds to 23-31 minutes is insane.

Thanks,

Rex

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful. If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format. Thank you.

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

--
The information contained in this message is confidential, protected from 
disclosure and may be legally privileged. If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on i

Logstreams

[Steve Beaver]

Has anyone ever created a LOGSTREAM on an M54 of 65000 cylinders. 

 

I have a very, very busy CICS and DB2 on the same LPAR

 

Thanks


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

Re: Logstreams

[Michael Oujesky]

You might consider splitting the data into multiple logstreams.

Michael


At 12:41 PM 8/2/2022, Steve Beaver wrote:

Has anyone ever created a LOGSTREAM on an M54 of 65000 cylinders.



I have a very, very busy CICS and DB2 on the same LPAR



Thanks


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


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

Re: Celebrating 50 Years of Virtualization Innovation

[Seymour J Metz]

Despite   its status, CP-67 was used enough that several companies offered 
time-sharing services on it.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Dave Jones [d...@vsoft-software.com]
Sent: Tuesday, August 2, 2022 1:00 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Celebrating 50 Years of Virtualization Innovation

For sure, CP-67 (and before that even, CP-40) is a direct ancestor of z/VM. It 
was an IBM Research project and IBM only made it available to a small set of 
key customers. We celebrate today as VM's anniversary because that's when IBM 
announced VM/370 as an official supported product that anyone could order 
simply by calling up their friendly, helpful IBM sales rep.
See:
  
https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.vm.ibm.com%2Fhistory%2Ftimeline.html&data=05%7C01%7Csmetz3%40gmu.edu%7C50742c1885344eec143e08da74a8a1f8%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637950564925885382%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=cuvUX6jFFP98%2Fm90MciZcuRWQu96ZZc%2FxYKamM1rJYQ%3D&reserved=0

DJ

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

[Radoslaw Skorupka]

W dniu 02.08.2022 o 19:41, Steve Beaver pisze:

Has anyone ever created a LOGSTREAM on an M54 of 65000 cylinders.

  


I have a very, very busy CICS and DB2 on the same LPAR


No, never, even close to such huge size. I'm talking about very busy and 
overloaded CICS region with DB2 on same LPAR

(200M trn/day, up to 4000 trn/s).

--
Radoslaw Skorupka
Lodz, Poland

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

Re: Celebrating 50 Years of Virtualization Innovation

[Charles Mills]

For sure. I used CP-67 at a service bureau in NYC or perhaps NJ in 1968. The 
name "Timeshare Inc." comes to mind but I am not sure that is correct.

Charles

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

Re: Celebrating 50 Years of Virtualization Innovation

[Paul Gilmartin]

On Tue, 2 Aug 2022 15:44:30 -0500, Charles Mills  wrote:

>For sure. I used CP-67 at a service bureau in NYC or perhaps NJ in 1968. The 
>name "Timeshare Inc." comes to mind but I am not sure that is correct.
> 
?

-- 
gil

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

Re: Celebrating 50 Years of Virtualization Innovation

[Charles Mills]

Yes, but

https://cacm.acm.org/magazines/2009/5/24642-the-rise-fall-and-resurrection-of-software-as-a-service/fulltext

(Watch the wrap.)

About the middle of the article:

"The timesharing industry recovered, however. In the 1970s major players 
included General Electric, Timeshare Inc., and CDC. They built massive global 
computer centers that serviced thousands of users. By then those clunky 
teletypes had been replaced with visual display units, or "glass teletypes" as 
they were sometimes known."

I recall Tymshare. I think this was Timeshare, Inc.

Charles

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

Re: Celebrating 50 Years of Virtualization Innovation

[Seymour J Metz]

Weren't National CSS and STSC fairly large?


From: IBM Mainframe Discussion List  on behalf of 
Charles Mills 
Sent: Tuesday, August 2, 2022 6:32 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Celebrating 50 Years of Virtualization Innovation

Yes, but

https://nam11.safelinks.protection.outlook.com/?url=https%3A%2F%2Fcacm.acm.org%2Fmagazines%2F2009%2F5%2F24642-the-rise-fall-and-resurrection-of-software-as-a-service%2Ffulltext&data=05%7C01%7Csmetz3%40gmu.edu%7Ca31b2bcbae654b0d129708da74d6f4cc%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C637950763843816052%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=cyMmN6kZZue8cmLkK3UueCyAOOCCBxgZj3HuueGkLo8%3D&reserved=0

(Watch the wrap.)

About the middle of the article:

"The timesharing industry recovered, however. In the 1970s major players 
included General Electric, Timeshare Inc., and CDC. They built massive global 
computer centers that serviced thousands of users. By then those clunky 
teletypes had been replaced with visual display units, or "glass teletypes" as 
they were sometimes known."

I recall Tymshare. I think this was Timeshare, Inc.

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

[Michael Oujesky]

Long ago (2005) we had one of the largest generators of SMF data on 
record and continued to use MAN datasets using a couple of techniques 
to carry the load.


Environment: four CECS, all in the same SYSPLEX.  four on UK time, 
ten on US time.  Extensive use of CICSPLEX and transaction routine 
with DB2 data sharing.


Techniques:
   * multiple MAN data sets for each system all in shared user 
catalogs after system initialization.  IPLed on master cataloged MAN 
files, then switched over to the user cataloged ones late in the 
start up process.)
   * dump/clear routines designed so that multiple instances could 
run on a system at the same time.  GDGs were not used to avoid base 
contention.  Dataset names generated by dynamic system variables.
   * Dump phases were scheduled on small utility LPARS, with clear 
phases run on the originating image.
   * offloaded data was SMS tailored compressed (today would use 
zEDC) getting close to 90% compression/
   * Did not use internal compression for CICS or DB2 data to lower 
processor utilization in those address spaces. (these use CSRCESRV 
which uses the generic compression algorithms getting 40-50% 
compression and ran on GP engines).  SMS compression also 
super-blocks (full track read/writes) for better disk 
utilization.  Multi-stripping also used to speed up and overlap 
phisical I/O to the files.

Michael

At 02:45 PM 8/2/2022, Radoslaw Skorupka wrote:

Content-Transfer-Encoding: 8bit

W dniu 02.08.2022 o 19:41, Steve Beaver pisze:

Has anyone ever created a LOGSTREAM on an M54 of 65000 cylinders.



I have a very, very busy CICS and DB2 on the same LPAR


No, never, even close to such huge size. I'm talking about very busy 
and overloaded CICS region with DB2 on same LPAR

(200M trn/day, up to 4000 trn/s).

--
Radoslaw Skorupka
Lodz, Poland

--
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: Celebrating 50 Years of Virtualization Innovation

[Paul Gilmartin]

On Tue, 2 Aug 2022 17:32:45 -0500, Charles Mills wrote:

>Yes, but
>
>https://cacm.acm.org/magazines/2009/5/24642-the-rise-fall-and-resurrection-of-software-as-a-service/fulltext
>
>(Watch the wrap.)
> 
No wrap problem with WWW interface,  Mail.app, TBird, nor iOS.  Some users 
simply have
bad MUAs and refuse to change, or their employers won't let them, calling it 
"Security".

>About the middle of the article:
>
>"The timesharing industry recovered, however. In the 1970s major players 
>included General Electric, Timeshare Inc., and CDC. They built massive global 
>computer centers that serviced thousands of users.  ...
>
Isn't that what's called the "Cloud" nowadays?

GE-Dartmouth time sharing was interesting.  It supported multiple users with no
hardware memory protection.

I once went to SR because the CMS NAMES utility fail{ed|s} on an example
in RFC 822, "P. D. Q. Bach".  Got WAD.  I call this a misapplication of 
Postel's law.

>I recall Tymshare. I think this was Timeshare, Inc.

-- 
gil

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