Re: Strange code Generation from XL\C Metal C

[retired mainframer]

The LY instruction is picking up the file descriptor (think DD name) so the
IO accesses the correct file.  

The memcpy statement doesn't care what file the data came from.   You are
copying whatever is currently in the buffer to reclen and it is obvious that
the buffer is at the start of your structure/class.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Joseph Reichman
> Sent: Tuesday, April 28, 2020 6:44 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Strange code Generation from XL\C Metal C
> 
> I am using a pointer to buffer to read in data the data name is
> thread_ptr->buffer buffer is define char[2100]
> 
> 
> 
> Here is code when I call the read  notice it bumps register 4 21000 bytes
to
> get the address of buffer
> 
> _read(thread_ptr->fh, &thread_ptr->buffer[0], reclen);
> 
>  L 2,@113thread_ptr
> 
>  LY4,21000(0,2)(*)threadstor.threadstor.fh
> 
>  LLH   14,@123reclen
> 
> "IBMUSER.DBGR.SERVER(OPENFILE)"   Page   68
> 
> R14
> 
> rce Statement  HLASM R6.0  2020/04/28 21.34
> 
>  L 0,#WSA_1
> 
>  L 15,=V(@READ)
> 
>  LA1,224(,13)  #MX_TEMP1
> 
>  ST4,224(,13)  #MX_TEMP1
> 
>  ST2,228(,13)  #MX_TEMP1
> 
>  ST14,232(,13) #MX_TEMP1
> 
>  MVC   8(4,13),#NAB_1+4
> 
>  SAC   0
> 
>  BASR  14,15
> 
>  SAC   512
> 
> 
> 
> Here is code where I am trying to copy pos 10 of buffer for 2 bytes notice
> there is no LY for 21000 to get to buffer ?
> 
> 
> 
> memcpy(&reclen, &thread_ptr->buffer[10],2);
> 
>   L 14,@113thread_ptr
> 
>   CPYA  2,14
> 
>   MVC   @123reclen,10(14)
> 
> 
> 
> 
> 
> 
> --
> 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: Friday OT, cheerful program for gloomy times

[Paul Gilmartin]

On Wed, 29 Apr 2020 02:57:23 +0100, CM Poncelet wrote:

>... but that's the only way to do it in conditional macro assembler; so
>what me worry about 3GL's? :)
>
What hardware?  Doesn't Divide leave the quotient in one register and the
remainder in an adjacent one?

>On 28/04/2020 10:46, David Crayford wrote:
>> No worries. FWIW,  I think using the // modulo operator would make
>> your code less verbose and complex ;)

-- gil

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

Re: Friday OT, cheerful program for gloomy times

[CM Poncelet]

... but that's the only way to do it in conditional macro assembler; so
what me worry about 3GL's? :)

On 28/04/2020 10:46, David Crayford wrote:
> No worries. FWIW,  I think using the // modulo operator would make
> your code less verbose and complex ;)
>
> On 2020-04-28 11:14 AM, CM Poncelet wrote:
>> Yes, you are absolutely right. I thought it was the other way round,
>> divisble by 100 being leap years and by 400 not leap years.
>>   It should have been
>>    LEAP  = (YEAR-YEAR%4*4=0 & YEAR-YEAR%100*100¬=0 |
>> YEAR-YEAR%400*400=0)
>>   This does not affect the calculations themselves, but it does report
>> incorrectly e.g. that 2000.0229 is not valid.
>>   Thanks a lot for pointing this out.
>>   Cheers, Chris Poncelet
>>    
>> On 27/04/2020 10:01, David Crayford wrote:
>>> FYI, you have a bug with your leap year calculation. You need to check
>>> if the year is evenly dividable by 100 (which are not leap years
>>> unless evenly divisible by 400).
>>>
>>> isleap: procedure
>>>    arg year .
>>>    return (year // 4 = 0 & year // 100 /= 0 ) | year // 400 = 0
>>>
>>> On 2020-04-24 2:01 PM, CM Poncelet wrote:
 I attach a Rexx program to calculate and display the biorhythm values
 for a given date of birth and current or whatever other date.
    If 'management' complains that home workers are not putting enough
 effort into their working-from-home time, they can run this thing and
 send its output to 'management' just to prove that they are in perfect
 working condition and that any slow-down in productivity must be
 due to
 external factors which are wholly beyond their control .
    Cheers, Chris Poncelet (retired sysprog)

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

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

Strange code Generation from XL\C Metal C

[Joseph Reichman]

I am using a pointer to buffer to read in data the data name is
thread_ptr->buffer buffer is define char[2100]

 

Here is code when I call the read  notice it bumps register 4 21000 bytes to
get the address of buffer

_read(thread_ptr->fh, &thread_ptr->buffer[0], reclen);   

 L 2,@113thread_ptr  

 LY4,21000(0,2)(*)threadstor.threadstor.fh   

 LLH   14,@123reclen 

"IBMUSER.DBGR.SERVER(OPENFILE)"   Page   68  

R14  

rce Statement  HLASM R6.0  2020/04/28 21.34  

 L 0,#WSA_1  

 L 15,=V(@READ)  

 LA1,224(,13)  #MX_TEMP1 

 ST4,224(,13)  #MX_TEMP1 

 ST2,228(,13)  #MX_TEMP1 

 ST14,232(,13) #MX_TEMP1 

 MVC   8(4,13),#NAB_1+4  

 SAC   0 

 BASR  14,15 

 SAC   512   

 

Here is code where I am trying to copy pos 10 of buffer for 2 bytes notice
there is no LY for 21000 to get to buffer ?

 

memcpy(&reclen, &thread_ptr->buffer[10],2); 

  L 14,@113thread_ptr

  CPYA  2,14 

  MVC   @123reclen,10(14)

 

 


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

Re: Here we go again

[Wayne Bickerdike]

Half the population of Australia didn't know what a recession is. They are
learnnig fast.

Now hearing "let's manufacture stuff". The robots will love that.

State owned steel company I worked at : 4,000,000 tons of off spec steel
with 8,000 employees.
Korean Steel company : 20,000,000 tons of quality with 800 employees.

There could be a shortage of horseshoes and farriers coming up.

On Wed, Apr 29, 2020 at 9:24 AM scott Ford  wrote:

> Seymour,
>
> Maybe I am too old school
>
> On Tue, Apr 28, 2020 at 5:24 PM Seymour J Metz  wrote:
>
> > ObKoheleth Why do people keep talking about 20-20 hindsight for issues
> > that had been discussed decades earlier?
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > 
> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> > of scott Ford [idfli...@gmail.com]
> > Sent: Tuesday, April 28, 2020 4:38 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Here we go again
> >
> > All:
> >
> > Trying to get the government to take action on something of the nature
> you
> > all are talking about takes time unfortunately.
> > Hindsight is 20/20 ...thats the problem i see with Cobol - Unemployment.
> > Lets get it done which is fine but no plan thats a big issue
> >
> > On Fri, Apr 24, 2020 at 5:39 AM R.S. 
> > wrote:
> >
> > > W dniu 22.04.2020 o 19:54, Pew, Curtis G pisze:
> > > > On Apr 22, 2020, at 11:40 AM, Charles Mills 
> wrote:
> > > >> It's nowhere near as bad as Y2K. Y2K potentially affected just about
> > > >> everything. Everything with a date calculation. Everything that
> > > accepted or
> > > >> printed a date.
> > > >>
> > > > That’s an important point. Dates are often used in calculations. SSNs
> > > mostly just used as keys and stored. For Y2K we had to fix code that
> was
> > > doing date arithmetic, but you wouldn’t have that if they expanded
> SSNs.
> > > >
> > >
> > > To complement: Y2K had a deadline. The date of implementation could not
> > > be changed.
> > > As someone described, there is approx 80 years to exhaust SSN space.
> So,
> > > let's assume:
> > > 5 years of doing nothing
> > > 5 years for designing the change and discussion
> > > 10 years for implementation the change
> > > another 5 years to help them who didn't do it yet
> > > another 5 years for them who still didn't do it.
> > > and there is still 50 years of buffer.
> > >
> > > My idea how to change SSN: simply add alpha character. Your existing
> SSN
> > > would become A 123-456-789. Of course an SSN without the prefix has the
> > > letter A by default.
> > > Then next SSNs would have B prefix. Then (how many years later?) C,
> then
> > > D...
> > > Not enough? Then start with two-letter prefix: AA, AB, AC...
> > >
> > >
> > >
> > > My €0.02
> > >
> > > --
> > > Radoslaw Skorupka
> > > Lodz, Poland
> > >
> > >
> > >
> > >
> > >
> > > ==
> > >
> > > Jeśli nie jesteś adresatem tej wiadomości:
> > >
> > > - powiadom nas o tym w mailu zwrotnym (dziękujemy!),
> > > - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub
> > > zapisałeś na dysku).
> > > Wiadomość ta może zawierać chronione prawem informacje, które może
> > > wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia
> > > (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania,
> > > narusza prawo i może podlegać karze.
> > >
> > > mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,
> > >
> >
> http://secure-web.cisco.com/17WTc2JX3gV0di7AdD_yIDCpkBfHqx-VjRS5ohRkN-KC_Tu9MY6uFmxTG99S_h2kOXOpR4RQVEOoC1K-7ztD9Jgs93AjUgoHG-6IoF4C6ZK23ZaXxXF-7qXw92hl9z8yzo4SKQs8987qntNnO08D-0xJTp24QOP8njwDIVYx1ZJG9rSK4ZP4KjYUrfF8pLuzTckPT8Chlkli_FC1PWwxuXdNGhv26psa1yE9acQvHTYjEQKiAuH8W8ogKBMHRWtO_nnRD38WGOYD-4_S6cioQPOb0jJZfwzi_nbkzv0cz6MxuMETS2MkSa61UnW7HcZhQCsmGkSFQ_OEfFZHce8L3UZpUyE_IG6Tuds0KkTKAFAkPlzTKXlyCm_Bqy1JWrZnj5CT-waiXJelygWhZ37nEBF30hWgHFCXs6S9bcRH2ggIVarGXmhrY9ifxQsU8-7n6/http%3A%2F%2Fwww.mBank.pl
> ,
> > e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy
> > > XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237,
> NIP:
> > > 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na
> > > 01.01.2020 r. wynosi 169.401.468 złotych.
> > >
> > > If you are not the addressee of this message:
> > >
> > > - let us know by replying to this e-mail (thank you!),
> > > - delete this message permanently (including all the copies which you
> > have
> > > printed out or saved).
> > > This message may contain legally protected information, which may be
> used
> > > exclusively by the addressee.Please be reminded that anyone who
> > > disseminates (copies, distributes) this message or takes any similar
> > > action, violates the law and may be penalised.
> > >
> > > mBank S.A. with its registered office in Warsaw, ul. Senatorska 18,
> > 00-950
> > > Warszawa,
> >
> http://secure-web.cisco.co

Re: #pragma insert_asm Metal C

[Joseph Reichman]

So since my code has literals I was just trying to put at the end of  @@LIT@1 
addressed by r3 when I tried to ORG @@LIT@1 I got statement unresolvable   

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Mike Schwab
Sent: Tuesday, April 28, 2020 8:20 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: #pragma insert_asm Metal C

'beyond using' ?  A base register can only be used to address 4K of memory.

On Wed, Apr 29, 2020 at 12:09 AM Joseph Reichman  wrote:
>
> One of the things I learned the hard way That when inserting literals
>
> The executable assembler code generated by metal C has no base 
> register I believe so you some how have to establish addressabilty to 
> the literals
>
> Which why I was trying to do any org @@LIT@1 as it is addressed by 
> register 3 I was never able to do that  and addressed my literals a 
> different way when I tried the pragma  insert_asm still had 
> addressabily error ( beyond using not sure what the error was )
>
> Thanks
> --
> 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: #pragma insert_asm Metal C

[Mike Schwab]

'beyond using' ?  A base register can only be used to address 4K of memory.

On Wed, Apr 29, 2020 at 12:09 AM Joseph Reichman  wrote:
>
> One of the things I learned the hard way
> That when inserting literals
>
> The executable assembler code generated by metal C has no base register I 
> believe so you some how have to establish addressabilty to the literals
>
> Which why I was trying to do any org @@LIT@1 as it is addressed by register 3
> I was never able to do that  and addressed my literals a different way when I 
> tried the pragma  insert_asm still had addressabily error ( beyond using not 
> sure what the error was )
>
> Thanks
> --
> 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

#pragma insert_asm Metal C

[Joseph Reichman]

One of the things I learned the hard way 
That when inserting literals 

The executable assembler code generated by metal C has no base register I 
believe so you some how have to establish addressabilty to the literals 

Which why I was trying to do any org @@LIT@1 as it is addressed by register 3 
I was never able to do that  and addressed my literals a different way when I 
tried the pragma  insert_asm still had addressabily error ( beyond using not 
sure what the error was )

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

Re: Here we go again

[scott Ford]

Seymour,

Maybe I am too old school

On Tue, Apr 28, 2020 at 5:24 PM Seymour J Metz  wrote:

> ObKoheleth Why do people keep talking about 20-20 hindsight for issues
> that had been discussed decades earlier?
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of scott Ford [idfli...@gmail.com]
> Sent: Tuesday, April 28, 2020 4:38 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Here we go again
>
> All:
>
> Trying to get the government to take action on something of the nature you
> all are talking about takes time unfortunately.
> Hindsight is 20/20 ...thats the problem i see with Cobol - Unemployment.
> Lets get it done which is fine but no plan thats a big issue
>
> On Fri, Apr 24, 2020 at 5:39 AM R.S. 
> wrote:
>
> > W dniu 22.04.2020 o 19:54, Pew, Curtis G pisze:
> > > On Apr 22, 2020, at 11:40 AM, Charles Mills  wrote:
> > >> It's nowhere near as bad as Y2K. Y2K potentially affected just about
> > >> everything. Everything with a date calculation. Everything that
> > accepted or
> > >> printed a date.
> > >>
> > > That’s an important point. Dates are often used in calculations. SSNs
> > mostly just used as keys and stored. For Y2K we had to fix code that was
> > doing date arithmetic, but you wouldn’t have that if they expanded SSNs.
> > >
> >
> > To complement: Y2K had a deadline. The date of implementation could not
> > be changed.
> > As someone described, there is approx 80 years to exhaust SSN space. So,
> > let's assume:
> > 5 years of doing nothing
> > 5 years for designing the change and discussion
> > 10 years for implementation the change
> > another 5 years to help them who didn't do it yet
> > another 5 years for them who still didn't do it.
> > and there is still 50 years of buffer.
> >
> > My idea how to change SSN: simply add alpha character. Your existing SSN
> > would become A 123-456-789. Of course an SSN without the prefix has the
> > letter A by default.
> > Then next SSNs would have B prefix. Then (how many years later?) C, then
> > D...
> > Not enough? Then start with two-letter prefix: AA, AB, AC...
> >
> >
> >
> > My €0.02
> >
> > --
> > Radoslaw Skorupka
> > Lodz, Poland
> >
> >
> >
> >
> >
> > ==
> >
> > Jeśli nie jesteś adresatem tej wiadomości:
> >
> > - powiadom nas o tym w mailu zwrotnym (dziękujemy!),
> > - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub
> > zapisałeś na dysku).
> > Wiadomość ta może zawierać chronione prawem informacje, które może
> > wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia
> > (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania,
> > narusza prawo i może podlegać karze.
> >
> > mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,
> >
> http://secure-web.cisco.com/17WTc2JX3gV0di7AdD_yIDCpkBfHqx-VjRS5ohRkN-KC_Tu9MY6uFmxTG99S_h2kOXOpR4RQVEOoC1K-7ztD9Jgs93AjUgoHG-6IoF4C6ZK23ZaXxXF-7qXw92hl9z8yzo4SKQs8987qntNnO08D-0xJTp24QOP8njwDIVYx1ZJG9rSK4ZP4KjYUrfF8pLuzTckPT8Chlkli_FC1PWwxuXdNGhv26psa1yE9acQvHTYjEQKiAuH8W8ogKBMHRWtO_nnRD38WGOYD-4_S6cioQPOb0jJZfwzi_nbkzv0cz6MxuMETS2MkSa61UnW7HcZhQCsmGkSFQ_OEfFZHce8L3UZpUyE_IG6Tuds0KkTKAFAkPlzTKXlyCm_Bqy1JWrZnj5CT-waiXJelygWhZ37nEBF30hWgHFCXs6S9bcRH2ggIVarGXmhrY9ifxQsU8-7n6/http%3A%2F%2Fwww.mBank.pl,
> e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy
> > XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP:
> > 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na
> > 01.01.2020 r. wynosi 169.401.468 złotych.
> >
> > If you are not the addressee of this message:
> >
> > - let us know by replying to this e-mail (thank you!),
> > - delete this message permanently (including all the copies which you
> have
> > printed out or saved).
> > This message may contain legally protected information, which may be used
> > exclusively by the addressee.Please be reminded that anyone who
> > disseminates (copies, distributes) this message or takes any similar
> > action, violates the law and may be penalised.
> >
> > mBank S.A. with its registered office in Warsaw, ul. Senatorska 18,
> 00-950
> > Warszawa,
> http://secure-web.cisco.com/17WTc2JX3gV0di7AdD_yIDCpkBfHqx-VjRS5ohRkN-KC_Tu9MY6uFmxTG99S_h2kOXOpR4RQVEOoC1K-7ztD9Jgs93AjUgoHG-6IoF4C6ZK23ZaXxXF-7qXw92hl9z8yzo4SKQs8987qntNnO08D-0xJTp24QOP8njwDIVYx1ZJG9rSK4ZP4KjYUrfF8pLuzTckPT8Chlkli_FC1PWwxuXdNGhv26psa1yE9acQvHTYjEQKiAuH8W8ogKBMHRWtO_nnRD38WGOYD-4_S6cioQPOb0jJZfwzi_nbkzv0cz6MxuMETS2MkSa61UnW7HcZhQCsmGkSFQ_OEfFZHce8L3UZpUyE_IG6Tuds0KkTKAFAkPlzTKXlyCm_Bqy1JWrZnj5CT-waiXJelygWhZ37nEBF30hWgHFCXs6S9bcRH2ggIVarGXmhrY9ifxQsU8-7n6/http%3A%2F%2Fwww.mBank.pl,
> e-mail: kont...@mbank.pl. District Court for the
> > Capital City of Warsaw, 12th Commercial Division of the National Court
> > Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capi

Re: Here we go again

[Seymour J Metz]

ObKoheleth Why do people keep talking about 20-20 hindsight for issues that had 
been discussed decades earlier?


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
scott Ford [idfli...@gmail.com]
Sent: Tuesday, April 28, 2020 4:38 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Here we go again

All:

Trying to get the government to take action on something of the nature you
all are talking about takes time unfortunately.
Hindsight is 20/20 ...thats the problem i see with Cobol - Unemployment.
Lets get it done which is fine but no plan thats a big issue

On Fri, Apr 24, 2020 at 5:39 AM R.S.  wrote:

> W dniu 22.04.2020 o 19:54, Pew, Curtis G pisze:
> > On Apr 22, 2020, at 11:40 AM, Charles Mills  wrote:
> >> It's nowhere near as bad as Y2K. Y2K potentially affected just about
> >> everything. Everything with a date calculation. Everything that
> accepted or
> >> printed a date.
> >>
> > That’s an important point. Dates are often used in calculations. SSNs
> mostly just used as keys and stored. For Y2K we had to fix code that was
> doing date arithmetic, but you wouldn’t have that if they expanded SSNs.
> >
>
> To complement: Y2K had a deadline. The date of implementation could not
> be changed.
> As someone described, there is approx 80 years to exhaust SSN space. So,
> let's assume:
> 5 years of doing nothing
> 5 years for designing the change and discussion
> 10 years for implementation the change
> another 5 years to help them who didn't do it yet
> another 5 years for them who still didn't do it.
> and there is still 50 years of buffer.
>
> My idea how to change SSN: simply add alpha character. Your existing SSN
> would become A 123-456-789. Of course an SSN without the prefix has the
> letter A by default.
> Then next SSNs would have B prefix. Then (how many years later?) C, then
> D...
> Not enough? Then start with two-letter prefix: AA, AB, AC...
>
>
>
> My €0.02
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
>
> ==
>
> Jeśli nie jesteś adresatem tej wiadomości:
>
> - powiadom nas o tym w mailu zwrotnym (dziękujemy!),
> - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub
> zapisałeś na dysku).
> Wiadomość ta może zawierać chronione prawem informacje, które może
> wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia
> (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania,
> narusza prawo i może podlegać karze.
>
> mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,
> http://secure-web.cisco.com/17WTc2JX3gV0di7AdD_yIDCpkBfHqx-VjRS5ohRkN-KC_Tu9MY6uFmxTG99S_h2kOXOpR4RQVEOoC1K-7ztD9Jgs93AjUgoHG-6IoF4C6ZK23ZaXxXF-7qXw92hl9z8yzo4SKQs8987qntNnO08D-0xJTp24QOP8njwDIVYx1ZJG9rSK4ZP4KjYUrfF8pLuzTckPT8Chlkli_FC1PWwxuXdNGhv26psa1yE9acQvHTYjEQKiAuH8W8ogKBMHRWtO_nnRD38WGOYD-4_S6cioQPOb0jJZfwzi_nbkzv0cz6MxuMETS2MkSa61UnW7HcZhQCsmGkSFQ_OEfFZHce8L3UZpUyE_IG6Tuds0KkTKAFAkPlzTKXlyCm_Bqy1JWrZnj5CT-waiXJelygWhZ37nEBF30hWgHFCXs6S9bcRH2ggIVarGXmhrY9ifxQsU8-7n6/http%3A%2F%2Fwww.mBank.pl,
>  e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy
> XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP:
> 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na
> 01.01.2020 r. wynosi 169.401.468 złotych.
>
> If you are not the addressee of this message:
>
> - let us know by replying to this e-mail (thank you!),
> - delete this message permanently (including all the copies which you have
> printed out or saved).
> This message may contain legally protected information, which may be used
> exclusively by the addressee.Please be reminded that anyone who
> disseminates (copies, distributes) this message or takes any similar
> action, violates the law and may be penalised.
>
> mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950
> Warszawa,http://secure-web.cisco.com/17WTc2JX3gV0di7AdD_yIDCpkBfHqx-VjRS5ohRkN-KC_Tu9MY6uFmxTG99S_h2kOXOpR4RQVEOoC1K-7ztD9Jgs93AjUgoHG-6IoF4C6ZK23ZaXxXF-7qXw92hl9z8yzo4SKQs8987qntNnO08D-0xJTp24QOP8njwDIVYx1ZJG9rSK4ZP4KjYUrfF8pLuzTckPT8Chlkli_FC1PWwxuXdNGhv26psa1yE9acQvHTYjEQKiAuH8W8ogKBMHRWtO_nnRD38WGOYD-4_S6cioQPOb0jJZfwzi_nbkzv0cz6MxuMETS2MkSa61UnW7HcZhQCsmGkSFQ_OEfFZHce8L3UZpUyE_IG6Tuds0KkTKAFAkPlzTKXlyCm_Bqy1JWrZnj5CT-waiXJelygWhZ37nEBF30hWgHFCXs6S9bcRH2ggIVarGXmhrY9ifxQsU8-7n6/http%3A%2F%2Fwww.mBank.pl,
>  e-mail: kont...@mbank.pl. District Court for the
> Capital City of Warsaw, 12th Commercial Division of the National Court
> Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital
> amounting to PLN 169.401.468 as at 1 January 2020.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


--



*IDMWORK

Re: S0F9 and SOFD ABENDs and SVC dumps - oh my!

[Allan Staller]

MAXPROCSYS in SYS1.PARMLIB(BPXPRM00)
MAXASSSIZE  in SYS1.PARMLIB(BPXPRM00)

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Thomas David Rivers
Sent: Sunday, April 26, 2020 9:37 PM

To: IBM-MAIN@LISTSERV.UA.EDU
Subject: S0F9 and SOFD ABENDs and SVC dumps - oh my!

[CAUTION: This Email is from outside the Organization. Unless you trust the 
sender, Don’t click links or open attachments as it may be a Phishing email, 
which can steal your Information and compromise your Computer.]

I have a program that fires up about 1000 tasks, and each of these tasks fire 
up a sub-task...  (I say "tasks"
but these are actually BPX threads - started with BPX
pthread_create.)  Each of the 1000 tasks/threads starts a sub-thread and waits 
for its completion.

Most of the time when I run the program it works fine; then I'll start getting 
S0F9 ABENDs, GETMAIN problems and SOFD ABENDs.

Also - I have an ESTAE routine for each task, but that SOFD is showing my why 
that ESTAE isn't working...

I see stuff like this on the console log:

IEA705I 00FC6100 007AC3B0 007AC3B0 00E61200 00E8 IEA705I ERROR DURING 
GETMAIN SYS CODE = 878-10 RIVERS6 STEP1 00 IEA705I 00FC6100 007AC988 007AC988 
00E61200 00E8
IEF402I BPXASFAILED IN ADDRESS SPACE 004E 785
SYSTEM ABEND S0F9 - REASON CODE 00 IEF402I RIVERS6  FAILED IN ADDRESS 
SPACE 004E 786
SYSTEM ABEND S0F9 - REASON CODE 00

IEA705I ERROR DURING GETMAIN SYS CODE = 878-10 RIVERS8 STEP1 00 IEA705I 
00FC6100 007BDB58 007BDB58 00E61200 00E8
IEF402I BPXASFAILED IN ADDRESS SPACE 004E 814
SYSTEM ABEND S40D - REASON CODE 10 IEF402I RIVERS8  FAILED IN ADDRESS 
SPACE 004E 815
SYSTEM ABEND S40D - REASON CODE 10
$HASP310 BPXASTERMINATED AT END OF MEMORY

I'm very sure all of my GETMAINs are "conditional" (won't cause the 878-10) so 
I'm not really sure where that is coming from if not the OS somewhere.

Also - every now and then I get a console request for an SVC dump.

This is all pointing to no space left in LQSA for processing some SVC; but I'm 
not exactly sure what to do about it.  Especially since it's not easily 
reproducible (it comes and goes.)

The 00 flags on the IEA705I message are particularly confusing.

So - the program works until it doesn't - then waiting "awhile" and the OS 
seems to clean-up something-or-other and the program will work again for awhile.

Any suggestions on where to look would be welcome.. I'm wondering if there is a 
"thundering heard" of the tasks ending (the problems come when all the 
tasks/threads are over and things are cleaning up.)  And, if that is the case, 
I'm not sure what there is to be done about it???

   - Thanks -
   - Dave Rivers -


--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at 
https://apc01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.dignus.com%2F&data=02%7C01%7Callan.staller%40HCL.COM%7C2045aa73599d4c548ab408d7ebb24ff9%7C189de737c93a4f5a8b686f4ca9941912%7C0%7C0%7C637237023442122555&sdata=JdYygiRBYmrue2Z2nFKHTAWshxKT1oUwPXTG31u%2B7y4%3D&reserved=0

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

The contents of this e-mail and any attachment(s) are confidential and intended 
for the named recipient(s) only. E-mail transmission is not guaranteed to be 
secure or error-free as information could be intercepted, corrupted, lost, 
destroyed, arrive late or incomplete, or may contain viruses in transmission. 
The e mail and its contents (with or without referred errors) shall therefore 
not attach any liability on the originator or HCL or its affiliates. Views or 
opinions, if any, presented in this email are solely those of the author and 
may not necessarily reflect the views or opinions of HCL or its affiliates. Any 
form of reproduction, dissemination, copying, disclosure, modification, 
distribution and / or publication of this message without the prior written 
consent of authorized representative of HCL is strictly prohibited. If you have 
received this email in error please delete it and notify the sender 
immediately. Before opening any email and/or attachments, please check them for 
viruses and other defects.


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

Re: S0F9 and SOFD ABENDs and SVC dumps - oh my!

[Knutson, Samuel]

Dave do you have an IEFUSI exit or the new parmlib support and are you 
reserving sufficient space for z/OS to do termination processing?
It might be helpful for you to look at the way REGION is laid out in this job 
using Mark Zelden's REXXSTOR exec http://mzelden.com/mvsutil.html

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Thomas David Rivers
Sent: Sunday, April 26, 2020 10:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: S0F9 and SOFD ABENDs and SVC dumps - oh my!

I have a program that fires up about 1000 tasks, and each of these tasks fire 
up a sub-task...  (I say "tasks"
but these are actually BPX threads - started with BPX
pthread_create.)  Each of the 1000 tasks/threads starts a sub-thread and waits 
for its completion.

Most of the time when I run the program it works fine; then I'll start getting 
S0F9 ABENDs, GETMAIN problems and SOFD ABENDs.

Also - I have an ESTAE routine for each task, but that SOFD is showing my why 
that ESTAE isn't working...

I see stuff like this on the console log:

IEA705I 00FC6100 007AC3B0 007AC3B0 00E61200 00E8 IEA705I ERROR DURING 
GETMAIN SYS CODE = 878-10 RIVERS6 STEP1 00 IEA705I 00FC6100 007AC988 007AC988 
00E61200 00E8
IEF402I BPXASFAILED IN ADDRESS SPACE 004E 785
SYSTEM ABEND S0F9 - REASON CODE 00 IEF402I RIVERS6  FAILED IN ADDRESS 
SPACE 004E 786
SYSTEM ABEND S0F9 - REASON CODE 00

IEA705I ERROR DURING GETMAIN SYS CODE = 878-10 RIVERS8 STEP1 00 IEA705I 
00FC6100 007BDB58 007BDB58 00E61200 00E8
IEF402I BPXASFAILED IN ADDRESS SPACE 004E 814
SYSTEM ABEND S40D - REASON CODE 10 IEF402I RIVERS8  FAILED IN ADDRESS 
SPACE 004E 815
SYSTEM ABEND S40D - REASON CODE 10
$HASP310 BPXASTERMINATED AT END OF MEMORY

I'm very sure all of my GETMAINs are "conditional" (won't cause the 878-10) so 
I'm not really sure where that is coming from if not the OS somewhere.

Also - every now and then I get a console request for an SVC dump.

This is all pointing to no space left in LQSA for processing some SVC; but I'm 
not exactly sure what to do about it.  Especially since it's not easily 
reproducible (it comes and goes.)

The 00 flags on the IEA705I message are particularly confusing.

So - the program works until it doesn't - then waiting "awhile" and the OS 
seems to clean-up something-or-other and the program will work again for awhile.

Any suggestions on where to look would be welcome.. I'm wondering if there is a 
"thundering heard" of the tasks ending (the problems come when all the 
tasks/threads are over and things are cleaning up.)  And, if that is the case, 
I'm not sure what there is to be done about it???

   - Thanks -
   - Dave Rivers -


--
riv...@dignus.comWork: (919) 676-0847
The contents of this e-mail are intended for the named addressee only. It 
contains information that may be confidential. Unless you are the named 
addressee or an authorized designee, you may not copy or use it, or disclose it 
to anyone else. If you received it in error please notify us immediately and 
then destroy it

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

Re: LzLabs

[scott Ford]

I worked and lived in Switzerland. For Switzerland companies to do layoffs
it isnt good economically.  The Swiss Franc is extremely strong in the
currency market.

Scott

On Tue, Apr 28, 2020 at 1:23 PM David Crayford  wrote:

> On 2020-04-28 11:11 PM, Ed Jaffe wrote:
> > Swisscom, the largest telco in the country:
> >
> >
> https://www.theregister.co.uk/2019/05/16/lzlabs_kills_swisscoms_mainframes/
> >
> >
> > Re: the lay-off, now is great time to trim workforce "fat" and/or
> > "dead wood" with many governments providing unheard of subsidies for
> > the unemployed...
>
> LOLZ! I bet you enjoyed that!
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

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

Re: Here we go again

[scott Ford]

All:

Trying to get the government to take action on something of the nature you
all are talking about takes time unfortunately.
Hindsight is 20/20 ...thats the problem i see with Cobol - Unemployment.
Lets get it done which is fine but no plan thats a big issue

On Fri, Apr 24, 2020 at 5:39 AM R.S.  wrote:

> W dniu 22.04.2020 o 19:54, Pew, Curtis G pisze:
> > On Apr 22, 2020, at 11:40 AM, Charles Mills  wrote:
> >> It's nowhere near as bad as Y2K. Y2K potentially affected just about
> >> everything. Everything with a date calculation. Everything that
> accepted or
> >> printed a date.
> >>
> > That’s an important point. Dates are often used in calculations. SSNs
> mostly just used as keys and stored. For Y2K we had to fix code that was
> doing date arithmetic, but you wouldn’t have that if they expanded SSNs.
> >
>
> To complement: Y2K had a deadline. The date of implementation could not
> be changed.
> As someone described, there is approx 80 years to exhaust SSN space. So,
> let's assume:
> 5 years of doing nothing
> 5 years for designing the change and discussion
> 10 years for implementation the change
> another 5 years to help them who didn't do it yet
> another 5 years for them who still didn't do it.
> and there is still 50 years of buffer.
>
> My idea how to change SSN: simply add alpha character. Your existing SSN
> would become A 123-456-789. Of course an SSN without the prefix has the
> letter A by default.
> Then next SSNs would have B prefix. Then (how many years later?) C, then
> D...
> Not enough? Then start with two-letter prefix: AA, AB, AC...
>
>
>
> My €0.02
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
>
> ==
>
> Jeśli nie jesteś adresatem tej wiadomości:
>
> - powiadom nas o tym w mailu zwrotnym (dziękujemy!),
> - usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub
> zapisałeś na dysku).
> Wiadomość ta może zawierać chronione prawem informacje, które może
> wykorzystać tylko adresat.Przypominamy, że każdy, kto rozpowszechnia
> (kopiuje, rozprowadza) tę wiadomość lub podejmuje podobne działania,
> narusza prawo i może podlegać karze.
>
> mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa,
> www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. Warszawy
> XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, NIP:
> 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na
> 01.01.2020 r. wynosi 169.401.468 złotych.
>
> If you are not the addressee of this message:
>
> - let us know by replying to this e-mail (thank you!),
> - delete this message permanently (including all the copies which you have
> printed out or saved).
> This message may contain legally protected information, which may be used
> exclusively by the addressee.Please be reminded that anyone who
> disseminates (copies, distributes) this message or takes any similar
> action, violates the law and may be penalised.
>
> mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950
> Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the
> Capital City of Warsaw, 12th Commercial Division of the National Court
> Register, KRS 025237, NIP: 526-021-50-88. Fully paid-up share capital
> amounting to PLN 169.401.468 as at 1 January 2020.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

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

Re: IBM z ISA assembler & emulator.

[scott Ford]

John,

I have VisibleZ and its interesting, havent used it much.

Scott

On Thu, Apr 23, 2020 at 7:17 AM John McKown 
wrote:

> On Wed, Apr 22, 2020 at 6:16 AM Knutson, Samuel <
> samuel.knut...@compuware.com> wrote:
>
> > Hi John,
> >
> > z390 Portable Mainframe Assembler and Emulator
> > http://z390.org/
>
>
> I now remember looking at this long ago. It was nice, but not what I was
> looking for. I was looking for something more "GUI interactive". I.e
> simpler. I played around with Hercules/390, but the legal OSes were not
> something I wanted to bother with. Yes, I remember installing & maintaining
> MVS 3.8 . Not something I want to go back to.
>
>
>
> >
> >
> > VisibleZ can help you visualize exactly what the mainframe is doing as an
> > assembler program executes
> > http://csc.columbusstate.edu/woolbright/vzHomepage.htm
>
>
> This looks more like what I was thinking of. Something easy to use in which
> I could develop & debug simple(?) assembler routines. I will get it & play
> around with it.
>
>
>
> >
> >
> > Both are similar and provide excellent learning environments and are
> > self-contained.
> >
> > Best Regards, Sam
> >
> >
> --
> People in sleeping bags are the soft tacos of the bear world.
> Maranatha! <><
> John McKown
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 



*IDMWORKS *

Scott Ford

z/OS Dev.




“By elevating a friend or Collegue you elevate yourself, by demeaning a
friend or collegue you demean yourself”



www.idmworks.com

scott.f...@idmworks.com

Blog: www.idmworks.com/blog





*The information contained in this email message and any attachment may be
privileged, confidential, proprietary or otherwise protected from
disclosure. If the reader of this message is not the intended recipient,
you are hereby notified that any dissemination, distribution, copying or
use of this message and any attachment is strictly prohibited. If you have
received this message in error, please notify us immediately by replying to
the message and permanently delete it from your computer and destroy any
printout thereof.*

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

S0F9 and SOFD ABENDs and SVC dumps - oh my!

[Thomas David Rivers]

I have a program that fires up about 1000 tasks,
and each of these tasks fire up a sub-task...  (I say "tasks"
but these are actually BPX threads - started with BPX
pthread_create.)  Each of the 1000 tasks/threads starts
a sub-thread and waits for its completion.

Most of the time when I run the program it works
fine; then I'll start getting S0F9 ABENDs, GETMAIN problems
and SOFD ABENDs.

Also - I have an ESTAE routine for each task, but that SOFD
is showing my why that ESTAE isn't working...

I see stuff like this on the console log:

IEA705I 00FC6100 007AC3B0 007AC3B0 00E61200 00E8
IEA705I ERROR DURING GETMAIN SYS CODE = 878-10 RIVERS6 STEP1 00
IEA705I 00FC6100 007AC988 007AC988 00E61200 00E8
IEF402I BPXASFAILED IN ADDRESS SPACE 004E 785
   SYSTEM ABEND S0F9 - REASON CODE 00
IEF402I RIVERS6  FAILED IN ADDRESS SPACE 004E 786
   SYSTEM ABEND S0F9 - REASON CODE 00

IEA705I ERROR DURING GETMAIN SYS CODE = 878-10 RIVERS8 STEP1 00
IEA705I 00FC6100 007BDB58 007BDB58 00E61200 00E8
IEF402I BPXASFAILED IN ADDRESS SPACE 004E 814
   SYSTEM ABEND S40D - REASON CODE 10
IEF402I RIVERS8  FAILED IN ADDRESS SPACE 004E 815
   SYSTEM ABEND S40D - REASON CODE 10
$HASP310 BPXASTERMINATED AT END OF MEMORY

I'm very sure all of my GETMAINs are "conditional" (won't cause the 878-10)
so I'm not really sure where that is coming from if not the OS somewhere.

Also - every now and then I get a console request for an SVC dump.

This is all pointing to no space left in LQSA for processing some SVC; but
I'm not exactly sure what to do about it.  Especially since it's not easily
reproducible (it comes and goes.)

The 00 flags on the IEA705I message are particularly confusing.

So - the program works until it doesn't - then waiting "awhile" and
the OS seems to clean-up something-or-other and the program will
work again for awhile.

Any suggestions on where to look would be welcome.. I'm wondering
if there is a "thundering heard" of the tasks ending (the problems come
when all the tasks/threads are over and things are cleaning up.)  And, if
that is the case, I'm not sure what there is to be done about it???

  - Thanks -
  - Dave Rivers -


--
riv...@dignus.comWork: (919) 676-0847
Get your mainframe programming tools at http://www.dignus.com

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

Re: DFSMShsm high CPU consumption [EXTERNAL]

[Glenn Wilcock]

Hi Lizette,

It allows different WLM settings.  For example, a MAIN can do RECALLS and have 
a higher WLM goal than an AUX host that is assigned to run a migration window 
with a lower goal.  I've never actually worked with a client to do this...

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

Re: DFSMShsm high CPU consumption [EXTERNAL]

[Lizette Koehler]

Glenn -

Does changing HSM from a Singe TCB to multiple TCBs (like Multi Address Space 
HSM  or MASH) help in controlling HSM resource consumption?


Lizette


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Glenn Wilcock
Sent: Tuesday, April 28, 2020 11:18 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSMShsm high CPU consumption [EXTERNAL]

It is Newsletter 2018 No. 4

--
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: DFSMShsm high CPU consumption [EXTERNAL]

[Glenn Wilcock]

It is Newsletter 2018 No. 4

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

Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

[Binyamin Dissen]

On Tue, 28 Apr 2020 13:58:06 + Chris Hoelscher 
wrote:

:>examples of an IPCS RUNARRY ???
:>the side of a milk carton?

Why would you suggest that RUNARRAY be dropped?

Because code can be written to simulate it?

:>Thank You,
:>Chris Hoelscher
:>Lead Database Administrator
:>IBM Global Technical Services
:>T 502.476.2538  or 502.407.7266
:>
:>-Original Message-
:>From: IBM Mainframe Discussion List  On Behalf Of 
Binyamin Dissen
:>Sent: Sunday, April 26, 2020 9:59 AM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: [External] [IBM-MAIN] Request: Examples of an IPCS RUNARRAY command 
where the EXEC clause display storage using a pointer as a displacement off of X
:>
:>[External Email: Use caution with links and attachments]
:>
:>
:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X.
:>
:>So far I have not been able to make it work.

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

Director, Dissen Software, Bar & Grill - Israel


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

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

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

Re: LzLabs

[David Crayford]

On 2020-04-28 11:11 PM, Ed Jaffe wrote:

Swisscom, the largest telco in the country:

https://www.theregister.co.uk/2019/05/16/lzlabs_kills_swisscoms_mainframes/ 



Re: the lay-off, now is great time to trim workforce "fat" and/or 
"dead wood" with many governments providing unheard of subsidies for 
the unemployed... 


LOLZ! I bet you enjoyed that!

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

Re: LzLabs

[Ed Jaffe]

On 4/28/2020 7:49 AM, Jake Anderson wrote:

They migrated some swiss based telecommunications company.


Swisscom, the largest telco in the country:

https://www.theregister.co.uk/2019/05/16/lzlabs_kills_swisscoms_mainframes/

Re: the lay-off, now is great time to trim workforce "fat" and/or "dead 
wood" with many governments providing unheard of subsidies for the 
unemployed...



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



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

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

Re: DFSMShsm high CPU consumption

[Martin Packer]

In the late 1980s I was involved with a customer to look at (then) DFHSM 
to figure out how to control the number of parallel tasks on each machine 
(MVS/ESA image). This was for (then) 24-bit virtual storage management 
purposes. I vaguely recall we could decide which system had how many of 
each type of task - obviously long before Parallel Sysplex.

I wonder if such an approach could control WHERE the CPU is consumed, as 
much as how much. Probably doesn't help the OP, though.

Cheers, Martin

Martin Packer

zChampion, Systems Investigator & Performance Troubleshooter, IBM

+44-7802-245-584

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

Twitter / Facebook IDs: MartinPacker

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

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


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



From:   Glenn Wilcock 
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   28/04/2020 15:22
Subject:Re: DFSMShsm high CPU consumption [EXTERNAL]
Sent by:IBM Mainframe Discussion List 



DFSMShsm has made many advances over the years to become more efficient. I 
teamed up with Frank Kyne of Watson & Walker to write an article on this 
topic in their newsletter.  I'm also more than happy to give a WebEx on 
this topic with this client, and any other who is interested.  It's a 
popular presentation from IBM TechU and SHARE.  One of the topics is to 
reduce the MAX tasking level to reduce peak MIPS during HSM windows.  Just 
send me an email.

Glenn Wilcock, DFSMS Architecture
wilc...@us.ibm.com

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




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


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

Re: LzLabs

[Jake Anderson]

They migrated some swiss based telecommunications company.

On Tue, 28 Apr, 2020, 6:19 PM zMan,  wrote:

> Again? They did that a year or two ago already. Not a good sign.
>
> On Mon, Apr 27, 2020 at 8:18 AM Peter Baumann 
> wrote:
>
> > Hi there
> > Any news on LzLabs mainframe emulation company. I heard they are having
> > big layoff.
> > Peter B
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
>
> --
> zMan -- "I've got a mainframe and I'm not afraid to use it"
>
> --
> 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: Request for help with CBT961

[Lionel B Dyck]

You need to update the configuration load module, which means having it in your 
ISPLLIB, STEPLIB, or LINKLIB. After updating it using ISPCCONF, it is best to 
exit ISPF to TSO READY and then restart ISPF. The ISPF table needs to be in 
your ISPTLIB concatenation, and the exec's need to be in your SYSEXEC (or 
SYSPROC) concatenation.


Lionel B. Dyck <
Website: https://www.lbdsoftware.com

"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 
Beesley, Paul
Sent: Tuesday, April 28, 2020 9:38 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Request for help with CBT961

Yes, JU3 works correctly for me as well, using the line command table entry 
rather than the config table change..

Best Regards
Paul

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Sean Gleann
Sent: 28 April 2020 15:03
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Request for help with CBT961

Caution! External email. Do not open attachments or click links, unless this 
email comes from a known sender and you know the content is safe.

Lionel: I just tried exactly the same test as you describe, but Nope - I get 
the results I previously got.
It must be down to my environment somehow.
I shall work on making  formal change to the config table and come back on this 
later

Thanks for all your help

Regards
Sean


On Tue, 28 Apr 2020 at 14:23, Lionel B Dyck  wrote:

> I copied your JCL statement into my library, changed it to lowercase, 
> and then used JU which did just that one line. I then reset that line 
> to lowercase and used JU3 and all 3 lines were uppercased.
>
> The issue may be with the ispf configuration table or the table.
> Difficult to know.
>
> I have tested this in the past with my own SYSEXEC, my own ISPTLIB for 
> the table and my own ISPLLIB for the ISPF Configuration (and I'm still 
> running that way as I do this for testing.
>
>
> Lionel B. Dyck <
> Website:
> https://eur01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> lbdsoftware.com%2F&data=02%7C01%7Cpaul.beesley%40atos.net%7C7a48c2
> 862b15430acae708d7eb7d00fd%7C33440fc6b7c7412cbb730e70b0198d5a%7C0%7C0%
> 7C637236794436532010&sdata=KIA9UfbInCFVOs0Utv21NLVt6M4%2BkNgWMbLt7
> 3KMUsU%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
>
> -Original Message-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Sean Gleann
> Sent: Tuesday, April 28, 2020 8:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Request for help with CBT961
>
> Problem with he JU command w.r.t. multil-ine JCL statements?
>
> I'm not sure whether I've found a bug or if my expectations exceed the 
> capability of Yves' code.
>
> I haven't yet updated the ISPF Configuration Table. At this stage I 
> want to keep the new facilities 'under test', so I followed Paul 
> Beesley's suggestion earlier in this thread.
>
> Example: I have a DD statement split over three lines:
>
> //PDBOUT   DD   DSN=TESTFILE.NAME,
> //  DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(3000,150)),
> //  DSORG=PS,RECFM=FS,BLKSIZE=27648,LRECL=27648
>
> I deliberately change the text to lower case with 'LC' commands:
>
> //pdbout   dd   dsn=testfile.name,
> //  disp=(new,catlg,delete),space=(trk,(3000,150)),
> //  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648
>
> Then I use JU commands, hoping to change the text back to upper-case:
>
> //PDBOUT   DD   DSN=TESTFILE.NAME,
> //  disp=(new,catlg,delete),space=(trk,(3000,150)),
> //  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648
>
> Lines beginning '//' aren't being converted...
> I've tried again and used JUU...JUU, and with JU# - same result
>
> Regards
> Sean
>
>
> On Tue, 28 Apr 2020 at 11:45, Lionel B Dyck  wrote:
>
> > Glad you got it working - Yves did a FANTASTIC job creating this 
> > tool that greatly improves ISPF Edit.
> >
> >
> > Lionel B. Dyck <
> > Website:
> > https://eur01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fww
> > w.lbdsoftware.com%2F&data=02%7C01%7Cpaul.beesley%40atos.net%7C7a
> > 48c2862b15430acae708d7eb7d00fd%7C33440fc6b7c7412cbb730e70b0198d5a%7C
> > 0%7C0%7C637236794436532010&sdata=KIA9UfbInCFVOs0Utv21NLVt6M4%2Bk
> > NgWMbLt73KMUsU%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
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On 
> > Behalf Of Sean Gleann
> > Sent: Tuesday, April 28, 2020 5:08 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Request for help with CBT961
> >
> > I just noticed that one myself, Lionel. No, i didn't. (Got mixed up 
> > as to which z/OS version I was using. Doh!) Thanks anyway Sean
> >
> > On Tue, 28 Apr 2

Re: Request for help with CBT961

[Beesley, Paul]

Yes, JU3 works correctly for me as well, using the line command table entry 
rather than the config table change..

Best Regards
Paul

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Sean Gleann
Sent: 28 April 2020 15:03
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Request for help with CBT961

Caution! External email. Do not open attachments or click links, unless this 
email comes from a known sender and you know the content is safe.

Lionel: I just tried exactly the same test as you describe, but Nope - I get 
the results I previously got.
It must be down to my environment somehow.
I shall work on making  formal change to the config table and come back on this 
later

Thanks for all your help

Regards
Sean


On Tue, 28 Apr 2020 at 14:23, Lionel B Dyck  wrote:

> I copied your JCL statement into my library, changed it to lowercase,
> and then used JU which did just that one line. I then reset that line
> to lowercase and used JU3 and all 3 lines were uppercased.
>
> The issue may be with the ispf configuration table or the table.
> Difficult to know.
>
> I have tested this in the past with my own SYSEXEC, my own ISPTLIB for
> the table and my own ISPLLIB for the ISPF Configuration (and I'm still
> running that way as I do this for testing.
>
>
> Lionel B. Dyck <
> Website:
> https://eur01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> lbdsoftware.com%2F&data=02%7C01%7Cpaul.beesley%40atos.net%7C7a48c2
> 862b15430acae708d7eb7d00fd%7C33440fc6b7c7412cbb730e70b0198d5a%7C0%7C0%
> 7C637236794436532010&sdata=KIA9UfbInCFVOs0Utv21NLVt6M4%2BkNgWMbLt7
> 3KMUsU%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
>
> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sean Gleann
> Sent: Tuesday, April 28, 2020 8:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Request for help with CBT961
>
> Problem with he JU command w.r.t. multil-ine JCL statements?
>
> I'm not sure whether I've found a bug or if my expectations exceed the
> capability of Yves' code.
>
> I haven't yet updated the ISPF Configuration Table. At this stage I
> want to keep the new facilities 'under test', so I followed Paul
> Beesley's suggestion earlier in this thread.
>
> Example: I have a DD statement split over three lines:
>
> //PDBOUT   DD   DSN=TESTFILE.NAME,
> //  DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(3000,150)),
> //  DSORG=PS,RECFM=FS,BLKSIZE=27648,LRECL=27648
>
> I deliberately change the text to lower case with 'LC' commands:
>
> //pdbout   dd   dsn=testfile.name,
> //  disp=(new,catlg,delete),space=(trk,(3000,150)),
> //  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648
>
> Then I use JU commands, hoping to change the text back to upper-case:
>
> //PDBOUT   DD   DSN=TESTFILE.NAME,
> //  disp=(new,catlg,delete),space=(trk,(3000,150)),
> //  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648
>
> Lines beginning '//' aren't being converted...
> I've tried again and used JUU...JUU, and with JU# - same result
>
> Regards
> Sean
>
>
> On Tue, 28 Apr 2020 at 11:45, Lionel B Dyck  wrote:
>
> > Glad you got it working - Yves did a FANTASTIC job creating this
> > tool that greatly improves ISPF Edit.
> >
> >
> > Lionel B. Dyck <
> > Website:
> > https://eur01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fww
> > w.lbdsoftware.com%2F&data=02%7C01%7Cpaul.beesley%40atos.net%7C7a
> > 48c2862b15430acae708d7eb7d00fd%7C33440fc6b7c7412cbb730e70b0198d5a%7C
> > 0%7C0%7C637236794436532010&sdata=KIA9UfbInCFVOs0Utv21NLVt6M4%2Bk
> > NgWMbLt73KMUsU%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
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> > Behalf Of Sean Gleann
> > Sent: Tuesday, April 28, 2020 5:08 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Request for help with CBT961
> >
> > I just noticed that one myself, Lionel. No, i didn't. (Got mixed up
> > as to which z/OS version I was using. Doh!) Thanks anyway Sean
> >
> > On Tue, 28 Apr 2020 at 11:05, Joe Monk  wrote:
> >
> > > Maybe this will help:
> > >
> > > //***FILE 961 is from Yves Colliard and contains a collection of*
> > > FILE 961
> > > //*   ISPF commands which can be added to your session. *
> > > FILE 961
> > > //* *
> > > FILE 961
> > > //* YCLMAC - A collection of user line commands for use in  *
> > > FILE 961
> > > //*  ISPF Edit and View *
> > > FILE 961
> > > //* *
> > > FILE 961
> > > //* by YCOS Yves Colliard Software - 
> > > https://eur01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.ycos.de%2F&data=0

Re: Read BookManager/READ files

[Seymour J Metz]

Alas, the Firefox that I'm using is the most recent version that has been 
ported to OS/2, and rust, the new implementation language for FF, has not been 
ported. There is a project to port a more recent browser, but for the time 
being this is what I have,

I'm fairly certain that anybody running z/OS would be using either Linux or 
windows on their PCs, so they would have no problem getting a current version 
of Chrome, Chromium or Firefox.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Susan Shumway [chale...@us.ibm.com]
Sent: Tuesday, April 28, 2020 10:27 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Read BookManager/READ files

Hi Shmuel,

I'm glad that you found an environment that lets you access the content
properly.

Thanks for you tip about IE Explorer. I'm not an official tester - I
just tried the site on all the browsers on my local system to see if I
saw any immediate problems. I'm sure that the official testers ensure
that the product and content works on all supported browsers.

On that note, I recommend that you update your browsers to at least the
minimum supported versions just to help prevent any additional
compatibility issues like this in the future. For example, z/OSMF
requires Firefox ESR Version 60 or later (so your Firefox 68.7 is well
supported), and I'm currently running Firefox 75. The fact that you're
running such an old, unsupported version with Firefox 38.8 likely caused
or at least contributed to the content display problem.

-Sue Shumway

On 4/27/2020 5:14 PM, Seymour J Metz wrote:
> I'm using Firefox 38.8.0, which is probably much older than you have. I 
> notice that you didn't mention IE; while I dislike it and microsoft has 
> deprecated it, there are still people using it due to problems with edge, so 
> you might want to include it in what you're testing.
>
> Is there enough of a difference between Chromium and Chrome to warrant 
> separate testing?
>
> It works much better on Linux, with Firefox 68.7.0esr.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
> Susan Shumway [chale...@us.ibm.com]
> Sent: Monday, April 27, 2020 2:34 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Read BookManager/READ files
>
> Hi Shmuel,
>
> So, there's just the page title but no contents? That's strange. It
> looks okay to me on Firefox, Chrome, and Edge, so I'm not sure what the
> problem is on your end. If others notice the same behavior, I'll look
> into if it's a problem on the content or site end.
>
> In the meantime, here are direct links to the Softcopy Reader downloadables:
>
> IBM Softcopy Reader/Windows V4.0:
> ftp://public.dhe.ibm.com/ps/products/bookmanager/tools/ilrjava.exe
>
> Release Notes:
> ftp://public.dhe.ibm.com/ps/products/bookmanager/tools/swinread.txt
>
> -Sue Shumway
>
>
> On 4/27/2020 1:57 PM, Seymour J Metz wrote:
>> Is it browser dependent? What I get is
>>
>>
>> IBM®
>> IBM Support  Offerings  My support  Downloads  Documents  Cases  Communities 
>>  Training  Other
>>
>> Downloadable free BookManager tools and components
>>
>>   Contact IBM  Privacy  Terms of use  Accessibility
>>
>> with different values for the middle line.
>>
>>
>> --
>> Shmuel (Seymour J.) Metz
>> http://mason.gmu.edu/~smetz3
>>
>> 
>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>> Susan Shumway [chale...@us.ibm.com]
>> Sent: Monday, April 27, 2020 1:43 PM
>> To: IBM-MAIN@LISTSERV.UA.EDU
>> Subject: Re: Read BookManager/READ files
>>
>> Hi Shmuel,
>>
>> It's a sort of old-school site - you just need to do some clicking. From
>> https://www.ibm.com/support/pages/node/324693 , click "IBM Softcopy
>> Reader", which gets you to https://www.ibm.com/support/pages/node/324679
>> . From there, click "Download Softcopy Reader for Windows 4.0", which
>> gets you to https://www.ibm.com/support/pages/node/731199 . Scroll to
>> the bottom for the link to download the package with FTP.
>>
>> -Sue Shumway
>>
>> On 4/27/2020 12:47 PM, Seymour J Metz wrote:
>>> I assume that's under the Download tab, but none of the menu options seem 
>>> appropriate.
>>>
>>>
>>> --
>>> Shmuel (Seymour J.) Metz
>>> http://mason.gmu.edu/~smetz3
>>>
>>> 
>>> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
>>> Susan Shumway [chale...@us.ibm.com]
>>> Sent: Monday, April 27, 2020 12:25 PM
>>> To: IBM-MAIN@LISTSERV.UA.EDU
>>> Subject: Re: Read BookManager/READ files
>>>
>>> See "Downloadable free BookManager tools and components" (
>>> https://www.ibm.com/support/pages/node/324693 ) for links to download
>>> IBM Softcopy Reader and other helpful resources.
>>>
>>> If you ever need to access older z/OS documentation, 

Re: Read BookManager/READ files

[Susan Shumway]

Hi Shmuel,

I'm glad that you found an environment that lets you access the content 
properly.


Thanks for you tip about IE Explorer. I'm not an official tester - I 
just tried the site on all the browsers on my local system to see if I 
saw any immediate problems. I'm sure that the official testers ensure 
that the product and content works on all supported browsers.


On that note, I recommend that you update your browsers to at least the 
minimum supported versions just to help prevent any additional 
compatibility issues like this in the future. For example, z/OSMF 
requires Firefox ESR Version 60 or later (so your Firefox 68.7 is well 
supported), and I'm currently running Firefox 75. The fact that you're 
running such an old, unsupported version with Firefox 38.8 likely caused 
or at least contributed to the content display problem.


-Sue Shumway

On 4/27/2020 5:14 PM, Seymour J Metz wrote:

I'm using Firefox 38.8.0, which is probably much older than you have. I notice 
that you didn't mention IE; while I dislike it and microsoft has deprecated it, 
there are still people using it due to problems with edge, so you might want to 
include it in what you're testing.

Is there enough of a difference between Chromium and Chrome to warrant separate 
testing?

It works much better on Linux, with Firefox 68.7.0esr.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Susan Shumway [chale...@us.ibm.com]
Sent: Monday, April 27, 2020 2:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Read BookManager/READ files

Hi Shmuel,

So, there's just the page title but no contents? That's strange. It
looks okay to me on Firefox, Chrome, and Edge, so I'm not sure what the
problem is on your end. If others notice the same behavior, I'll look
into if it's a problem on the content or site end.

In the meantime, here are direct links to the Softcopy Reader downloadables:

IBM Softcopy Reader/Windows V4.0:
ftp://public.dhe.ibm.com/ps/products/bookmanager/tools/ilrjava.exe

Release Notes:
ftp://public.dhe.ibm.com/ps/products/bookmanager/tools/swinread.txt

-Sue Shumway


On 4/27/2020 1:57 PM, Seymour J Metz wrote:

Is it browser dependent? What I get is


IBM®
IBM Support  Offerings  My support  Downloads  Documents  Cases  Communities  
Training  Other

Downloadable free BookManager tools and components

  Contact IBM  Privacy  Terms of use  Accessibility

with different values for the middle line.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Susan Shumway [chale...@us.ibm.com]
Sent: Monday, April 27, 2020 1:43 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Read BookManager/READ files

Hi Shmuel,

It's a sort of old-school site - you just need to do some clicking. From
https://www.ibm.com/support/pages/node/324693 , click "IBM Softcopy
Reader", which gets you to https://www.ibm.com/support/pages/node/324679
. From there, click "Download Softcopy Reader for Windows 4.0", which
gets you to https://www.ibm.com/support/pages/node/731199 . Scroll to
the bottom for the link to download the package with FTP.

-Sue Shumway

On 4/27/2020 12:47 PM, Seymour J Metz wrote:

I assume that's under the Download tab, but none of the menu options seem 
appropriate.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Susan Shumway [chale...@us.ibm.com]
Sent: Monday, April 27, 2020 12:25 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Read BookManager/READ files

See "Downloadable free BookManager tools and components" (
https://www.ibm.com/support/pages/node/324693 ) for links to download
IBM Softcopy Reader and other helpful resources.

If you ever need to access older z/OS documentation, note that we've
made available PDF versions of it back to V1R10, available in the IBM Z
Publications Library Archive:
https://www.ibm.com/servers/resourcelink/svc00100.nsf/pages/zos-library-archives

-Sue Shumway

On 4/27/2020 5:49 AM, R.S. wrote:

W dniu 27.04.2020 o 11:14, Juergen Kehr pisze:

Hello,

where just in the process to migrate our z/OS systems to V2.4. As you
know, on z/OS V2.4 BookManager/READ isn't available anymore. But
unfortunately some developers come up with a requirement to read some
very old homegrown documentation files (.BOO files). So my question
is, are there any free tools available to read and/or convert these
files to PDF or HTML?


BOO files can be still read using existing tools like IBM Softcopy
Reader which works nicely under Win10 x64 and older Windows versions.
You can still use IBM Library Reader which is 16-bit application and
will not work under 64-bit Windows, but you can run it under old Windows
running under Virtual Box or other tool. Persona

Re: DFSMShsm high CPU consumption [EXTERNAL]

[Seymour J Metz]

Is the W&W newsletter still available? If so, I strongly urge those not 
familiar with it to take a look.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Glenn Wilcock [wilc...@us.ibm.com]
Sent: Tuesday, April 28, 2020 10:21 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: DFSMShsm high CPU consumption [EXTERNAL]

DFSMShsm has made many advances over the years to become more efficient.  I 
teamed up with Frank Kyne of Watson & Walker to write an article on this topic 
in their newsletter.  I'm also more than happy to give a WebEx on this topic 
with this client, and any other who is interested.  It's a popular presentation 
from IBM TechU and SHARE.  One of the topics is to reduce the MAX tasking level 
to reduce peak MIPS during HSM windows.  Just send me an email.

Glenn Wilcock, DFSMS Architecture
wilc...@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: DFSMShsm high CPU consumption [EXTERNAL]

[Glenn Wilcock]

DFSMShsm has made many advances over the years to become more efficient.  I 
teamed up with Frank Kyne of Watson & Walker to write an article on this topic 
in their newsletter.  I'm also more than happy to give a WebEx on this topic 
with this client, and any other who is interested.  It's a popular presentation 
from IBM TechU and SHARE.  One of the topics is to reduce the MAX tasking level 
to reduce peak MIPS during HSM windows.  Just send me an email.

Glenn Wilcock, DFSMS Architecture
wilc...@us.ibm.com

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

Re: LzLabs

[zMan]

Again? They did that a year or two ago already. Not a good sign.

On Mon, Apr 27, 2020 at 8:18 AM Peter Baumann  wrote:

> Hi there
> Any news on LzLabs mainframe emulation company. I heard they are having
> big layoff.
> Peter B
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>


-- 
zMan -- "I've got a mainframe and I'm not afraid to use it"

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

Re: Friday OT, cheerful program for gloomy times

[Seymour J Metz]

That's an example of why I bought Tritus SPF (TSPF) instead of CTC.

ISREDIT is the environment for ISPF/PDF EDIT, and any EDIT macro needs services 
in that environment. address ISPEXEC ISREDIT foo is a slower way of doing 
address ISREDIT foo.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of CM 
Poncelet [ponce...@bcs.org.uk]
Sent: Monday, April 27, 2020 11:47 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Friday OT, cheerful program for gloomy times

Thanks, but I get the following errors:

ecalc(182): Error #39, Evaluation stack overflow
do until tmp = tail

PRESS ANY KEY TO CONTINUE.

and

Error 10: Illegal ISPEXEC Service 'isredit macro (parm) NOPROCESS'.

PRESS ANY KEY TO CONTINUE.

I have CTC Rexx running under DOS - perhaps not the right environment
for this 

Cheers, Chris



On 27/04/2020 15:29, Robert Prins wrote:
> On 2020-04-24 06:01, CM Poncelet wrote:
>> I attach a Rexx program to calculate and display the biorhythm values
>> for a given date of birth and current or whatever other date.
>
> And if you want to see some niche graphs, try "ecalc
> biog(dd.mm.)", where ecalc can be found (for now) @
> 
>
> Also contains a few other more-or-lesser useful conversions, "ecalc ?"
> will display some help.
>
> Robert

--
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: Request for help with CBT961

[Sean Gleann]

Lionel: I just tried exactly the same test as you describe, but Nope - I
get the results I previously got.
It must be down to my environment somehow.
I shall work on making  formal change to the config table and come back on
this later

Thanks for all your help

Regards
Sean


On Tue, 28 Apr 2020 at 14:23, Lionel B Dyck  wrote:

> I copied your JCL statement into my library, changed it to lowercase, and
> then used JU which did just that one line. I then reset that line to
> lowercase and used JU3 and all 3 lines were uppercased.
>
> The issue may be with the ispf configuration table or the table.
> Difficult to know.
>
> I have tested this in the past with my own SYSEXEC, my own ISPTLIB for the
> table and my own ISPLLIB for the ISPF Configuration (and I'm still running
> that way as I do this for testing.
>
>
> Lionel B. Dyck <
> Website: https://www.lbdsoftware.com
>
> "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 Sean Gleann
> Sent: Tuesday, April 28, 2020 8:05 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Request for help with CBT961
>
> Problem with he JU command w.r.t. multil-ine JCL statements?
>
> I'm not sure whether I've found a bug or if my expectations exceed the
> capability of Yves' code.
>
> I haven't yet updated the ISPF Configuration Table. At this stage I want
> to keep the new facilities 'under test', so I followed Paul Beesley's
> suggestion earlier in this thread.
>
> Example: I have a DD statement split over three lines:
>
> //PDBOUT   DD   DSN=TESTFILE.NAME,
> //  DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(3000,150)),
> //  DSORG=PS,RECFM=FS,BLKSIZE=27648,LRECL=27648
>
> I deliberately change the text to lower case with 'LC' commands:
>
> //pdbout   dd   dsn=testfile.name,
> //  disp=(new,catlg,delete),space=(trk,(3000,150)),
> //  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648
>
> Then I use JU commands, hoping to change the text back to upper-case:
>
> //PDBOUT   DD   DSN=TESTFILE.NAME,
> //  disp=(new,catlg,delete),space=(trk,(3000,150)),
> //  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648
>
> Lines beginning '//' aren't being converted...
> I've tried again and used JUU...JUU, and with JU# - same result
>
> Regards
> Sean
>
>
> On Tue, 28 Apr 2020 at 11:45, Lionel B Dyck  wrote:
>
> > Glad you got it working - Yves did a FANTASTIC job creating this tool
> > that greatly improves ISPF Edit.
> >
> >
> > Lionel B. Dyck <
> > Website: https://www.lbdsoftware.com
> >
> > "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 Sean Gleann
> > Sent: Tuesday, April 28, 2020 5:08 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Request for help with CBT961
> >
> > I just noticed that one myself, Lionel. No, i didn't. (Got mixed up as
> > to which z/OS version I was using. Doh!) Thanks anyway Sean
> >
> > On Tue, 28 Apr 2020 at 11:05, Joe Monk  wrote:
> >
> > > Maybe this will help:
> > >
> > > //***FILE 961 is from Yves Colliard and contains a collection of*
> > > FILE 961
> > > //*   ISPF commands which can be added to your session. *
> > > FILE 961
> > > //* *
> > > FILE 961
> > > //* YCLMAC - A collection of user line commands for use in  *
> > > FILE 961
> > > //*  ISPF Edit and View *
> > > FILE 961
> > > //* *
> > > FILE 961
> > > //* by YCOS Yves Colliard Software - www.ycos.de*
> > > FILE 961
> > > //* and many others *
> > > FILE 961
> > > //* *
> > > FILE 961
> > > //* Installation:   *
> > > FILE 961
> > > //* *
> > > FILE 961
> > > //* 1. Copy YCLMACTB into ISPTLIB library   *
> > > FILE 961
> > > //* 2. Copy REXX others into SYSEXEC or SYSPROC library *
> > > FILE 961
> > > //* 3. Update ISPF site customization table (ISPFC) (z/OS 2.2)  *
> > > FILE 961
> > > //*GLOBAL_LINE_COMMAND_TABLE = YCLMACTB *
> > > FILE 961
> > > //* 4. If using (E)JES instead of SDSF change the LMACJES2/3*
> > > FILE 961
> > > //*members from sdsf to ejes*
> > > FILE 961
> > > //* *
> > > FILE 961
> > > //* Members of this dataset:*
> > > FILE 9

Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

[Chris Hoelscher]

examples of an IPCS RUNARRY ???
the side of a milk carton?


Thank You,
Chris Hoelscher
Lead Database Administrator
IBM Global Technical Services
T 502.476.2538  or 502.407.7266

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Binyamin Dissen
Sent: Sunday, April 26, 2020 9:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [External] [IBM-MAIN] Request: Examples of an IPCS RUNARRAY command 
where the EXEC clause display storage using a pointer as a displacement off of X

[External Email: Use caution with links and attachments]


I would like to see an examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X.

So far I have not been able to make it work.

--
Binyamin Dissen 
https://nam03.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.dissensoftware.com%2F&data=02%7C01%7Cchoelscher%40humana.com%7Ca4ee3dda0f5649c3d22d08d7e9ea0501%7C56c62bbe85984b859e511ca753fa50f2%7C1%7C0%7C637235063638144747&sdata=hcc4oYjrldSoHpTw5Ro9H84N7kFL8ka94pi8ezZfJDE%3D&reserved=0

Director, Dissen Software, Bar & Grill - Israel


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

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

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

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

Re: Addressing literals and Automatic Storage in Metal C

[David Crayford]

No worries!

It's a pretty small chapter so you should read it thoroughly to "grok it".

For using macros in LE code you need to use a different technique that 
uses a static function:


inline double timeused() {
    uint64_t mics = 0;
    __asm("  IEABRCX DEFINE   \n"
  "  TIMEUSED STORADR=%0,ECT=YES  \n"
  : "=m"(mics) : : "r0", "r1", "r14", "r15");
    return (double)(mics >> 12) / 100;
}

static void generate_dsects(void) {
  __asm(" CVT DSECT=YES\n"
    " IHAECVT\n"
    : : : );

}

On 2020-04-28 7:27 PM, Joseph Reichman wrote:

I really spent about an hour looking in the language guide prof and used mainly 
in metal c as I thought the topic related
Particularly to that

Thanks


On Apr 27, 2020, at 10:16 PM, David Crayford  wrote:

Joe,

You really do need to learn how to read the manuals instead of posting here so 
someone else can do it for you!

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ccrug00/insert-asm.htm


On 28 Apr 2020, at 4:23 am, Joseph Reichman  wrote:

Hi



I am trying insert assembler code (a macro) in a Metal C program that's has
literal copybook for constants and a dsect



I am assuming for the DSECT I would have to do something like @@AUTO@1 DSECT
followed by ORG @@AUTO@1+X'' after the last stack variable copy my dsect
variables

For the constants I would do ORG @@LIT@1+X'NNN' after the last constant and
then point back LOCTR to the next NSI



I am wondering if anyone has done this and can give my some tips



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

--
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: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

[Seymour J Metz]

I'd report both as bugs, but I suspect that the second is WAD. I'm sending an 
RCF asking for clarification of the second.


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


From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
Sent: Tuesday, April 28, 2020 7:51 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X

As an exercise, I invoked a REXX out of the EXEC(()) which did an EVALSYM on
X.

The (unexpected and counter-intuitive) results were that ADDRESS was the same
for every entry (the address of the first entry). The only thing that changed
was ENTRY.

I had to write a REXX to do the simple LIST command that I wished - EVALSYM
and then  (address+entry*length)

Another issue is that the LIST command from the REXX (with an explicit
calculated address) somehow inherited the ARRAY attribute and displayed much
more storage than the specified LENGTH. I had to explicitly specify MULT(1) to
get the results I expected^W wanted.




On Mon, 27 Apr 2020 17:18:00 + Seymour J Metz  wrote:

:>I don't have access to a live system, so I have to rely on the documentation, 
which sometimes omits critical information. One thought is to package the IPCS 
command in a REXX, possibly preceded by an EQ, and to use that member name in 
the RUNARRAY subcommand.
:>
:>
:>--
:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3
:>
:>
:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Monday, April 27, 2020 9:38 AM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X
:>
:>Unrelated.
:>
:>Can you provide a working example?
:>
:>On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz  wrote:
:>
:>:>Is it failing even when everything is in the same address space?
:>
:>:>Shmuel (Seymour J.) Metz
:>:>http://mason.gmu.edu/~smetz3
:>
:>:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>:>Sent: Sunday, April 26, 2020 9:59 AM
:>:>To: IBM-MAIN@LISTSERV.UA.EDU
:>:>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X
:>:>
:>:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC
:>:>clause display storage using a pointer as a displacement off of X.
:>:>
:>:>So far I have not been able to make it work.

--
Binyamin Dissen 
http://secure-web.cisco.com/1r1z1xg90B41flgqoGnsPm3UNUqiH3O7SX9WXODuN_XBK8p2d-Qw5y0lPuNSMp9z3lk9zIieT9hMybq9RauojJGBTKCIji3-zZcjZBGcirq9n04oco9SPVhBXDPKl7pwyIePXsvIevOlQkhWw_o0koutt3npZyVY_ZWCzDG27j62KRr5gMViV5cAAdGzut6aMFW4fBbzGyrIA4CfGTUh2TdB8xdT2BGvgAxJ8Qy2NKwznBr2IGFety1CbjKk4QQxcHCxq8sVOeYCPlfbzPxwf6aOQcmb_S0aMHrxJgniRPabytkf8PzW2kVMOAky5VnkbbfFI8OofYgrSuYXo6Zy7ttb81_Ih32iH11IgjcIfoCXND3dg7Z1CeuhZ3S1QRP4GYHmftRHZTWIaPIXYd6UhnR22z_zrtt-kzpykjDRwRy3cYTJ7twxHjY8TOTtUh-ZW/http%3A%2F%2Fwww.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


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

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

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

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

Re: Request for help with CBT961

[Lionel B Dyck]

I copied your JCL statement into my library, changed it to lowercase, and then 
used JU which did just that one line. I then reset that line to lowercase and 
used JU3 and all 3 lines were uppercased.

The issue may be with the ispf configuration table or the table.  Difficult to 
know.

I have tested this in the past with my own SYSEXEC, my own ISPTLIB for the 
table and my own ISPLLIB for the ISPF Configuration (and I'm still running that 
way as I do this for testing.


Lionel B. Dyck <
Website: https://www.lbdsoftware.com

"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 
Sean Gleann
Sent: Tuesday, April 28, 2020 8:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Request for help with CBT961

Problem with he JU command w.r.t. multil-ine JCL statements?

I'm not sure whether I've found a bug or if my expectations exceed the 
capability of Yves' code.

I haven't yet updated the ISPF Configuration Table. At this stage I want to 
keep the new facilities 'under test', so I followed Paul Beesley's suggestion 
earlier in this thread.

Example: I have a DD statement split over three lines:

//PDBOUT   DD   DSN=TESTFILE.NAME,
//  DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(3000,150)),
//  DSORG=PS,RECFM=FS,BLKSIZE=27648,LRECL=27648

I deliberately change the text to lower case with 'LC' commands:

//pdbout   dd   dsn=testfile.name,
//  disp=(new,catlg,delete),space=(trk,(3000,150)),
//  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648

Then I use JU commands, hoping to change the text back to upper-case:

//PDBOUT   DD   DSN=TESTFILE.NAME,
//  disp=(new,catlg,delete),space=(trk,(3000,150)),
//  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648

Lines beginning '//' aren't being converted...
I've tried again and used JUU...JUU, and with JU# - same result

Regards
Sean


On Tue, 28 Apr 2020 at 11:45, Lionel B Dyck  wrote:

> Glad you got it working - Yves did a FANTASTIC job creating this tool 
> that greatly improves ISPF Edit.
>
>
> Lionel B. Dyck <
> Website: https://www.lbdsoftware.com
>
> "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 Sean Gleann
> Sent: Tuesday, April 28, 2020 5:08 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Request for help with CBT961
>
> I just noticed that one myself, Lionel. No, i didn't. (Got mixed up as 
> to which z/OS version I was using. Doh!) Thanks anyway Sean
>
> On Tue, 28 Apr 2020 at 11:05, Joe Monk  wrote:
>
> > Maybe this will help:
> >
> > //***FILE 961 is from Yves Colliard and contains a collection of*
> > FILE 961
> > //*   ISPF commands which can be added to your session. *
> > FILE 961
> > //* *
> > FILE 961
> > //* YCLMAC - A collection of user line commands for use in  *
> > FILE 961
> > //*  ISPF Edit and View *
> > FILE 961
> > //* *
> > FILE 961
> > //* by YCOS Yves Colliard Software - www.ycos.de*
> > FILE 961
> > //* and many others *
> > FILE 961
> > //* *
> > FILE 961
> > //* Installation:   *
> > FILE 961
> > //* *
> > FILE 961
> > //* 1. Copy YCLMACTB into ISPTLIB library   *
> > FILE 961
> > //* 2. Copy REXX others into SYSEXEC or SYSPROC library *
> > FILE 961
> > //* 3. Update ISPF site customization table (ISPFC) (z/OS 2.2)  *
> > FILE 961
> > //*GLOBAL_LINE_COMMAND_TABLE = YCLMACTB *
> > FILE 961
> > //* 4. If using (E)JES instead of SDSF change the LMACJES2/3*
> > FILE 961
> > //*members from sdsf to ejes*
> > FILE 961
> > //* *
> > FILE 961
> > //* Members of this dataset:*
> > FILE 961
> > //* *
> > FILE 961
> > //*$$$DOC   This member that you are reading*
> > FILE 961
> > //*$$$HELP  A copy of the HELP information  *
> > FILE 961
> > //*$$$HELPS A short reference "card" of commands*
> > FILE 961
> > //* *
> > FILE 961
> > //* Rexx to be added to SYSEXEC/SYSPROC *
> > FILE 961
> > //*YCL

Re: Request for help with CBT961

[Sean Gleann]

Problem with he JU command w.r.t. multil-ine JCL statements?

I'm not sure whether I've found a bug or if my expectations exceed the
capability of Yves' code.

I haven't yet updated the ISPF Configuration Table. At this stage I want to
keep the new facilities 'under test', so I followed Paul Beesley's
suggestion earlier in this thread.

Example: I have a DD statement split over three lines:

//PDBOUT   DD   DSN=TESTFILE.NAME,
//  DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(3000,150)),
//  DSORG=PS,RECFM=FS,BLKSIZE=27648,LRECL=27648

I deliberately change the text to lower case with 'LC' commands:

//pdbout   dd   dsn=testfile.name,
//  disp=(new,catlg,delete),space=(trk,(3000,150)),
//  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648

Then I use JU commands, hoping to change the text back to upper-case:

//PDBOUT   DD   DSN=TESTFILE.NAME,
//  disp=(new,catlg,delete),space=(trk,(3000,150)),
//  dsorg=ps,recfm=fs,blksize=27648,lrecl=27648

Lines beginning '//' aren't being converted...
I've tried again and used JUU...JUU, and with JU# - same result

Regards
Sean


On Tue, 28 Apr 2020 at 11:45, Lionel B Dyck  wrote:

> Glad you got it working - Yves did a FANTASTIC job creating this tool that
> greatly improves ISPF Edit.
>
>
> Lionel B. Dyck <
> Website: https://www.lbdsoftware.com
>
> "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 Sean Gleann
> Sent: Tuesday, April 28, 2020 5:08 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Request for help with CBT961
>
> I just noticed that one myself, Lionel. No, i didn't. (Got mixed up as to
> which z/OS version I was using. Doh!) Thanks anyway Sean
>
> On Tue, 28 Apr 2020 at 11:05, Joe Monk  wrote:
>
> > Maybe this will help:
> >
> > //***FILE 961 is from Yves Colliard and contains a collection of*
> > FILE 961
> > //*   ISPF commands which can be added to your session. *
> > FILE 961
> > //* *
> > FILE 961
> > //* YCLMAC - A collection of user line commands for use in  *
> > FILE 961
> > //*  ISPF Edit and View *
> > FILE 961
> > //* *
> > FILE 961
> > //* by YCOS Yves Colliard Software - www.ycos.de*
> > FILE 961
> > //* and many others *
> > FILE 961
> > //* *
> > FILE 961
> > //* Installation:   *
> > FILE 961
> > //* *
> > FILE 961
> > //* 1. Copy YCLMACTB into ISPTLIB library   *
> > FILE 961
> > //* 2. Copy REXX others into SYSEXEC or SYSPROC library *
> > FILE 961
> > //* 3. Update ISPF site customization table (ISPFC) (z/OS 2.2)  *
> > FILE 961
> > //*GLOBAL_LINE_COMMAND_TABLE = YCLMACTB *
> > FILE 961
> > //* 4. If using (E)JES instead of SDSF change the LMACJES2/3*
> > FILE 961
> > //*members from sdsf to ejes*
> > FILE 961
> > //* *
> > FILE 961
> > //* Members of this dataset:*
> > FILE 961
> > //* *
> > FILE 961
> > //*$$$DOC   This member that you are reading*
> > FILE 961
> > //*$$$HELP  A copy of the HELP information  *
> > FILE 961
> > //*$$$HELPS A short reference "card" of commands*
> > FILE 961
> > //* *
> > FILE 961
> > //* Rexx to be added to SYSEXEC/SYSPROC *
> > FILE 961
> > //*YCLMACDS REXX to extract DSN from records*
> > FILE 961
> > //*YCLMACHG Summary of Changes  *
> > FILE 961
> > //*YCLMACLM REXX to get messages*
> > FILE 961
> > //*YCLMACNS REXX to support split screen functions  *
> > FILE 961
> > //*YCLMACRX REXX to process new line commands   *
> > FILE 961
> > //*YCLMAHLP REXX to display help information*
> > FILE 961
> > //*YCLMAHLU REXX to display user extensions *
> > FILE 961
> > //* help information*
> > FILE 961
> > //*Y$CL REXX to compare members *
> > FILE 961
> > //*Y$HC REXX short help *
> > FILE 961
> > //* 

Re: XL C\C ++ sizeof of datatypes

[David Crayford]

On 2020-04-26 2:13 PM, Thomas David Rivers wrote:

There's a lot being thrown around here

However, there _are_ places in the C language where the compiler must
fold constants at compile time, e.g.:

   enum tag { one = (1+0), two = (1+1+0) };

That is obliged to compile and the compiler most compute those
additions to provide the proper values for the "one" and "two" 
enumeration

constants.

The C standard has more details about this.    So most compilers will
easily handle most constant computions (there are several corners
that are interesting to consider...  probably only interesting to
compiler writers :-) )

It seems there were plenty of other answers about the vagaries
of parameters and default integer promotions, etc... 


Great post (from an expert)! default integer promotions can be 
particularly treacherous!


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

Re: Request: Examples of an IPCS RUNARRAY command where the EXEC clause display storage using a pointer as a displacement off of X

[Binyamin Dissen]

As an exercise, I invoked a REXX out of the EXEC(()) which did an EVALSYM on
X.

The (unexpected and counter-intuitive) results were that ADDRESS was the same
for every entry (the address of the first entry). The only thing that changed
was ENTRY.

I had to write a REXX to do the simple LIST command that I wished - EVALSYM
and then  (address+entry*length)

Another issue is that the LIST command from the REXX (with an explicit
calculated address) somehow inherited the ARRAY attribute and displayed much
more storage than the specified LENGTH. I had to explicitly specify MULT(1) to
get the results I expected^W wanted.




On Mon, 27 Apr 2020 17:18:00 + Seymour J Metz  wrote:

:>I don't have access to a live system, so I have to rely on the documentation, 
which sometimes omits critical information. One thought is to package the IPCS 
command in a REXX, possibly preceded by an EQ, and to use that member name in 
the RUNARRAY subcommand.
:>
:>
:>--
:>Shmuel (Seymour J.) Metz
:>http://mason.gmu.edu/~smetz3
:>
:>
:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>Sent: Monday, April 27, 2020 9:38 AM
:>To: IBM-MAIN@LISTSERV.UA.EDU
:>Subject: Re: Request: Examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X
:>
:>Unrelated.
:>
:>Can you provide a working example?
:>
:>On Sun, 26 Apr 2020 21:19:12 + Seymour J Metz  wrote:
:>
:>:>Is it failing even when everything is in the same address space?
:>
:>:>Shmuel (Seymour J.) Metz
:>:>http://mason.gmu.edu/~smetz3
:>
:>:>From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of 
Binyamin Dissen [bdis...@dissensoftware.com]
:>:>Sent: Sunday, April 26, 2020 9:59 AM
:>:>To: IBM-MAIN@LISTSERV.UA.EDU
:>:>Subject: Request: Examples of an IPCS RUNARRAY command where the EXEC 
clause display storage using a pointer as a displacement off of X
:>:>
:>:>I would like to see an examples of an IPCS RUNARRAY command where the EXEC
:>:>clause display storage using a pointer as a displacement off of X.
:>:>
:>:>So far I have not been able to make it work.

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

Director, Dissen Software, Bar & Grill - Israel


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

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

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

Re: Covid-19 COBOL Needs

[Stan Saraczewski]

Same form letter I got. Oh well...

On Tue, Apr 28, 2020 at 4:25 AM Matt Hogstrom  wrote:

> Received this response from New Jersey (I sent in a volunteer request a
> few days after the initial call for coders)
>
> Hello,
>
> Thank you, again, for expressing your interest in assisting the State of
> New Jersey's response to the unprecedented challenges raised by COVID-19.
> Thousands of people and organizations have reached out, and we're truly
> humbled by our communities' response to these trying times.
> At this time, the State of New Jersey has sufficient technical staff to
> support critical services. However, we are grateful for your interest and
> your spirit of public service. As we battle this pandemic, we are
> constantly evaluating our needs and the best ways to continue serving New
> Jerseyans. Should further technological assistance be required, we will be
> in touch.
>
> In the interim, if you are interested in volunteering, we encourage you to
> explore the following two options:
> 1) There are an array of non-profit service providers assisting New
> Jerseyans in need - sign up to volunteer in your community by visiting our
> new volunteer portal.
> 2) U.S. Digital Response is offering pro bono support to state and local
> governments across the country - learn more about signing up to help other
> communities here.
>
> Thank you, again, for your offer to assist the State of New Jersey.
>
> Sincerely,
> The State of New Jersey’s COVID-19 Response Team
>
>
>
> Matt Hogstrom
> m...@hogstrom.org
> PGP Key: 0x90ECB270
>
> “To achieve great things two things are needed: a plan, and not quite
> enough time.”
> - Leonard Bernstein
>
>
> --
> 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: Addressing literals and Automatic Storage in Metal C

[Joseph Reichman]

I really spent about an hour looking in the language guide prof and used mainly 
in metal c as I thought the topic related 
Particularly to that 

Thanks 

> On Apr 27, 2020, at 10:16 PM, David Crayford  wrote:
> 
> Joe,
> 
> You really do need to learn how to read the manuals instead of posting here 
> so someone else can do it for you!
> 
> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ccrug00/insert-asm.htm
> 
>> On 28 Apr 2020, at 4:23 am, Joseph Reichman  wrote:
>> 
>> Hi
>> 
>> 
>> 
>> I am trying insert assembler code (a macro) in a Metal C program that's has
>> literal copybook for constants and a dsect
>> 
>> 
>> 
>> I am assuming for the DSECT I would have to do something like @@AUTO@1 DSECT
>> followed by ORG @@AUTO@1+X'' after the last stack variable copy my dsect
>> variables
>> 
>> For the constants I would do ORG @@LIT@1+X'NNN' after the last constant and
>> then point back LOCTR to the next NSI
>> 
>> 
>> 
>> I am wondering if anyone has done this and can give my some tips
>> 
>> 
>> 
>> 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

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

Covid-19 COBOL Needs

[Matt Hogstrom]

Received this response from New Jersey (I sent in a volunteer request a few 
days after the initial call for coders)

Hello,

Thank you, again, for expressing your interest in assisting the State of New 
Jersey's response to the unprecedented challenges raised by COVID-19. 
Thousands of people and organizations have reached out, and we're truly humbled 
by our communities' response to these trying times. 
At this time, the State of New Jersey has sufficient technical staff to support 
critical services. However, we are grateful for your interest and your spirit 
of public service. As we battle this pandemic, we are constantly evaluating our 
needs and the best ways to continue serving New Jerseyans. Should further 
technological assistance be required, we will be in touch.

In the interim, if you are interested in volunteering, we encourage you to 
explore the following two options: 
1) There are an array of non-profit service providers assisting New Jerseyans 
in need - sign up to volunteer in your community by visiting our new volunteer 
portal.
2) U.S. Digital Response is offering pro bono support to state and local 
governments across the country - learn more about signing up to help other 
communities here. 

Thank you, again, for your offer to assist the State of New Jersey.
 
Sincerely, 
The State of New Jersey’s COVID-19 Response Team



Matt Hogstrom
m...@hogstrom.org
PGP Key: 0x90ECB270

“To achieve great things two things are needed: a plan, and not quite enough 
time.”
- Leonard Bernstein


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

Re: Request for help with CBT961

[Lionel B Dyck]

Glad you got it working - Yves did a FANTASTIC job creating this tool that 
greatly improves ISPF Edit.


Lionel B. Dyck <
Website: https://www.lbdsoftware.com

"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 
Sean Gleann
Sent: Tuesday, April 28, 2020 5:08 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Request for help with CBT961

I just noticed that one myself, Lionel. No, i didn't. (Got mixed up as to which 
z/OS version I was using. Doh!) Thanks anyway Sean

On Tue, 28 Apr 2020 at 11:05, Joe Monk  wrote:

> Maybe this will help:
>
> //***FILE 961 is from Yves Colliard and contains a collection of*
> FILE 961
> //*   ISPF commands which can be added to your session. *
> FILE 961
> //* *
> FILE 961
> //* YCLMAC - A collection of user line commands for use in  *
> FILE 961
> //*  ISPF Edit and View *
> FILE 961
> //* *
> FILE 961
> //* by YCOS Yves Colliard Software - www.ycos.de*
> FILE 961
> //* and many others *
> FILE 961
> //* *
> FILE 961
> //* Installation:   *
> FILE 961
> //* *
> FILE 961
> //* 1. Copy YCLMACTB into ISPTLIB library   *
> FILE 961
> //* 2. Copy REXX others into SYSEXEC or SYSPROC library *
> FILE 961
> //* 3. Update ISPF site customization table (ISPFC) (z/OS 2.2)  *
> FILE 961
> //*GLOBAL_LINE_COMMAND_TABLE = YCLMACTB *
> FILE 961
> //* 4. If using (E)JES instead of SDSF change the LMACJES2/3*
> FILE 961
> //*members from sdsf to ejes*
> FILE 961
> //* *
> FILE 961
> //* Members of this dataset:*
> FILE 961
> //* *
> FILE 961
> //*$$$DOC   This member that you are reading*
> FILE 961
> //*$$$HELP  A copy of the HELP information  *
> FILE 961
> //*$$$HELPS A short reference "card" of commands*
> FILE 961
> //* *
> FILE 961
> //* Rexx to be added to SYSEXEC/SYSPROC *
> FILE 961
> //*YCLMACDS REXX to extract DSN from records*
> FILE 961
> //*YCLMACHG Summary of Changes  *
> FILE 961
> //*YCLMACLM REXX to get messages*
> FILE 961
> //*YCLMACNS REXX to support split screen functions  *
> FILE 961
> //*YCLMACRX REXX to process new line commands   *
> FILE 961
> //*YCLMAHLP REXX to display help information*
> FILE 961
> //*YCLMAHLU REXX to display user extensions *
> FILE 961
> //* help information*
> FILE 961
> //*Y$CL REXX to compare members *
> FILE 961
> //*Y$HC REXX short help *
> FILE 961
> //* *
> FILE 961
> //* ISPF Table - must be copied to ISPTLIB  *
> FILE 961
> //*YCLMACTB ISPF Table of Line Commands *
> FILE 961
> //* *
> FILE 961
> //* Rexx Additional commands - extra installation needed*
> FILE 961
> //* Rexx to be added to SYSEXEC/SYSPROC if needed   *
> FILE 961
> //*Y$REVREXX to interface to Greg Price's   *
> FILE 961
> //* REVIEW command  *
> FILE 961
> //*Y$PDSREXX to interface to the PDS command*
> FILE 961
> //*Y$PG REXX to interface to Lionel Dyck's PDSEGEN
>  FILE 961
> //*YCLMACT  REXX to support user line command   *
> FILE 961
> //* table extensions*
> FILE 961
> //* *
> FILE 961
> //* Samples to run EX command   *
> FILE 961
> //*LMACJES2 Sample JES2 commands for use with EX*
> FILE 961
> //*LMACJES3 Sample JES3 commands for use with EX*
> FILE 961
> //*LMACMVS  Sample MVS (SDSF/EJES

Re: Friday OT, cheerful program for gloomy times

[CM Poncelet]

Thanks - I have figured out how to use it.
 
It's an edit macro and it must therefore be saved with an ".spf"
extension instead of the ".isp" one used for CTC Rexx execs. Also, it
needs to be invoked while editing a file and not issued as a TSO
command. When all that is done, it works OK.
 
Thanks again.
 
Cheers, Chris


On 28/04/2020 13:56, Robert Prins wrote:
> On 2020-04-28 03:47, CM Poncelet wrote:
>> Thanks, but I get the following errors:
>>   ecalc(182): Error #39, Evaluation stack overflow
>>  do until tmp = tail
>>
>> PRESS ANY KEY TO CONTINUE.
>>   and
>>   Error 10: Illegal ISPEXEC Service 'isredit macro (parm) NOPROCESS'.
>>
>> PRESS ANY KEY TO CONTINUE.
>>   I have CTC Rexx running under DOS - perhaps not the right environment
>> for this 
>
> It probably isn't, and as I do not have access to CTC Rexx, it's
> highly unlikely that I'll ever update it for that environment.
> However, it probably should get a bit of TLC, given that the last
> update was nearly 11 years ago!
>
> I can only suggest you try a "trace ?r" to see why the error occurs.
>
> FWIW, if cross-over points are critical, I can concur, yesterday my
> P-cycle went through zero, and I managed to put my finger on a still
> running band-sander. Result wasn't pretty.
>
> And for what it's worth, if you use ecalc as a TSO command, you'll
> have to move the resulting long-message window to correctly see the
> biorhythm graph, on my 160x62 screen moving the left edge to column
> 91/2/3/4 will give you a correct display.
>
> Robert

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

Re: Request for help with CBT961

[Beesley, Paul]

Step 3 is required for making the change global.
But you can test it by entering the name of the table in the Edit Entry Panel 
for testing. It's at the bottom and will be remembered across logons

Line Command Table . . YCLMACTB  Data Encoding

Paul

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Lionel B Dyck
Sent: 28 April 2020 11:04
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Request for help with CBT961

Caution! External email. Do not open attachments or click links, unless this 
email comes from a known sender and you know the content is safe.

Did you update your ISPF Configuration table?

From the $$$DOC member these are the 1st 3 steps:

Installation:

   1. Copy YCLMACTB into ISPTLIB library (see $$$INST)
   2. Copy REXX others into SYSEXEC or SYSPROC library (see $$$INST)
   3. Update ISPF site customization table (ISPFC) (z/OS 2.2)
  GLOBAL_LINE_COMMAND_TABLE = YCLMACTB
   4. If using (E)JES instead of SDSF change the LMACJES2/3
  members from sdsf to ejes

It appears you have done 1 and 2 but skipped 3.  Issue from any ISPF Panel: TSO 
ISPCCONF to do (3).

Hope this helps

Lionel B. Dyck <
Website: 
https://eur01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.lbdsoftware.com%2F&data=02%7C01%7Cpaul.beesley%40atos.net%7Cdd79a67516514e546fb108d7eb5b9234%7C33440fc6b7c7412cbb730e70b0198d5a%7C0%7C0%7C637236650846912782&sdata=%2BcoZbDPvC1iowGKAmJh%2FGsppnk%2B3npYKxBMtKhoR5Ac%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

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Sean Gleann
Sent: Tuesday, April 28, 2020 4:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Request for help with CBT961

Can anyone help me with installing/using the ISPF editor extensions provided in 
CBT961, please?

CBT961 came to my notice when reading through another thread here, and I 
thought it might come in handy.
I've downloaded and RECVd the install package, then modified and used the 
£££INST skeleton JCL to copy the supplied members into the SYSEXEC and ISPTLIB 
liraries specified in the relevant concatenations in my TSO logon proc.
Logged off and on again, and tried to make use of the new commands in an ISPF 
edit ...
Result: 'Command not recognised' in every case.

What (almost certainly very basic) step have I missed out here?
It's not a RACF thing. It's just as if I hadn't done anything at all.

Hopefully,
Sean Gleann

--
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
Atos and Canopy The Open Cloud Company are trading names used by the Atos 
group. The following trading entities are registered in England and Wales: Atos 
IT Services UK Limited (registered number 01245534) and Canopy The Open Cloud 
Company Limited (registration number 08011902). The registered office for each 
is at Second Floor, Mid City Place, 71 High Holborn, London, WC1V 6EA.  The VAT 
No. for each is: GB232327983.

This e-mail and the documents attached are confidential and intended solely for 
the addressee, and may contain confidential or privileged information. If you 
receive this e-mail in error, you are not authorised to copy, disclose, use or 
retain it. Please notify the sender immediately and delete this email from your 
systems. As emails may be intercepted, amended or lost, they are not secure. 
Atos therefore can accept no liability for any errors or their content. 
Although Atos endeavours to maintain a virus-free network, we do not warrant 
that this transmission is virus-free and can accept no liability for any 
damages resulting from any virus transmitted. The risks are deemed to be 
accepted by everyone who communicates with Atos by email.

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

Re: Request for help with CBT961

[Sean Gleann]

I just noticed that one myself, Lionel. No, i didn't. (Got mixed up as to
which z/OS version I was using. Doh!)
Thanks anyway
Sean

On Tue, 28 Apr 2020 at 11:05, Joe Monk  wrote:

> Maybe this will help:
>
> //***FILE 961 is from Yves Colliard and contains a collection of*
> FILE 961
> //*   ISPF commands which can be added to your session. *
> FILE 961
> //* *
> FILE 961
> //* YCLMAC - A collection of user line commands for use in  *
> FILE 961
> //*  ISPF Edit and View *
> FILE 961
> //* *
> FILE 961
> //* by YCOS Yves Colliard Software - www.ycos.de*
> FILE 961
> //* and many others *
> FILE 961
> //* *
> FILE 961
> //* Installation:   *
> FILE 961
> //* *
> FILE 961
> //* 1. Copy YCLMACTB into ISPTLIB library   *
> FILE 961
> //* 2. Copy REXX others into SYSEXEC or SYSPROC library *
> FILE 961
> //* 3. Update ISPF site customization table (ISPFC) (z/OS 2.2)  *
> FILE 961
> //*GLOBAL_LINE_COMMAND_TABLE = YCLMACTB *
> FILE 961
> //* 4. If using (E)JES instead of SDSF change the LMACJES2/3*
> FILE 961
> //*members from sdsf to ejes*
> FILE 961
> //* *
> FILE 961
> //* Members of this dataset:*
> FILE 961
> //* *
> FILE 961
> //*$$$DOC   This member that you are reading*
> FILE 961
> //*$$$HELP  A copy of the HELP information  *
> FILE 961
> //*$$$HELPS A short reference "card" of commands*
> FILE 961
> //* *
> FILE 961
> //* Rexx to be added to SYSEXEC/SYSPROC *
> FILE 961
> //*YCLMACDS REXX to extract DSN from records*
> FILE 961
> //*YCLMACHG Summary of Changes  *
> FILE 961
> //*YCLMACLM REXX to get messages*
> FILE 961
> //*YCLMACNS REXX to support split screen functions  *
> FILE 961
> //*YCLMACRX REXX to process new line commands   *
> FILE 961
> //*YCLMAHLP REXX to display help information*
> FILE 961
> //*YCLMAHLU REXX to display user extensions *
> FILE 961
> //* help information*
> FILE 961
> //*Y$CL REXX to compare members *
> FILE 961
> //*Y$HC REXX short help *
> FILE 961
> //* *
> FILE 961
> //* ISPF Table - must be copied to ISPTLIB  *
> FILE 961
> //*YCLMACTB ISPF Table of Line Commands *
> FILE 961
> //* *
> FILE 961
> //* Rexx Additional commands - extra installation needed*
> FILE 961
> //* Rexx to be added to SYSEXEC/SYSPROC if needed   *
> FILE 961
> //*Y$REVREXX to interface to Greg Price's   *
> FILE 961
> //* REVIEW command  *
> FILE 961
> //*Y$PDSREXX to interface to the PDS command*
> FILE 961
> //*Y$PG REXX to interface to Lionel Dyck's PDSEGEN
>  FILE 961
> //*YCLMACT  REXX to support user line command   *
> FILE 961
> //* table extensions*
> FILE 961
> //* *
> FILE 961
> //* Samples to run EX command   *
> FILE 961
> //*LMACJES2 Sample JES2 commands for use with EX*
> FILE 961
> //*LMACJES3 Sample JES3 commands for use with EX*
> FILE 961
> //*LMACMVS  Sample MVS (SDSF/EJES) commands for *
> FILE 961
> //* use with EX *
> FILE 961
> //*LMACTSO  Sample TSO commands for use with EX *
> FILE 961
> //*LMACUSS  Sample OMVS commands for use with EX*
> FILE 961
> //*LMACING  Sample System Automation cmds use   *
> FILE 961
> //* with EX *
> FILE 961
> //*LMACISPF Sample ISPF commands use with 

Re: Request for help with CBT961

[Joe Monk]

Maybe this will help:

//***FILE 961 is from Yves Colliard and contains a collection of*
FILE 961
//*   ISPF commands which can be added to your session. *
FILE 961
//* *
FILE 961
//* YCLMAC - A collection of user line commands for use in  *
FILE 961
//*  ISPF Edit and View *
FILE 961
//* *
FILE 961
//* by YCOS Yves Colliard Software - www.ycos.de*
FILE 961
//* and many others *
FILE 961
//* *
FILE 961
//* Installation:   *
FILE 961
//* *
FILE 961
//* 1. Copy YCLMACTB into ISPTLIB library   *
FILE 961
//* 2. Copy REXX others into SYSEXEC or SYSPROC library *
FILE 961
//* 3. Update ISPF site customization table (ISPFC) (z/OS 2.2)  *
FILE 961
//*GLOBAL_LINE_COMMAND_TABLE = YCLMACTB *
FILE 961
//* 4. If using (E)JES instead of SDSF change the LMACJES2/3*
FILE 961
//*members from sdsf to ejes*
FILE 961
//* *
FILE 961
//* Members of this dataset:*
FILE 961
//* *
FILE 961
//*$$$DOC   This member that you are reading*
FILE 961
//*$$$HELP  A copy of the HELP information  *
FILE 961
//*$$$HELPS A short reference "card" of commands*
FILE 961
//* *
FILE 961
//* Rexx to be added to SYSEXEC/SYSPROC *
FILE 961
//*YCLMACDS REXX to extract DSN from records*
FILE 961
//*YCLMACHG Summary of Changes  *
FILE 961
//*YCLMACLM REXX to get messages*
FILE 961
//*YCLMACNS REXX to support split screen functions  *
FILE 961
//*YCLMACRX REXX to process new line commands   *
FILE 961
//*YCLMAHLP REXX to display help information*
FILE 961
//*YCLMAHLU REXX to display user extensions *
FILE 961
//* help information*
FILE 961
//*Y$CL REXX to compare members *
FILE 961
//*Y$HC REXX short help *
FILE 961
//* *
FILE 961
//* ISPF Table - must be copied to ISPTLIB  *
FILE 961
//*YCLMACTB ISPF Table of Line Commands *
FILE 961
//* *
FILE 961
//* Rexx Additional commands - extra installation needed*
FILE 961
//* Rexx to be added to SYSEXEC/SYSPROC if needed   *
FILE 961
//*Y$REVREXX to interface to Greg Price's   *
FILE 961
//* REVIEW command  *
FILE 961
//*Y$PDSREXX to interface to the PDS command*
FILE 961
//*Y$PG REXX to interface to Lionel Dyck's PDSEGEN
 FILE 961
//*YCLMACT  REXX to support user line command   *
FILE 961
//* table extensions*
FILE 961
//* *
FILE 961
//* Samples to run EX command   *
FILE 961
//*LMACJES2 Sample JES2 commands for use with EX*
FILE 961
//*LMACJES3 Sample JES3 commands for use with EX*
FILE 961
//*LMACMVS  Sample MVS (SDSF/EJES) commands for *
FILE 961
//* use with EX *
FILE 961
//*LMACTSO  Sample TSO commands for use with EX *
FILE 961
//*LMACUSS  Sample OMVS commands for use with EX*
FILE 961
//*LMACING  Sample System Automation cmds use   *
FILE 961
//* with EX *
FILE 961
//*LMACISPF Sample ISPF commands use with EX*
FILE 961
//* *
FILE 961
//* Sample coding for own application   *
FILE 961
//*YLM01Sample application using own line   *
FILE 961
//* commands*
FILE 961
//*YLM02Sample application using own line   *
FILE 9

Re: Request for help with CBT961

[Lionel B Dyck]

Did you update your ISPF Configuration table?

>From the $$$DOC member these are the 1st 3 steps:

Installation:
 
   1. Copy YCLMACTB into ISPTLIB library (see $$$INST)   
   2. Copy REXX others into SYSEXEC or SYSPROC library (see $$$INST) 
   3. Update ISPF site customization table (ISPFC) (z/OS 2.2)
  GLOBAL_LINE_COMMAND_TABLE = YCLMACTB   
   4. If using (E)JES instead of SDSF change the LMACJES2/3  
  members from sdsf to ejes  

It appears you have done 1 and 2 but skipped 3.  Issue from any ISPF Panel: TSO 
ISPCCONF to do (3).

Hope this helps

Lionel B. Dyck <
Website: https://www.lbdsoftware.com

"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 
Sean Gleann
Sent: Tuesday, April 28, 2020 4:58 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Request for help with CBT961

Can anyone help me with installing/using the ISPF editor extensions provided in 
CBT961, please?

CBT961 came to my notice when reading through another thread here, and I 
thought it might come in handy.
I've downloaded and RECVd the install package, then modified and used the 
£££INST skeleton JCL to copy the supplied members into the SYSEXEC and ISPTLIB 
liraries specified in the relevant concatenations in my TSO logon proc.
Logged off and on again, and tried to make use of the new commands in an ISPF 
edit ...
Result: 'Command not recognised' in every case.

What (almost certainly very basic) step have I missed out here?
It's not a RACF thing. It's just as if I hadn't done anything at all.

Hopefully,
Sean Gleann

--
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: Latest COBOL standard is 2014 was Re: Cobol

[R.S.]

W dniu 27.04.2020 o 17:48, Bernd Oppolzer pisze:

Am 27.04.2020 um 15:39 schrieb Clark Morris:

I wanted USAGE BIT 50 years ago because I was dealing with
bit switches on customer, product and open account files. 



In 1992, my customer at that time (local transport) wanted to help
the local transport company in Lodz (Poland), which is our partner town,
to replace their ODRA machine (Polish ICL clone) by an IBM mainframe
(4381 model 12, IIRC) running VM/CMS, VSE, CICS, SQL/DS etc.
The programs there were COBOL programs. Our manager told the people 
there,

that there will be no problem, because COBOL is COBOL, after all.

When we looked at the COBOL programs at the ODRA machine, we soon
realized two severe problems that gave us some headaches:

- a printer with line width 160 characters (we had 132 maximum);
all ODRA programs of course used this line width for their reports

- and variable definitions like this:
01  BITS  PIC 1(8).
that is: eight bits.

So the migration to IBM was not as cheap as expected :-)
what made our support more painful was the use of polish variable names
throughout the programs ... nobody of us knew Polish, only one of them 
knew

German, and one knew English :-(
but it was a very nice experience, great fun, and we stayed friends 
until today


Benrd,
As you know I live in Lodz (proper name: Łódź) and know a little bit 
this case.
AFAIK they used 4381 mostly for Odra emulation program which ran under 
VM. In 1999 they replaced 4381 with "integrat" (grat is junk in Polish), 
that means P/390 machine. I saw it, touched it, even heard the price, 
but I don't know the parameters.

I think all of the staff retired or even passed away (my colleague).

In my opinion both migrations were simply wrong. The needs of MPK could 
be satisfied with regular PC, not even strong one. Of course that would 
require change of the application, but it would be cheaper than the 
hardware spendings. (of course I know they got 4381 for free as well as 
the tramway).


BTW: Nowadays MPK still buy second hand tramways from Germany. :-) The 
have strong mechanical workshop so they do renovations even for other 
cities. The price of used tramway is approx. 1/30 of new one (which 
often also need significant maintenance).



For those who don't know ODRA: There were many incompatible machines 
with that name, however the most popular and latest Odra was licensed 
clone of ICL 1900 with GEORGE 3 operating system. AFAIK the last Odra 
was switched off in 2006. The manufacturer of Odra was ELWRO in Wrocław 
- beautiful city by the Odra river. Now there is IBM office there - 
2000-3000 IT specialists supporting various systems including mainframes.


Regards
--
Radoslaw Skorupka
Lodz, Poland





==

Jeśli nie jesteś adresatem tej wiadomości:

- powiadom nas o tym w mailu zwrotnym (dziękujemy!),
- usuń trwale tę wiadomość (i wszystkie kopie, które wydrukowałeś lub zapisałeś 
na dysku).
Wiadomość ta może zawierać chronione prawem informacje, które może wykorzystać 
tylko adresat.Przypominamy, że każdy, kto rozpowszechnia (kopiuje, rozprowadza) 
tę wiadomość lub podejmuje podobne działania, narusza prawo i może podlegać 
karze.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. Sąd Rejonowy dla m. st. 
Warszawy XII Wydział Gospodarczy Krajowego Rejestru Sądowego, KRS 025237, 
NIP: 526-021-50-88. Kapitał zakładowy (opłacony w całości) według stanu na 
01.01.2020 r. wynosi 169.401.468 złotych.

If you are not the addressee of this message:

- let us know by replying to this e-mail (thank you!),
- delete this message permanently (including all the copies which you have 
printed out or saved).
This message may contain legally protected information, which may be used 
exclusively by the addressee.Please be reminded that anyone who disseminates 
(copies, distributes) this message or takes any similar action, violates the 
law and may be penalised.

mBank S.A. with its registered office in Warsaw, ul. Senatorska 18, 00-950 
Warszawa,www.mBank.pl, e-mail: kont...@mbank.pl. District Court for the Capital 
City of Warsaw, 12th Commercial Division of the National Court Register, KRS 
025237, NIP: 526-021-50-88. Fully paid-up share capital amounting to PLN 
169.401.468 as at 1 January 2020.

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

Request for help with CBT961

[Sean Gleann]

Can anyone help me with installing/using the ISPF editor extensions
provided in CBT961, please?

CBT961 came to my notice when reading through another thread here, and I
thought it might come in handy.
I've downloaded and RECVd the install package, then modified and used
the £££INST skeleton JCL to copy the supplied members into the SYSEXEC and
ISPTLIB liraries specified in the relevant concatenations in my TSO logon
proc.
Logged off and on again, and tried to make use of the new commands in an
ISPF edit ...
Result: 'Command not recognised' in every case.
What (almost certainly very basic) step have I missed out here?
It's not a RACF thing. It's just as if I hadn't done anything at all.

Hopefully,
Sean Gleann

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

Re: Friday OT, cheerful program for gloomy times

[Robert Prins]

On 2020-04-28 03:47, CM Poncelet wrote:

Thanks, but I get the following errors:
  
ecalc(182): Error #39, Evaluation stack overflow

     do until tmp = tail

PRESS ANY KEY TO CONTINUE.
  
and
  
Error 10: Illegal ISPEXEC Service 'isredit macro (parm) NOPROCESS'.


PRESS ANY KEY TO CONTINUE.
  
I have CTC Rexx running under DOS - perhaps not the right environment

for this 


It probably isn't, and as I do not have access to CTC Rexx, it's highly unlikely 
that I'll ever update it for that environment. However, it probably should get a 
bit of TLC, given that the last update was nearly 11 years ago!


I can only suggest you try a "trace ?r" to see why the error occurs.

FWIW, if cross-over points are critical, I can concur, yesterday my P-cycle went 
through zero, and I managed to put my finger on a still running band-sander. 
Result wasn't pretty.


And for what it's worth, if you use ecalc as a TSO command, you'll have to move 
the resulting long-message window to correctly see the biorhythm graph, on my 
160x62 screen moving the left edge to column 91/2/3/4 will give you a correct 
display.


Robert
--
Robert AH Prins
robert(a)prino(d)org
The hitchhiking grandfather - https://prino.neocities.org/indez.html
Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html


On 27/04/2020 15:29, Robert Prins wrote:

On 2020-04-24 06:01, CM Poncelet wrote:

I attach a Rexx program to calculate and display the biorhythm values
for a given date of birth and current or whatever other date.


And if you want to see some niche graphs, try "ecalc
biog(dd.mm.)", where ecalc can be found (for now) @


Also contains a few other more-or-lesser useful conversions, "ecalc ?"
will display some help.

Robert


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




--
Robert AH Prins
robert.ah.prins(a)gmail.com
The hitchhiking grandfather - https://prino.neocities.org/indez.html
Some REXX code for use on z/OS - https://prino.neocities.org/zOS/zOS-Tools.html

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

Re: Friday OT, cheerful program for gloomy times

[David Crayford]

No worries. FWIW,  I think using the // modulo operator would make your 
code less verbose and complex ;)


On 2020-04-28 11:14 AM, CM Poncelet wrote:

Yes, you are absolutely right. I thought it was the other way round,
divisble by 100 being leap years and by 400 not leap years.
  
It should have been

   LEAP  = (YEAR-YEAR%4*4=0 & YEAR-YEAR%100*100¬=0 | YEAR-YEAR%400*400=0)
  
This does not affect the calculations themselves, but it does report

incorrectly e.g. that 2000.0229 is not valid.
  
Thanks a lot for pointing this out.
  
Cheers, Chris Poncelet
  
  


On 27/04/2020 10:01, David Crayford wrote:

FYI, you have a bug with your leap year calculation. You need to check
if the year is evenly dividable by 100 (which are not leap years
unless evenly divisible by 400).

isleap: procedure
   arg year .
   return (year // 4 = 0 & year // 100 /= 0 ) | year // 400 = 0

On 2020-04-24 2:01 PM, CM Poncelet wrote:

I attach a Rexx program to calculate and display the biorhythm values
for a given date of birth and current or whatever other date.
   If 'management' complains that home workers are not putting enough
effort into their working-from-home time, they can run this thing and
send its output to 'management' just to prove that they are in perfect
working condition and that any slow-down in productivity must be due to
external factors which are wholly beyond their control .
   Cheers, Chris Poncelet (retired sysprog)

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

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


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


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