Re: ISPF for mainframe Linux (yet another email...)

2021-01-26 Thread Joe Monk
So you went  to  hotmail? Why not outlook.com?

Joe

On Tue, Jan 26, 2021 at 1:44 PM Radoslaw Skorupka 
wrote:

> W dniu 26.01.2021 o 18:48, Paul Gilmartin pisze:
> > (YA Mail provider!?)
> > On Tue, 26 Jan 2021 17:29:24 +0100, Radoslaw Skorupka  wrote:
>
> I'm sorry, I feel guilty for the noise.
> Yes, I changed email provider again. I was really trying to work with
> yahoo.
> I hope this is last change. I apologize for mess, that's one of the
> reasons I notified community about the change.
>
> Regards
> --
> Radoslaw Skorupka
> (currently unemployed)
> Lodz, Poland
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Isolating a CSECT within a load module

2021-01-22 Thread Joe Monk
There are many SVCs and service routines that have multiple ENTRY
statements

Joe

On Fri, Jan 22, 2021 at 9:37 AM Seymour J Metz  wrote:

> No, the ENTRY statement and the entry parameter on the END statement
> should only be coded in the source for a main program or main CSECT of a
> secondary load module or program object.
>
>
> --
> 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: Thursday, January 21, 2021 8:06 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Isolating a CSECT within a load module
>
> The "END " should always be coded to ensure that the
> beginning of "" is also the entry point.
>
> On 21/01/2021 20:54, Jesse 1 Robinson wrote:
> > Without some kind of explicit ENTRY indicator within the source--like
> END BAMKAPP--there was no ENTRY point generated in the app module. Hence
> specifying ENTRY BANKAPP to the linker got 'not found'. Maybe today's
> binder takes care of this, but in the 80s we could not find an obvious way
> to solve it.
> >
> > Given more time we might have come to a resolution, but at the time we
> were stumped.
> >
> > .
> > .
> > J.O.Skip Robinson
> > Southern California Edison Company
> > Electric Dragon Team Paddler
> > SHARE MVS Program Co-Manager
> > 323-715-0595 Mobile
> > 626-543-6132 Office ⇐=== NEW
> > robin...@sce.com
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> Behalf Of Steve Smith
> > Sent: Thursday, January 21, 2021 12:44 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: (External):Re: Isolating a CSECT within a load module
> >
> > *** EXTERNAL EMAIL - Use caution when opening links or attachments ***
> >
> > No one knew how to code an ENTRY statement?
> >
> > Personally, I'd make that message the Binder emits about defaulting the
> entry point to be an RC=8 level error.  I usually discover this oversight
> when something crashes after an APPLY, and by then, it's not so simple to
> add the ENTRY.
> >
> > sas
> >
> >
> > On Thu, Jan 21, 2021 at 3:22 PM Jesse 1 Robinson <
> jesse1.robin...@sce.com>
> > wrote:
> >
> >> ...
> >> As long as the program was compiled and linked in the same run, the
> >> END statement picked up BANKAPP as entry point and everything was
> >> cool. But when run separately, the entry point was indeterminate, so
> link failed.
> >> Source of course was not available so we could not add
> >>
> >>   END BANKAPP
> >> ...
> >>
> > --
> > 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: SAS/C++ help

2021-01-21 Thread Joe Monk
according  to here:
https://support.sas.com/archive/installation/admindoc/installation/c_7.50F_MVS.pdf

Its prefix.RW.LIBSTD.A and prefix.RW.LIBTOOLS.A for the rogue wave  libs...

look at page 58/61

Joe



On Thu, Jan 21, 2021 at 4:04 AM David Crayford  wrote:

> I'm working on a project that uses SAS/C++ and I'm having problems
> getting the sasCC370 compiler in z/OS UNIX configured to include the
> Rogue Wave STL library. In the sascc.cfg file  I specified
> CXXLIBPREFIX=VENDOR.C750.RW
> but then it failed because the LIBCXX data set was not found. I tried to
> concatanate libraries using CXXLIBPREFIX=VENDOR.C750:VENDOR:C750.RW but
> that didn't work.
>
> Is there a forum where I can ask SAS/C++ questions?
>
>
>
> --
> 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: EOM for z hardware clarification

2021-01-18 Thread Joe Monk
"CAPEX can be converted to OPEX i.e. by using leasing services."

The lease must be a fair market value lease, so that title does not pass.
Only then is it  considered OPEX.

If it's a dollar buyout lease, then its a CAPEX lease and must  be
accounted for as CAPEX.

Joe

On Mon, Jan 18, 2021 at 6:46 AM R.S.  wrote:

> W dniu 18.01.2021 o 13:28, Joe Monk pisze:
> > "2. EOM and EOS are important, but IMHO prices are more important. In
> > many cases it is cheaper to replace machine than to buy service contract
> > for existing (old) one. And it is rather cheaper to buy newer model even
> > if new and new-1 are available."
> >
> > The purchase  of hardware is CAPEX. The purchase of a service contract is
> > OPEX. OPEX is an expense and affects income, therefore you do not  have
> to
> > pay income tax on it. CAPEX affects fixed assets and there are taxes to
> be
> > paid on it.
> >
> > There is a point where it is less expensive to replace, say a model with
> > one that is newer (maybe a z13 with  a z16). But in general, it is less
> > expensive to maintain an existing piece of equipment  than to buy a new
> one
> >   (depreciation and all).
>
> CAPEX can be converted to OPEX i.e. by using leasing services. There are
> also other tricks.
> Regarding prices - I do not have to convince anyone, but ...I used to
> buy mainframes and I simply see IBM offerings. Depending on time
> perspective *usually* it is more effective (cheaper) to buy new
> equipment than buy service for existing one. My advice: buying new
> hardware is the best time to think about service for all life of it.
> Extending support after first year tend to be more expensive, especially
> when new machine is available.
>
> --
> 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. Prosta 18, 00-850 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.
>
> Jesteśmy administratorem twoich danych osobowych, które podałeś w związku
> z prowadzoną z nami korespondencją. Przetwarzamy te dane dla celów, które
> wynikają z przedmiotu korespondencji, w tym związanych z prowadzoną
> działalnością bankową.
> Więcej informacji o tym jak chroniony i przetwarzamy dane osobowe
> znajdziesz w Pakietach RODO (w wersji polskiej i angielskiej), które są na
> www.mbank.pl/rodo
>
>
> 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. Prosta 18, 00-850
> 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.
>
> We are the controller of your personal data, which you provided in
> connection with correspondence with us. We process your data for purposes
> resulting from the subject of correspondence, including those related to
> the banking services.
> More information on how we protect and process personal data can be found
> in the GDPR Packages (in English and Polish), which are on
> www.mbank.pl/rodo.
>
> --
> 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: EOM for z hardware clarification

2021-01-18 Thread Joe Monk
"2. EOM and EOS are important, but IMHO prices are more important. In
many cases it is cheaper to replace machine than to buy service contract
for existing (old) one. And it is rather cheaper to buy newer model even
if new and new-1 are available."

The purchase  of hardware is CAPEX. The purchase of a service contract is
OPEX. OPEX is an expense and affects income, therefore you do not  have to
pay income tax on it. CAPEX affects fixed assets and there are taxes to be
paid on it.

There is a point where it is less expensive to replace, say a model with
one that is newer (maybe a z13 with  a z16). But in general, it is less
expensive to maintain an existing piece of equipment  than to buy a new one
 (depreciation and all).

Joe

On Mon, Jan 18, 2021 at 4:46 AM R.S.  wrote:

> W dniu 18.01.2021 o 10:55, Peter pisze:
> > Hello All,
> >
> > Just curious to understand what is the minimum duration for the z
> hardware
> > to be from withdrawn from marketing ?
> >
> > Are there any specific factor IBM follows ?
>
> There is excellent paper describing all the dates (GA, EOM, EOS).
> I found the link:
>
> https://www.ibm.com/support/pages/system/files/inline-files/IBM_Mainframe_Life_Cycle_History_V2.6_-_Oct_13_2020.pdf
>
> Few remarks
> 1. There is no long term comitment saying, let's say z16 will be
> available for minimum 5 years. Everytime this is decision of IBM.
> 2. EOM and EOS are important, but IMHO prices are more important. In
> many cases it is cheaper to replace machine than to buy service contract
> for existing (old) one. And it is rather cheaper to buy newer model even
> if new and new-1 are available.
> 3. There are other issues, like upgrade availability. Usually IBM first
> close "physical" upgrades, that means new hardware elements (cards,
> DRAWERs, etc.) Later IBM close microcode upgrades - this is reasonable,
> since they do not deliver anything physically.
> 4. There are independent service providers.
>
> --
> 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. Prosta 18, 00-850 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.
>
> Jesteśmy administratorem twoich danych osobowych, które podałeś w związku
> z prowadzoną z nami korespondencją. Przetwarzamy te dane dla celów, które
> wynikają z przedmiotu korespondencji, w tym związanych z prowadzoną
> działalnością bankową.
> Więcej informacji o tym jak chroniony i przetwarzamy dane osobowe
> znajdziesz w Pakietach RODO (w wersji polskiej i angielskiej), które są na
> www.mbank.pl/rodo
>
>
> 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. Prosta 18, 00-850
> 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.
>
> We are the controller of your personal data, which you provided in
> connection with correspondence with us. We process your data for purposes
> resulting from the subject of correspondence, including those related to
> the banking services.
> More information on how we protect and process personal data can be found
> in the GDPR Packages (in English and Polish), which are on
> www.mbank.pl/rodo.
>
> --
> 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: OS/360 COBOL life cycle dates?

2021-01-14 Thread Joe Monk
COBOL E and F are the  same compiler, but with different features enabled.
F has more features than  E. Both were available in 1964.

Joe

On Thu, Jan 14, 2021 at 8:05 AM Seymour J Metz  wrote:

> The wiki article [[IBM COBOL]] has a table that is missing all of
>
> 360S-C0-503 COBOL (E)
> 360S-CB-524 COBOL (F)
> 360S-CB-545 COBOL (U)
> 5734-CB1 OS FULL AMERICAN NATIONAL STANDARD COBOL Versions 1-3
> 5734-CB2 OS FULL AMERICAN NATIONAL STANDARD COBOL Version 4, 5
>
> Does anybody know the GA and EOS dates? Thanks.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> --
> 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: FW: Hogan Financial Systems. It is a banking system

2021-01-14 Thread Joe Monk
https://www.dxc.technology/banking/offerings/11090/48573-hogan_systems

those are the people to contact

Joe

On Thu, Jan 14, 2021 at 1:42 AM   
wrote:

> Hello,
>
> I have been contacted by a company with the below request.  Please contact
> me if interested.
>
>
>
> Please rack your brain for any one that can teach Hogan Financial Systems.
> It is a banking system.
>
>
>
> Thanks,
>
> David Mingee  ming...@prodigy.net 
>
>
>
>
>
>
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Ibm macro instructions code clarification

2021-01-12 Thread Joe Monk
Without a little more info (i.e. what product) its kinda hard to help.

BUT, having said that,

FDBWD usually means FDB WORD

00141300 = the value of FDBWD

FDBK2 ... there should be some data here. FDBK2 is normally some type of
error code.

Joe


On Tue, Jan 12, 2021 at 12:55 AM Jake Anderson 
wrote:

> Hello
>
> Apologies for my ignorance. One of our product failed with FDBWD : 00141300
> FDBK2.
>
> I am not able to decode the meaning or explanation for FDBWD. Could someone
> please help to understand so that I can make sure I understand fully ?
>
> Jake
>
> --
> 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: Compile error and also possible library bug with Metal/C metal.h

2021-01-11 Thread Joe Monk
The BRC 7,*+36 is only going to branch if the condition code bits are 7.

LLGC doesnt change the condition code, so it would be set off a different
instruction.

Joe

On Mon, Jan 11, 2021 at 9:20 PM Dennis Fitzpatrick 
wrote:

> Thanks for the string.h reference as that seems to have picked up the
> missing __MEMSET. I'm going to go back to my larger library of functions
> with my own header complications that wrap all of this up, and apply this
> and see what happens. I'll report back on that.
>
> You show option of LP64 with is a 64 bit compile while I'm defaulting to
> 32 bit. The sizeof as pointed out was incorrect but fortuitous since
> sizeof(xarg) is 4 (a 4 byte pointer) and the length I wanted to compare is
> 4 bytes. I should have just hard coded it for the sample. The Metal C
> library memcmp routine I show in the disassembly  I believe still in error
> because it increments and then loads the data after the string runs out.
> That's the two LLGC instructions after BCR 7. They load the next bytes
> before testing in the BRCT that the memory area has run out. It computes
> the result value by subtracting the two bytes after the end of the memory.
> When I was calling the library routine nothing worked because of that. If I
> let it use to the builtin.h code my converted programs worked. I hope that
> makes sense.
>
>
>
>
> Dennis C. Fitzpatrick
> den...@dcfitz.com
> H: 630.325.6184
> W: 630.325.6137
> M: 630.660.8040
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Joe Monk
> Sent: Monday, January 11, 2021 6:44 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Compile error and also possible library bug with Metal/C
> metal.h
>
> "I'd be perfectly happy for someone to tell me I missed some obvious
> compiler option or did something else really stupid."
>
> Found this on another website ...
>
> The issue was with the search order. Although I did
> search(/usr/metal/include) from with in my JCL I didn't proceed it with a
> nosearch option, so string.h was getting picked up from the standard system
> libraries instead of the version included with Metal C. I've pasted my
> optfile dataset I passed to the CPARM below for reference.
>
> //OPTIONS DD *
>  SO
>  LIST
>  LONG
>  NOXREF
>  CSECT
>  METAL
>  LP64
>  NOSEARCH
>  search(/usr/include/metal/)
>
> Joe
>
> On Mon, Jan 11, 2021 at 12:39 PM Dennis Fitzpatrick 
> wrote:
>
> > I'm a developer working with a client to develop Metal C functions for
> > their products. Up until recently I've defined __METAL_STATIC and
> > linked with SCCR3BND. I decided recently to play with the dynamic
> > library in LPALIB so I removed that #define. What I'm getting is
> > compile errors on the substitution macros from metal.h. That is the
> > first problem. I decided to try and circumvent the compile errors and
> > I think I found a bug in the memcmp library function. That is the
> > second problem. I'm really hoping someone will tell me I missed
> > something really obvious or missed some maintenance.
> >
> > I created a trivial sample program to demonstrate:
> >
> > /*
> >   Sample for Metal C
> > */
> >
> > #include 
> > #include 
> >
> > int main(int argc, char** argv)
> > {
> >   char* xarg = "abcd";
> >   void *mem = malloc(64);
> >   memset(mem, 0x0f, 64);
> >   memcpy(mem, xarg, sizeof(xarg));
> >   int mcmp = memcmp(mem, xarg, sizeof(xarg));
> >   free(mem);
> > }
> > Of course, this compiles and runs just fine on Visual Studio where I
> > do my initial development. On z/OS XLC though I get errors like the
> following:
> >
> > 12   |  memset(mem, 0x0f, 64);
> >   | 12
> > 12   +  ((___MEMSET * ) ( (*(struct __cvt_s * __ptr32 *
> > __ptr32)16) -> __cvtecvt -> __ecvtsdc -> __sdca\+ 12
> > ===>
> >
> b...a.
> > *=ERROR===> a - CCN3275 Unexpected text ')' encountered.
> > *=ERROR===> b - CCN3045 Undeclared identifier ___MEMSET.
> > 12   +libv31 -> __libfunc[33] ))(mem, 0x0f, 64);
> >   + 12
> > ===>
> >
> .c
> > *=ERROR===> c - CCN3277 Syntax error: possible missing ')' or
> ','?
> >
> > The header file include list is exactly what I expect:
> >
> >  

Re: Compile error and also possible library bug with Metal/C metal.h

2021-01-11 Thread Joe Monk
"I'd be perfectly happy for someone to tell me I missed some obvious
compiler option or did something else really stupid."

Found this on another website ...

The issue was with the search order. Although I did
search(/usr/metal/include) from with in my JCL I didn't proceed it with a
nosearch option, so string.h was getting picked up from the standard system
libraries instead of the version included with Metal C. I've pasted my
optfile dataset I passed to the CPARM below for reference.

//OPTIONS DD *
 SO
 LIST
 LONG
 NOXREF
 CSECT
 METAL
 LP64
 NOSEARCH
 search(/usr/include/metal/)

Joe

On Mon, Jan 11, 2021 at 12:39 PM Dennis Fitzpatrick 
wrote:

> I'm a developer working with a client to develop Metal C functions for
> their products. Up until recently I've defined __METAL_STATIC and linked
> with SCCR3BND. I decided recently to play with the dynamic library in
> LPALIB so I removed that #define. What I'm getting is compile errors on the
> substitution macros from metal.h. That is the first problem. I decided to
> try and circumvent the compile errors and I think I found a bug in the
> memcmp library function. That is the second problem. I'm really hoping
> someone will tell me I missed something really obvious or missed some
> maintenance.
>
> I created a trivial sample program to demonstrate:
>
> /*
>   Sample for Metal C
> */
>
> #include 
> #include 
>
> int main(int argc, char** argv)
> {
>   char* xarg = "abcd";
>   void *mem = malloc(64);
>   memset(mem, 0x0f, 64);
>   memcpy(mem, xarg, sizeof(xarg));
>   int mcmp = memcmp(mem, xarg, sizeof(xarg));
>   free(mem);
> }
> Of course, this compiles and runs just fine on Visual Studio where I do my
> initial development. On z/OS XLC though I get errors like the following:
>
> 12   |  memset(mem, 0x0f, 64);
>   | 12
> 12   +  ((___MEMSET * ) ( (*(struct __cvt_s * __ptr32 *
> __ptr32)16) -> __cvtecvt -> __ecvtsdc -> __sdca\+ 12
> ===>
> b...a.
> *=ERROR===> a - CCN3275 Unexpected text ')' encountered.
> *=ERROR===> b - CCN3045 Undeclared identifier ___MEMSET.
> 12   +libv31 -> __libfunc[33] ))(mem, 0x0f, 64);
>   + 12
> ===>
> .c
> *=ERROR===> c - CCN3277 Syntax error: possible missing ')' or ','?
>
> The header file include list is exactly what I expect:
>
> 1   /usr/include/metal/stdio.h
> 2   /usr/include/metal/metal.h
> 3   /usr/include/metal/stddef.h
> 4   /usr/include/metal/stdlib.h
> 5   /usr/include/metal/builtins.h
>
> Looking through all of the layers in the metal.h header started me looking
> for aspirin. I decided to push forward as an exercise by defining my own
> structures to use the Metal C function vector. I already had many of the
> standard z/OS structures mapped and added my own mapping of sys_libv31_s
> with real function prototypes:
>
> struct sys_libv31_s
> {
>   void (*_em_0)();
>   int (*_em_abs)(int,int); // 1
>   int (*_em_atoi)(char*); // 2
>   long (*_em_atol)(char*); // 3
>   long long (*_em_atoll)(char*); // 4
>   void* (*_em_calloc)(size_t); // 5
>
> And my own substitution macros to remove the metal.h definition and put in
> my own EMCALL reference:
>
> #define EMCALL(_t, _n)
> (##_t)(*(CVTPTR->CVTECVT->ECVTSDC->sdcalibv31->_em_##_n))
> #define em_0  EMCALL(void, em_0)
> #undef abs // 1
> #define abs EMCALL(int, abs)
> #undef atoi // 2
> #define atoi EMCALL(int atoi)
> #undef atol // 3
> #define atol EMCALL(long, atol)
> #undef atoll // 4
> #define atoll EMCALL(long long, atoll)
> #undef calloc // 5
> #define calloc EMCALL(void *, calloc)
>
> I can't give you the whole thing as it is too much to extract from client
> proprietary material. Hopefully, this is enough to get the gist.
>
> Now this is where I believe I found a bug in the memcmp function returning
> an invalid result and also a potential S0C4. With getting all of my code to
> compile I found things taking some weird code paths. I tracked it down to a
> memcmp and setup the code in the sample above to test it. I found the
> memcmp above returns an invalid result, 0x0f, even though the memory is
> equal. I went into TEST and disassembled the code and got this:
>
>
> 1F24CD78.STM R14,R3,12(R13)
>
> 1F24CD7C.LR  R15,R13
>
> 1F24CD7E.L   R13,8(,R13)
>
> 1F24CD82.ST  R15,4(,R13)
>
> 1F24CD86.STMHR14,R3,80(R13)
>
> 1F24CD8C.L   R14,0(,R1)
>
> 1F24CD90.L   R2,4(,R1)
>
> 1F24CD94.ICM R0,15,8(R1)
>
> 1F24CD98.BRC 8,*+52
>
> 1F24CD9C.LR  R1,R0
>
> 1F24CD9E.LLGCR15,0(,R14)
>
> 1F24CDA4.LLGCR3,0(,R2)
>
> 1F24CDAA.LA  

Re: What were the first models to support Dual Address Space?

2021-01-03 Thread Joe Monk
Dual Address Space support is not mentioned anywhere...

http://www.bitsavers.org/pdf/ibm/3033/GA22-7060-3_3033_FuncChar_Jan79.pdf

Joe

On Sun, Jan 3, 2021 at 4:14 PM WILLIAM H BLAIR  wrote:

> | Does  anybody remember the first models to support
> | Dual Address Space for MVS/SP Version 1? I'd like
> | to add that to the wiki [[IBM System/370]] article.
>
> In hardware, it was the 3033 (as well as the 3042 Attached Processor), as
> well as a hardware assist MES for the 3031. It was also, of course, also
> supported on the 3081 (and all processor models thereafter).If I remember
> correctly, this support was not offered for the 3032 in any form.
>
> For additional information, refer to:
>  http://www.computinghistory.org.uk/downloads/8823
> on page 114.
>
> In software, it was supported on any System/370. The ABENDs were
> intercepted by FLIH and the unsupported instructions and control registers
> emulated.
>
> This worked on my 370/158 at the time (1980).
>
> --
> William Blair
> Sugar Land TX
>
> --
> 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: Message IEF302A

2020-12-31 Thread Joe Monk
Explanation

The external writer is waiting for the operator to validate writer name
. The writer name was specified on a SYSOUT DD statement in JOBID j.
Operator response

If the writer name is valid and is to be used by the external writer, then
enter REPLY xx,‘U’ and the external writer will use the name. If the writer
name is invalid and the external writer is not to use the name and is to
bypass and delete this data set, enter REPLY xx,‘N’. If the external writer
is to use another writer name, enter REPLY xx, ‘N,’, where 
is the other writer name. Finally, if  is not valid and the
operator wants the external writer to use the IBM-supplied default writer
name, enter REPLY xx,‘D’ and the external writer will use the default
writer name to write the data set.
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieam800/gg302a.htm

So, it would seem the correct response is R xx,D to use the default writer.

Joe

On Thu, Dec 31, 2020 at 12:50 PM Jesse 1 Robinson 
wrote:

> We've had a couple of instances recently of message IEF302A:
>
> jobname WTR WAITING TO START  FOR JOBID 
>
> We sort of interpreted it as an ENQ conflict, except that there are no
> actual data sets involved. It seems to revolve around a job calling for a
> particular WTR, very unusual around here for an application job. The job
> gets hung and prevents other jobs from running that also specify a WTR
> name. The stickler is that the specified WTR is not available on that
> system. One of our housekeeping jobs (system log offload) waited for 12
> hours before Ops noticed.
>
> I've been in this biz for decades and never saw this problem. The message
> allows several different replies. I'm inclined to reply-in effect-cancel
> automatically because I see no way to salvage the job. Any other ideas?
>
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office <= NEW
> robin...@sce.com
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: EBCDIC-ASCII converter and other tools

2020-12-29 Thread Joe Monk
https://www.vedit.com/ebcdic/simple-conversion.html

Joe

On Tue, Dec 29, 2020 at 8:48 AM R.S.  wrote:

> Well...
> Ultraedit offer some conversions, but no custom-defined tables. I need
> to use my own table - that's the problem.
> For regular "quick and dirty" EBCDIC -> ASCII conversion I would use
> ...MS Word, which has ability to read EBCDIC text files.
> However it's also not the goal.
> And important: I would avoid editors, especially those which read all
> file into memory - this is not good for larger files, which I expect to
> manage. I think HxD is better since it can edit large files without
> reading all the content into memory.
>
> Gentlemen, thank you for your prompt response, I appreciate it.
>
> Regards
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
>
>
> W dniu 29.12.2020 o 15:24, Steve Horein pisze:
> > I know several people that use UltraEdit:
> > https://www.ultraedit.com/wiki/Converting_file_encoding
> >
> > I personally use notepad++, so cannot provide any first hand experience.
> >
> > On Tue, Dec 29, 2020 at 7:30 AM R.S. 
> wrote:
> >
> >> 1. I'm looking for some simple tool for conversion EBCDIC to ASCII and
> >> vice versa.
> >> Unfortunately it has to run under Windows.
> >> Requirements:
> >> Run under Windows, preferrably in batch mode (command line interface)
> >> Custom-defined tables of conversion
> >>
> >> 2. I'm looking for a tool similar to IDCAMS SKIP/COUNT - the goal is to
> >> skip first nnn bytes of the file or skip file remainder.
> >>
> >>
> >> Any clue?
> >>
> >> --
> >> 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. Prosta 18, 00-850 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.
>
> Jesteśmy administratorem twoich danych osobowych, które podałeś w związku
> z prowadzoną z nami korespondencją. Przetwarzamy te dane dla celów, które
> wynikają z przedmiotu korespondencji, w tym związanych z prowadzoną
> działalnością bankową.
> Więcej informacji o tym jak chroniony i przetwarzamy dane osobowe
> znajdziesz w Pakietach RODO (w wersji polskiej i angielskiej), które są na
> www.mbank.pl/rodo
>
>
> 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. Prosta 18, 00-850
> 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.
>
> We are the controller of your personal data, which you provided in
> connection with correspondence with us. We process your data for purposes
> resulting from the subject of correspondence, including those related to
> the banking services.
> More information on how we protect and process personal data can be found
> in the GDPR Packages (in English and Polish), which are on
> www.mbank.pl/rodo.
>
> --
> 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: Size of the Writable Static Area

2020-12-24 Thread Joe Monk
OK so there's no need for reentrancy. Thus, no need for WSA.

Joe

On Thu, Dec 24, 2020 at 10:29 AM Joseph Reichman 
wrote:

> It’s a batch program called from a started task
>
>
>
> > On Dec 24, 2020, at 11:18 AM, Joe Monk  wrote:
> >
> > Still not sure why you have a WSA... Youre not using CICS, right?
> >
> > Joe
> >
> >> On Thu, Dec 24, 2020 at 10:11 AM Joseph Reichman  >
> >> wrote:
> >>
> >> This code is right after my prologue
> >>
> >>
> >>ST0,#WSA_1
> >>
> >> So I have to somehow make sure that register 0 has the right value
> >>
> >> Thanks
> >>
> >> -Original Message-
> >> From: IBM Mainframe Discussion List  On
> Behalf
> >> Of Joe Monk
> >> Sent: Thursday, December 24, 2020 11:04 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: Re: Size of the Writable Static Area
> >>
> >> OK but I dont think you need a WSA.
> >>
> >> Joe
> >>
> >> On Thu, Dec 24, 2020 at 10:00 AM Joseph Reichman  >
> >> wrote:
> >>
> >>> Thanks I think the problem is my main program is called OPENFILE In
> >>> this program I load sysadata to a dataspace
> >>>
> >>> Why did I use metal C because I have similar C code in windows and
> >>> thought with #pragma if __MVS I could save coding I found it easier to
> >>> work with Metal then LE as it gives me more options
> >>>
> >>> I think some where there is a way to have alternate main name I think
> >>> I have to follow that path
> >>>
> >>>
> >>>> On Dec 24, 2020, at 10:46 AM, Joe Monk  wrote:
> >>>>
> >>>> No. If you  are calling METAL C from assembler, METAL C will take
> >>>> care
> >>> of
> >>>> the WSA...
> >>>>
> >>>> "The RENT environment initialization and termination routines are
> >>>> called
> >>> to
> >>>> establish and terminate the dynamically allocated WSA storage with
> >>>> the static initialization data applied. For the AMODE 31 "main"
> >>>> function, CCNZINIT and CCNZTERM are the names of these routines.
> >>>> While for the
> >>> AMODE
> >>>> 64 "main" function, CCNZQINI and CCNZQTRM are the function names ...
> >>>> The actual WSA storage management is done by user supplied plug-in
> >>>> routines called from CCNZINIT and CCNZTERM."
> >>>>
> >>>> Joe
> >>>>
> >>>>> On Thu, Dec 24, 2020 at 9:42 AM Joseph Reichman
> >>>>> 
> >>>>> wrote:
> >>>>>
> >>>>> Just read it FYI  I am Calling Metal C from Assembler (via Link) Me
> >>> thinks
> >>>>> I have to init The WSA area Binyamin Dessin suggested I use a CXD
> >>> variable
> >>>>> to get the size of the WSA
> >>>>>
> >>>>> -Original Message-
> >>>>> From: IBM Mainframe Discussion List  On
> >>> Behalf
> >>>>> Of Joe Monk
> >>>>> Sent: Thursday, December 24, 2020 10:01 AM
> >>>>> To: IBM-MAIN@LISTSERV.UA.EDU
> >>>>> Subject: Re: Size of the Writable Static Area
> >>>>>
> >>>>> Check page 31 in this:
> >>>>>
> >>>>>
> >>> https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r3
> >>> sc147313/$file/ccrug00_v2r3.pdf
> >>>>>
> >>>>> Joe
> >>>>>
> >>>>> On Thu, Dec 24, 2020 at 8:39 AM Joseph Reichman
> >>>>> 
> >>>>> wrote:
> >>>>>
> >>>>>> I’m writing a prolog for a metal C program I noticed that after
> >>>>>> the prolog code Registers 0 is stored in #WSA_1 seems like storage
> >>>>>> has to be allocated for it ( writable static area ) in addition to
> >>>>>> the dynamic storage ( register save + auto variables )
> >>>>>>
> >>>>>>
> >>>>>>> On Dec 24, 2020, at 9:32 AM, Peter Relson 
> >> wrote:
> >>>>>>>
> >>>>>>> I think of the writeable static area as an area that LE
> >>>>

Re: Size of the Writable Static Area

2020-12-24 Thread Joe Monk
Still not sure why you have a WSA... Youre not using CICS, right?

Joe

On Thu, Dec 24, 2020 at 10:11 AM Joseph Reichman 
wrote:

> This code is right after my prologue
>
>
> ST0,#WSA_1
>
> So I have to somehow make sure that register 0 has the right value
>
> Thanks
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Joe Monk
> Sent: Thursday, December 24, 2020 11:04 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Size of the Writable Static Area
>
> OK but I dont think you need a WSA.
>
> Joe
>
> On Thu, Dec 24, 2020 at 10:00 AM Joseph Reichman 
> wrote:
>
> > Thanks I think the problem is my main program is called OPENFILE In
> > this program I load sysadata to a dataspace
> >
> > Why did I use metal C because I have similar C code in windows and
> > thought with #pragma if __MVS I could save coding I found it easier to
> > work with Metal then LE as it gives me more options
> >
> > I think some where there is a way to have alternate main name I think
> > I have to follow that path
> >
> >
> > > On Dec 24, 2020, at 10:46 AM, Joe Monk  wrote:
> > >
> > > No. If you  are calling METAL C from assembler, METAL C will take
> > > care
> > of
> > > the WSA...
> > >
> > > "The RENT environment initialization and termination routines are
> > > called
> > to
> > > establish and terminate the dynamically allocated WSA storage with
> > > the static initialization data applied. For the AMODE 31 "main"
> > > function, CCNZINIT and CCNZTERM are the names of these routines.
> > > While for the
> > AMODE
> > > 64 "main" function, CCNZQINI and CCNZQTRM are the function names ...
> > > The actual WSA storage management is done by user supplied plug-in
> > > routines called from CCNZINIT and CCNZTERM."
> > >
> > > Joe
> > >
> > >> On Thu, Dec 24, 2020 at 9:42 AM Joseph Reichman
> > >> 
> > >> wrote:
> > >>
> > >> Just read it FYI  I am Calling Metal C from Assembler (via Link) Me
> > thinks
> > >> I have to init The WSA area Binyamin Dessin suggested I use a CXD
> > variable
> > >> to get the size of the WSA
> > >>
> > >> -Original Message-
> > >> From: IBM Mainframe Discussion List  On
> > Behalf
> > >> Of Joe Monk
> > >> Sent: Thursday, December 24, 2020 10:01 AM
> > >> To: IBM-MAIN@LISTSERV.UA.EDU
> > >> Subject: Re: Size of the Writable Static Area
> > >>
> > >> Check page 31 in this:
> > >>
> > >>
> > https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r3
> > sc147313/$file/ccrug00_v2r3.pdf
> > >>
> > >> Joe
> > >>
> > >> On Thu, Dec 24, 2020 at 8:39 AM Joseph Reichman
> > >> 
> > >> wrote:
> > >>
> > >>> I’m writing a prolog for a metal C program I noticed that after
> > >>> the prolog code Registers 0 is stored in #WSA_1 seems like storage
> > >>> has to be allocated for it ( writable static area ) in addition to
> > >>> the dynamic storage ( register save + auto variables )
> > >>>
> > >>>
> > >>>> On Dec 24, 2020, at 9:32 AM, Peter Relson 
> wrote:
> > >>>>
> > >>>> I think of the writeable static area as an area that LE
> > >>>> instantiates on your behalf.
> > >>>> As far as I know, there is no interface provided by which you can
> > >>>> do
> > >>> this.
> > >>>>
> > >>>> If LE is going to do this for you, using loader services that
> > >>>> rely on information within the program object itself (and there
> > >>>> is such information), how is knowing the size of the area of help
> to you?
> > >>>>
> > >>>> Peter Relson
> > >>>> z/OS Core Technology Design
> > >>>>
> > >>>>
> > >>>> -
> > >>>> ---
> > >>>> -- For IBM-MAIN subscribe / signoff / archive access
> > >>>> instructions, send email to lists...@listserv.ua.edu with the
> > >>>> message: INFO IBM-MAIN
> > >>>
> > >>> 

Re: Size of the Writable Static Area

2020-12-24 Thread Joe Monk
OK but I dont think you need a WSA.

Joe

On Thu, Dec 24, 2020 at 10:00 AM Joseph Reichman 
wrote:

> Thanks I think the problem is my main program is called OPENFILE In this
> program I load sysadata to a dataspace
>
> Why did I use metal C because I have similar C code in windows and thought
> with #pragma if __MVS I could save coding I found it easier to work with
> Metal then LE as it gives me more options
>
> I think some where there is a way to have alternate main name I think I
> have to follow that path
>
>
> > On Dec 24, 2020, at 10:46 AM, Joe Monk  wrote:
> >
> > No. If you  are calling METAL C from assembler, METAL C will take care
> of
> > the WSA...
> >
> > "The RENT environment initialization and termination routines are called
> to
> > establish and terminate the dynamically allocated WSA storage with the
> > static initialization data applied. For the AMODE 31 "main" function,
> > CCNZINIT and CCNZTERM are the names of these routines. While for the
> AMODE
> > 64 "main" function, CCNZQINI and CCNZQTRM are the function names ... The
> > actual WSA storage management is done by user supplied plug-in routines
> > called from CCNZINIT and CCNZTERM."
> >
> > Joe
> >
> >> On Thu, Dec 24, 2020 at 9:42 AM Joseph Reichman 
> >> wrote:
> >>
> >> Just read it FYI  I am Calling Metal C from Assembler (via Link) Me
> thinks
> >> I have to init The WSA area Binyamin Dessin suggested I use a CXD
> variable
> >> to get the size of the WSA
> >>
> >> -Original Message-
> >> From: IBM Mainframe Discussion List  On
> Behalf
> >> Of Joe Monk
> >> Sent: Thursday, December 24, 2020 10:01 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: Re: Size of the Writable Static Area
> >>
> >> Check page 31 in this:
> >>
> >>
> https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r3sc147313/$file/ccrug00_v2r3.pdf
> >>
> >> Joe
> >>
> >> On Thu, Dec 24, 2020 at 8:39 AM Joseph Reichman 
> >> wrote:
> >>
> >>> I’m writing a prolog for a metal C program I noticed that after the
> >>> prolog code Registers 0 is stored in #WSA_1 seems like storage has to
> >>> be allocated for it ( writable static area ) in addition to the
> >>> dynamic storage ( register save + auto variables )
> >>>
> >>>
> >>>> On Dec 24, 2020, at 9:32 AM, Peter Relson  wrote:
> >>>>
> >>>> I think of the writeable static area as an area that LE
> >>>> instantiates on your behalf.
> >>>> As far as I know, there is no interface provided by which you can do
> >>> this.
> >>>>
> >>>> If LE is going to do this for you, using loader services that rely
> >>>> on information within the program object itself (and there is such
> >>>> information), how is knowing the size of the area of help to you?
> >>>>
> >>>> Peter Relson
> >>>> z/OS Core Technology Design
> >>>>
> >>>>
> >>>> 
> >>>> -- For IBM-MAIN subscribe / signoff / archive access instructions,
> >>>> send email to lists...@listserv.ua.edu with the message: INFO
> >>>> IBM-MAIN
> >>>
> >>> --
> >>> For IBM-MAIN subscribe / signoff / archive access instructions, send
> >>> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>>
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email
> >> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Size of the Writable Static Area

2020-12-24 Thread Joe Monk
No. If you  are calling METAL C from assembler, METAL C will take care of
the WSA...

"The RENT environment initialization and termination routines are called to
establish and terminate the dynamically allocated WSA storage with the
static initialization data applied. For the AMODE 31 "main" function,
CCNZINIT and CCNZTERM are the names of these routines. While for the AMODE
64 "main" function, CCNZQINI and CCNZQTRM are the function names ... The
actual WSA storage management is done by user supplied plug-in routines
called from CCNZINIT and CCNZTERM."

Joe

On Thu, Dec 24, 2020 at 9:42 AM Joseph Reichman 
wrote:

> Just read it FYI  I am Calling Metal C from Assembler (via Link) Me thinks
> I have to init The WSA area Binyamin Dessin suggested I use a CXD  variable
> to get the size of the WSA
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Joe Monk
> Sent: Thursday, December 24, 2020 10:01 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Size of the Writable Static Area
>
> Check page 31 in this:
>
> https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r3sc147313/$file/ccrug00_v2r3.pdf
>
> Joe
>
> On Thu, Dec 24, 2020 at 8:39 AM Joseph Reichman 
> wrote:
>
> > I’m writing a prolog for a metal C program I noticed that after the
> > prolog code Registers 0 is stored in #WSA_1 seems like storage has to
> > be allocated for it ( writable static area ) in addition to the
> > dynamic storage ( register save + auto variables )
> >
> >
> > > On Dec 24, 2020, at 9:32 AM, Peter Relson  wrote:
> > >
> > > I think of the writeable static area as an area that LE
> > > instantiates on your behalf.
> > > As far as I know, there is no interface provided by which you can do
> > this.
> > >
> > > If LE is going to do this for you, using loader services that rely
> > > on information within the program object itself (and there is such
> > > information), how is knowing the size of the area of help to you?
> > >
> > > Peter Relson
> > > z/OS Core Technology Design
> > >
> > >
> > > 
> > > -- For IBM-MAIN subscribe / signoff / archive access instructions,
> > > send email to lists...@listserv.ua.edu with the message: INFO
> > > IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> > email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Size of the Writable Static Area

2020-12-24 Thread Joe Monk
Check page 31 in this:
https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zosv2r3sc147313/$file/ccrug00_v2r3.pdf

Joe

On Thu, Dec 24, 2020 at 8:39 AM Joseph Reichman 
wrote:

> I’m writing a prolog for a metal C program
> I noticed that after the prolog code
> Registers 0 is stored in #WSA_1 seems like storage has to be allocated for
> it ( writable static area ) in addition to the dynamic storage ( register
> save + auto variables )
>
>
> > On Dec 24, 2020, at 9:32 AM, Peter Relson  wrote:
> >
> > I think of the writeable static area as an area that LE instantiates on
> > your behalf.
> > As far as I know, there is no interface provided by which you can do
> this.
> >
> > If LE is going to do this for you, using loader services that rely on
> > information within the program object itself (and there is such
> > information), how is knowing the size of the area of help to you?
> >
> > Peter Relson
> > z/OS Core Technology Design
> >
> >
> > --
> > 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: Size of the Writable Static Area

2020-12-24 Thread Joe Monk
GPR 0 is used to pass the address of the WSA.

If youre writing a prolog for a Metal C program, you dont need to worry
about the size of the WSA unless you plan to do  something with it. The
Metal C program should call the WSA init and term upon entry and exit on
its own.

Joe

On Thu, Dec 24, 2020 at 8:39 AM Joseph Reichman 
wrote:

> I’m writing a prolog for a metal C program
> I noticed that after the prolog code
> Registers 0 is stored in #WSA_1 seems like storage has to be allocated for
> it ( writable static area ) in addition to the dynamic storage ( register
> save + auto variables )
>
>
> > On Dec 24, 2020, at 9:32 AM, Peter Relson  wrote:
> >
> > I think of the writeable static area as an area that LE instantiates on
> > your behalf.
> > As far as I know, there is no interface provided by which you can do
> this.
> >
> > If LE is going to do this for you, using loader services that rely on
> > information within the program object itself (and there is such
> > information), how is knowing the size of the area of help to you?
> >
> > Peter Relson
> > z/OS Core Technology Design
> >
> >
> > --
> > 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: RFE: Some SuperC options should cater for longer lines

2020-12-22 Thread Joe Monk
""non-spanned"?  Does 3390 have "spanned" blocks?  Track Overflow?

Yes it does.

"Variable-length records can be spanned (RECFM=DS or VS). Spanned records
can span more than one block."

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.idad400/da.htm

Joe

On Tue, Dec 22, 2020 at 8:37 AM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 22 Dec 2020 13:37:58 +, Seymour J Metz  wrote:
>
> >> 27998, the non-spanned maximum blocksize for 3390 devices,
> >
> >That's the optimal block size, not the maximum.
> >
> For QSAM and BSAM, thee maximum block size is 32760.  It might
> be larger for EXCP.
>
> "non-spanned"?  Does 3390 have "spanned" blocks?  Track Overflow?
>
> "optimal"?  I'd have said "optimum".
>
> https://english.stackexchange.com/questions/50843/what-is-the-difference-between-optimal-and-optimum
>
> >
> >From:  Robert Prins
> >Sent: Tuesday, December 22, 2020 6:47 AM
> >
> >On 2020-12-21 18:00, Paul Gilmartin wrote:
> >> On Mon, 21 Dec 2020 19:38:30 +, Robert Prins  wrote:
> >>
> >>>
> https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe_ID=147550
> >>>
> >Updated to:
> >
> >It would be useful is the current limit would be raised to a higher
> value, and
> >tentative maximum values could be 27998, the non-spanned maximum
> blocksize for
> >3390 devices, or 32767, the maximum signed value for a halfword, but even
> a
> >value of 1024 or 4096 would be more helpful.
> >
> One might argue for LINE_MAX, 2048:
>
> https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.bpxbd00/limitsh.htm
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: RMODE64

2020-12-21 Thread Joe Monk
Well that quote is from the z/os 2.3 binder.

Joe

On Mon, Dec 21, 2020 at 10:48 AM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Mon, 21 Dec 2020 10:14:21 -0600, Joe Monk wrote:
>
> >RMODE(64)When neither binder options RMODE=64 nor RMODEX are specified,
> >RMODE(64) ESD are treated as RMODE(ANY)
>
> RMODE(ANY) is antiquated and misleading.  I prefer to see RMODE(31).
>
> In:  z/OS  Version 2 Release 4
> MVS Program Management: User's Guide and Reference
> IBM  SA23-1393-40
>
> I read:
>Residence mode
>...
>ANY | 31
>Indicates that the module might reside anywhere in virtual storage
>either above or below the 16-MB virtual storage line. synonym for ANY.
>
> It matters little what a Glossary entry might say, no more than a Glossary
> can redefine "black" as  "white".
>
> (RCF submitted on error in paragraph quoted above.)
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: RMODE64

2020-12-21 Thread Joe Monk
RMODE(64)When neither binder options RMODE=64 nor RMODEX are specified,
RMODE(64) ESD are treated as RMODE(ANY) for module loading and execution,
with the exception of data class C_WSA64, which can be loaded above the
2-gigabyte bar. In this case, the map in the binder listing and ESD records
obtained from program objects through the binder API (for example, by the
AMBLIST service aid) will show the original RMODE. However, for load
modules, the ESD records are permanently modified.
Joe

On Mon, Dec 21, 2020 at 9:45 AM Joseph Reichman 
wrote:

> I personally wanted to know I’m not sure if RMODE64 was available on 2.3
>
> I looked up the CDE and it had an extension ihacdx so did xtentlist to
> take into account 64 bit address
>
> > On Dec 21, 2020, at 10:38 AM, R.S. 
> wrote:
> >
> > W dniu 21.12.2020 o 16:19, Ed Jaffe pisze:
> >>> On 12/21/2020 6:27 AM, Paul Gilmartin wrote:
> >>>
>  On Sun, 20 Dec 2020 21:14:21 -0800, Ed Jaffe wrote:
> >>>
> 
>  There are many, Many, MANY restrictions!
> 
> >>> Are these listed anywhere?  For code or for data?  Services calls?
> Citation needed.
> >>
> >>
> >> I was referring primarily to services. Our approach has been to invoke
> those that don't support RMODE(64) from GLUE code running below the bar.
> Many services still don't support AMODE(64). For those, even the
> inout/output parameters must be below the bar.
> >
> > (my humble question)
> > Out of curiosity: why did you choose RMODE(64)?
> > I understand AMODE(64) - more memory for data, but RMODE64 seems to me
> good solutions for really large programs or maybe multi-program address
> space like CICS.
> >
> > --
> > 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. Prosta 18, 00-850 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. Prosta 18, 00-850
> 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
>
> --
> 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: RMODE64

2020-12-21 Thread Joe Monk
"Out of curiosity: why did you choose RMODE(64)?"

Hey man - its the way of the future!

Joe

On Mon, Dec 21, 2020 at 9:38 AM R.S.  wrote:

> W dniu 21.12.2020 o 16:19, Ed Jaffe pisze:
> > On 12/21/2020 6:27 AM, Paul Gilmartin wrote:
> >>
> >> On Sun, 20 Dec 2020 21:14:21 -0800, Ed Jaffe wrote:
> >>
> >>>
> >>> There are many, Many, MANY restrictions!
> >>>
> >> Are these listed anywhere?  For code or for data?  Services calls?
> >> Citation needed.
> >
> >
> > I was referring primarily to services. Our approach has been to invoke
> > those that don't support RMODE(64) from GLUE code running below the
> > bar. Many services still don't support AMODE(64). For those, even the
> > inout/output parameters must be below the bar.
>
> (my humble question)
> Out of curiosity: why did you choose RMODE(64)?
> I understand AMODE(64) - more memory for data, but RMODE64 seems to me
> good solutions for really large programs or maybe multi-program address
> space like CICS.
>
> --
> 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. Prosta 18, 00-850 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. Prosta 18, 00-850
> 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
>

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


Re: Progam directory AD/Cycle C/370

2020-12-21 Thread Joe Monk
https://www.ibm.com/support/knowledgecenter/SS6SG3_6.3.0/migrate/igympreab2.html

Joe

On Mon, Dec 21, 2020 at 7:30 AM R.S.  wrote:

> Thank you for the information. I appreciate it.
>
>
> BTW: Is there description/list of COBOL versions anywhere?
> I mean z/OS family, something like
> Enterprise COBOL 6.3  year
> Enterprise COBOL 6.2  year
> Enterprise COBOL 5.x  year
> Enterprise COBOL 4.x  year
> Enterprise COBOL 3.2 year
> ...
> VS COBOL II ?
> ...
> OS/VS COBOL ?
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
>
>
>
>
>
> W dniu 21.12.2020 o 14:17, Joe Monk pisze:
> > "Just curious: What was "AD/Cycle"?"
> >
> > AD/Cycle was part of SAA - the  systems applications architecture.
> AD/Cycle
> > referred to the "Application Development Cycle".
> >
> >
> https://www-01.ibm.com/common/ssi/cgi-bin/ssialias?appname=skmwww=897%2FENUS290-529=AN=service%20initializer=ibmsearch_a=CA
> >
> > Joe
> >
> > On Mon, Dec 21, 2020 at 7:10 AM R.S. 
> wrote:
> >
> >> W dniu 15.12.2020 o 10:19, Peter pisze:
> >>> Hello
> >>>
> >>> Does anyone have a copy of Progam directory AD/Cycle C/370 1.2 ?
> >>>
> >>> I don't find the installation manual over web might be due to
> >> backlevelled
> >>> Any pointers ?
> >> Just curious: What was "AD/Cycle"?
> >> I'm aware the above can be found in old compiler names, but ...was is
> >> brand name or some marketing name?
> >>
> >> --
> >> 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. Prosta 18, 00-850 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. Prosta 18, 00-850
> 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
>

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


Re: Progam directory AD/Cycle C/370

2020-12-21 Thread Joe Monk
"Just curious: What was "AD/Cycle"?"

AD/Cycle was part of SAA - the  systems applications architecture. AD/Cycle
referred to the "Application Development Cycle".

https://www-01.ibm.com/common/ssi/cgi-bin/ssialias?appname=skmwww=897%2FENUS290-529=AN=service%20initializer=ibmsearch_a=CA

Joe

On Mon, Dec 21, 2020 at 7:10 AM R.S.  wrote:

> W dniu 15.12.2020 o 10:19, Peter pisze:
> > Hello
> >
> > Does anyone have a copy of Progam directory AD/Cycle C/370 1.2 ?
> >
> > I don't find the installation manual over web might be due to
> backlevelled
> >
> > Any pointers ?
>
> Just curious: What was "AD/Cycle"?
> I'm aware the above can be found in old compiler names, but ...was is
> brand name or some marketing name?
>
> --
> 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. Prosta 18, 00-850 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. Prosta 18, 00-850
> 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
>

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


Re: Compiler options in object code?

2020-12-20 Thread Joe Monk
if it is there, it will be in ESD at the end of the object deck.

Joe

On Sun, Dec 20, 2020 at 1:52 PM Charles Mills  wrote:

> Does anyone know where any compiler options are preserved in object code? I
> am at this moment specifically interested in the XL C/C++ compiler options
> TARGET and ARCH. In the pseudo-assembler listing I see
>
> 14  00AE    AL2(174),C'...'Saved Options String
>
> Is it there? Does anyone know where the format of that string is
> documented?
> Is there a utility that will display it?
>
> I see the doc for the CEEOCB but it does not seem to contain either TARGET
> or ARCH, or at least I did not see them.
>
> Charles
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: COBOL LIB

2020-12-18 Thread Joe Monk
Well he keeps talking about VSE.

Joe

On Fri, Dec 18, 2020 at 9:16 AM Seymour J Metz  wrote:

> He's asking about a z/OS environment, so there is no CIL or MSHP, just as
> there is no DCSS or VMSES/E (VMsespool?). He didn't give a context for his
> RC 20 in ISPF, but I suspect that he's trying to use a panel for a product
> that is not installed. We never did hear whether they are licensed for a
> COBOL compiler.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Joe Monk [joemon...@gmail.com]
> Sent: Friday, December 18, 2020 5:38 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: COBOL LIB
>
> VSE - MSHP = MISHAP :)
>
> The cobol compiler should be in the core image library. If you're on z/vse
> it will be part of LE (language environment)
>
> See page 195 ... https://www.redbooks.ibm.com/redbooks/pdfs/sg247436.pdf
>
> Joe
>
> On Thu, Dec 17, 2020 at 7:39 PM CarlosM Martinez 
> wrote:
>
> > I did use the ISPF panels in TSO it keeps terminating with rc code 20.
> > PS I knew someone was going to come up with the "SLEZTRIVE thing"
> > Anyway in VSE we have MSHP I guess I will do a SMP/E listing and see if
> > and where it lives.
> >
> > Thank you all,
> >
> > Carlos
> > SUNY DOWNSTATE MED CENTER
> >
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> > Behalf Of Seymour J Metz
> > Sent: Thursday, December 17, 2020 8:14 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: COBOL LIB
> >
> > Assuming that you are licensed for the relevant COBOL compiler, it's not
> > difficult to do the compiles with ISPF panels, either in foreground or by
> > submitting batch jobs.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> > 
> > From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> > of CarlosM Martinez [carl...@solracz.com]
> > Sent: Thursday, December 17, 2020 7:55 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: COBOL LIB
> >
> > YES,
> >  we are a CICS shop and I have been here for 2 yrs. And have never seen a
> > cobol compile. Just EASYTRIEV.
> > We have a new vendor that wants to compile Cobol . I have set up REXX
> full
> > screen mods to do this in VSE via CMS. But here all is in TSO.
> >
> > Thank you,
> > Carlos Martinez
> > SUNY Downstate Med. Center
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> > Behalf Of Steve Beaver
> > Sent: Thursday, December 17, 2020 6:16 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: COBOL LIB
> >
> > Carlos
> >
> > Are you a CICS shop?
> >
> > Sent from my iPhone
> >
> > > On Dec 17, 2020, at 16:40, Farley, Peter x23353 <
> > 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
> > >
> > > Carlos,
> > >
> > > AFAIK, Easytrieve scripts generate actual object code, not COBOL code,
> > for at least the versions of which I am aware (versions 4.x, 5.x and 6.x
> in
> > my experience all generate object code).
> > >
> > > HTH
> > >
> > > Peter
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List  On
> > Behalf Of CarlosM Martinez
> > > Sent: Thursday, December 17, 2020 5:27 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: COBOL LIB
> > >
> > > EXTERNAL EMAIL
> > >
> > > Well I am a newbie in Z/OS my expertise is in VSE. But... everything
> > here is hold on to your hat... EASYTRIEVE. I have not look at a complete
> > Easytrieve compile but doesn't it produce cobol code?
> > > We get our CICS online System compiled and shipped from a vendor and
> > just load it to a loadlib. I looked on 3.4 of TSO for IGY and found NONE.
> > >
> > > Thank you all.
> > >
> > > Carlos Martinez
> > > SUNY Downstate.
> > >
> > > -Original Message-
> > > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> > On Behalf Of Steve Beaver
> > > Sent: Thursday, December 17, 2020 5:07 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: COBOL LIB
> > >
> > > Do you even have any compiler procs?
> > >
> > > Sen

Re: COBOL LIB

2020-12-18 Thread Joe Monk
VSE - MSHP = MISHAP :)

The cobol compiler should be in the core image library. If you're on z/vse
it will be part of LE (language environment)

See page 195 ... https://www.redbooks.ibm.com/redbooks/pdfs/sg247436.pdf

Joe

On Thu, Dec 17, 2020 at 7:39 PM CarlosM Martinez 
wrote:

> I did use the ISPF panels in TSO it keeps terminating with rc code 20.
> PS I knew someone was going to come up with the "SLEZTRIVE thing"
> Anyway in VSE we have MSHP I guess I will do a SMP/E listing and see if
> and where it lives.
>
> Thank you all,
>
> Carlos
> SUNY DOWNSTATE MED CENTER
>
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Seymour J Metz
> Sent: Thursday, December 17, 2020 8:14 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: COBOL LIB
>
> Assuming that you are licensed for the relevant COBOL compiler, it's not
> difficult to do the compiles with ISPF panels, either in foreground or by
> submitting batch jobs.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of CarlosM Martinez [carl...@solracz.com]
> Sent: Thursday, December 17, 2020 7:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: COBOL LIB
>
> YES,
>  we are a CICS shop and I have been here for 2 yrs. And have never seen a
> cobol compile. Just EASYTRIEV.
> We have a new vendor that wants to compile Cobol . I have set up REXX full
> screen mods to do this in VSE via CMS. But here all is in TSO.
>
> Thank you,
> Carlos Martinez
> SUNY Downstate Med. Center
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Steve Beaver
> Sent: Thursday, December 17, 2020 6:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: COBOL LIB
>
> Carlos
>
> Are you a CICS shop?
>
> Sent from my iPhone
>
> > On Dec 17, 2020, at 16:40, Farley, Peter x23353 <
> 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
> >
> > Carlos,
> >
> > AFAIK, Easytrieve scripts generate actual object code, not COBOL code,
> for at least the versions of which I am aware (versions 4.x, 5.x and 6.x in
> my experience all generate object code).
> >
> > HTH
> >
> > Peter
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> Behalf Of CarlosM Martinez
> > Sent: Thursday, December 17, 2020 5:27 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: COBOL LIB
> >
> > EXTERNAL EMAIL
> >
> > Well I am a newbie in Z/OS my expertise is in VSE. But... everything
> here is hold on to your hat... EASYTRIEVE. I have not look at a complete
> Easytrieve compile but doesn't it produce cobol code?
> > We get our CICS online System compiled and shipped from a vendor and
> just load it to a loadlib. I looked on 3.4 of TSO for IGY and found NONE.
> >
> > Thank you all.
> >
> > Carlos Martinez
> > SUNY Downstate.
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Steve Beaver
> > Sent: Thursday, December 17, 2020 5:07 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: COBOL LIB
> >
> > Do you even have any compiler procs?
> >
> > Sent from my iPhone
> >
> >> On Dec 17, 2020, at 16:02, Jousma, David <
> 01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:
> >>
> >> COBOL compiler doesn't come with z/os.  It is separately purchased and
> licensed,  so since you are asking, you may not have it.
> >> 
> >> From: IBM Mainframe Discussion List  on
> >> behalf of CarlosM Martinez 
> >> Sent: Thursday, December 17, 2020 4:12:28 PM
> >> To: IBM-MAIN@LISTSERV.UA.EDU 
> >> Subject: COBOL LIB
> >>
> >> **CAUTION EXTERNAL EMAIL**
> >>
> >> **DO NOT open attachments or click on links from unknown senders or
> >> unexpected emails**
> >>
> >> Hello all,
> >> Does anyone know what library the COBOL compiler is in Z/OS 1.0 ?
> >> SYS1.???
> >>
> >> Thank you
> >> Carlos Martinez
> >> SUNY Downstate Med. Center
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions, send
> >> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >> **CAUTION EXTERNAL EMAIL**
> >>
> >> **DO NOT open attachments or click on links from unknown senders or
> >> unexpected emails**
> >>
> >>
> >> ${If.App.WXP}Classification: Internal Use${If.End} This e-mail
> >> transmission contains information that is confidential and may be
> privileged.
> >> It is intended only for the addressee(s) named above. If you receive
> >> this e-mail in error, please do not read, copy or disseminate it in
> >> any manner.  If you are not the intended recipient, any disclosure,
> >> copying, distribution or use of the contents of
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to 

Re: COBOL LIB

2020-12-17 Thread Joe Monk
"Just EASYTRIEV."

You mean SLEAZY-TRIEVE! :)

Joe

On Thu, Dec 17, 2020 at 6:56 PM CarlosM Martinez 
wrote:

> YES,
>  we are a CICS shop and I have been here for 2 yrs. And have never seen a
> cobol compile. Just EASYTRIEV.
> We have a new vendor that wants to compile Cobol . I have set up REXX full
> screen mods to do this in VSE via CMS. But here all is in TSO.
>
> Thank you,
> Carlos Martinez
> SUNY Downstate Med. Center
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Steve Beaver
> Sent: Thursday, December 17, 2020 6:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: COBOL LIB
>
> Carlos
>
> Are you a CICS shop?
>
> Sent from my iPhone
>
> > On Dec 17, 2020, at 16:40, Farley, Peter x23353 <
> 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
> >
> > Carlos,
> >
> > AFAIK, Easytrieve scripts generate actual object code, not COBOL code,
> for at least the versions of which I am aware (versions 4.x, 5.x and 6.x in
> my experience all generate object code).
> >
> > HTH
> >
> > Peter
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> Behalf Of CarlosM Martinez
> > Sent: Thursday, December 17, 2020 5:27 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: COBOL LIB
> >
> > EXTERNAL EMAIL
> >
> > Well I am a newbie in Z/OS my expertise is in VSE. But... everything
> here is hold on to your hat... EASYTRIEVE. I have not look at a complete
> Easytrieve compile but doesn't it produce cobol code?
> > We get our CICS online System compiled and shipped from a vendor and
> just load it to a loadlib. I looked on 3.4 of TSO for IGY and found NONE.
> >
> > Thank you all.
> >
> > Carlos Martinez
> > SUNY Downstate.
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Steve Beaver
> > Sent: Thursday, December 17, 2020 5:07 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: COBOL LIB
> >
> > Do you even have any compiler procs?
> >
> > Sent from my iPhone
> >
> >> On Dec 17, 2020, at 16:02, Jousma, David <
> 01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:
> >>
> >> COBOL compiler doesn't come with z/os.  It is separately purchased and
> licensed,  so since you are asking, you may not have it.
> >> 
> >> From: IBM Mainframe Discussion List  on
> >> behalf of CarlosM Martinez 
> >> Sent: Thursday, December 17, 2020 4:12:28 PM
> >> To: IBM-MAIN@LISTSERV.UA.EDU 
> >> Subject: COBOL LIB
> >>
> >> **CAUTION EXTERNAL EMAIL**
> >>
> >> **DO NOT open attachments or click on links from unknown senders or
> >> unexpected emails**
> >>
> >> Hello all,
> >> Does anyone know what library the COBOL compiler is in Z/OS 1.0 ?
> >> SYS1.???
> >>
> >> Thank you
> >> Carlos Martinez
> >> SUNY Downstate Med. Center
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions, send
> >> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >> **CAUTION EXTERNAL EMAIL**
> >>
> >> **DO NOT open attachments or click on links from unknown senders or
> >> unexpected emails**
> >>
> >>
> >> ${If.App.WXP}Classification: Internal Use${If.End} This e-mail
> >> transmission contains information that is confidential and may be
> privileged.
> >> It is intended only for the addressee(s) named above. If you receive
> >> this e-mail in error, please do not read, copy or disseminate it in
> >> any manner.  If you are not the intended recipient, any disclosure,
> >> copying, distribution or use of the contents of
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > This message and any attachments are intended only for the use of the
> addressee and may contain information that is privileged and confidential.
> If the reader of the message is not the intended recipient or an authorized
> representative of the intended recipient, you are hereby notified that any
> dissemination of this communication is strictly prohibited. If you have
> received this communication in error, please notify us immediately by
> e-mail and delete the message and any attachments from your system.
> >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to 

Re: does anyone recall any details about MVS/XA? [EXTERNAL]

2020-12-08 Thread Joe Monk
Yes, IPO used generate.

There was IPOUPDTE and IPOGEN.

http://www.computinghistory.org.uk/downloads/9653

Joe

On Tue, Dec 8, 2020 at 6:08 PM Seymour J Metz  wrote:

> GENERATE rebuilds the target datasets from the distribution data sets; you
> still need an MVS/SP system generation or MVSCP to define the I/O
> configuration. I don't recall IPO ever using GENERATE, but memory is the
> second thing to go.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> 
> From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf
> of Lennie Dymoke-Bradshaw [032fff1be9b4-dmarc-requ...@listserv.ua.edu]
> Sent: Tuesday, December 8, 2020 6:18 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: does anyone recall any details about MVS/XA? [EXTERNAL]
>
> I ran these CBIPO installs in the early eighties. I am pretty sure it used
> SMP/E to perform the generation using the GENERATE command.
> I had an MVS/SP driving system of course. The first MVS/XA system I built
> was XA 2.1.2 I think.
>
> Lennie Dymoke-Bradshaw
> Consultant working on contract for BMC mainframe Services by RSM Partners
> ‘Dance like no one is watching. Encrypt like everyone is.’
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Pommier, Rex
> Sent: 08 December 2020 22:30
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: does anyone recall any details about MVS/XA? [EXTERNAL]
>
> Paul,
>
> Thank you for that memory jog.  Yep, it was MVS/Express.  It was a
> stand-alone restore tape of MVS/XA (ours was 2.1.7) that once restored was
> an IPLable XA system - and reasonably current on maintenance.
>
> Fun time was going to a class for MVS newbies and using the MVS/express
> tape.  8 of us trying to restore stand-alone tapes on top of a VM 4381.
> Watching the tape turn ever-so-slowly trying to load MVS.
>
> So when we initially brought up XA 2.1.7, it was the express tape which
> was the starter system soon followed by a CBIPO tape to load down a more
> current set of software and yes, there was a SYSGEN in the middle of the
> CBIPO install process.
>
> Those are old, rusty memories.
>
> Rex
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Feller, Paul
> Sent: Tuesday, December 8, 2020 4:20 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: does anyone recall any details about MVS/XA? [EXTERNAL]
>
> For those new to MVS there was the MVS/XA Express option.  You have to
> qualify to get it.  A shop I worked at a long time ago was a VSE shop that
> was going to convert to MVS and that is how we started off.  I believe the
> MVS/XA Express was a complete IPL system that IBM built based on your
> environment.  I think it was basically a restore and IPL type situation.
> After that I don't recall what had to be done.  It was a long (long) time
> ago so the memory is a little fuzzy.
>
>
>
> Thanks..
>
> Paul Feller
> GTS Mainframe Technical Support
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Mark Jacobs
> Sent: Tuesday, December 8, 2020 3:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: does anyone recall any details about MVS/XA? [EXTERNAL]
>
> The *fun* memories of a POR before every time we tested MVS/XA and then
> another one when we went back to MVS/SP for production just returned.
>
> Mark Jacobs
>
> Sent from ProtonMail, Swiss-based encrypted email.
>
> GPG Public Key -
> https://urldefense.proofpoint.com/v2/url?u=https-3A__api.protonmail.ch_pks_lookup-3Fop-3Dget-26search-3Dmarkjacobs-40protonmail.com=DwIFaQ=9g4MJkl2VjLjS6R4ei18BA=eUhu3PeeWy6RTndlJVKembFjFsvwCa8eeU_gm45NyOc=KK1yXXNOBVuutibinfGrz7q-E8DxWAgMfozPwM_fdas=Aeq0PrNdOcRqdsiFkHkGJt4xsGO8Guev3vSwvmvSc-s=
>
> ‐‐‐ Original Message ‐‐‐
>
> On Tuesday, December 8th, 2020 at 4:18 PM, Farley, Peter x23353 <
> 031df298a9da-dmarc-requ...@listserv.ua.edu> wrote:
>
> > ISTR there was also a special version of VM/XA made available "early" so
> that customers could run both 24-bit MVS/SP and 31-bit MVS/XA on the same
> physical machine.
> >
> > Peter
> >
> > -Original Message-
> >
> > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf
> > Of Brian France
> >
> > Sent: Tuesday, December 8, 2020 4:11 PM
> >
> > To: IBM-MAIN@LISTSERV.UA.EDU
> >
> > Subject: Re: does anyone recall any details about MVS/XA?
> >
> > I kinda remember MVS/XA and later ESA being CBIPO and CBPDO for maint.
> >
> > SYSGEN I think was still needed for XA and maybe ESA.
> >
> > I'm not sure what 

Re: does anyone recall any details about MVS/XA?

2020-12-08 Thread Joe Monk
Yes, and I believe the "driving' system for install had to be MVS/SP or
higher...

Joe

On Tue, Dec 8, 2020 at 3:11 PM Brian France  wrote:

> I kinda remember MVS/XA and later ESA being CBIPO and CBPDO for maint.
>
> SYSGEN I think was still needed for XA and maybe ESA.
>
> I'm not sure what you meant by Optional Source Materials. If by that you
> meant optional source code to install, I think they went the microsloth
> bloat ware option later...
>
> On 12/8/2020 4:00 PM, Joe Monk wrote:
> > i  thought MVS/XA was CBIPO?
> >
> > Joe
> >
> > On Tue, Dec 8, 2020 at 2:04 PM Mark S Waterbury <
> > 01c3f560aac1-dmarc-requ...@listserv.ua.edu> wrote:
> >
> >> Hi, all,
> >>
> >> Does anyone recall how MVS/XA was first distributed and installed?  e.g.
> >> was there some kind of  a "starter system"?  If so, what was it? MVS
> 3.8J,
> >> or MVS/SE or MVS/SP or what?
> >>
> >> I seem to recall that someone told me that there was no longer any
> >> "SYSGEN" process used to install MVS/XA?  So, how was this task
> >> accomplished?
> >>
> >> Also, does anyone recall whether IBM made available any "optional source
> >> materials" for MVS/XA, either machine readable, on magnetic tape, or was
> >> that only available on microfiche, if it was available at all?
> >>
> >> Thanks in advance for any details anyone can provide.
> >>
> >> All the best,
> >>
> >> Mark S. Waterbury
> >>
> >> --
> >> 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
>
> --
> Brian W. France
> Systems Administrator (Mainframe)
> Pennsylvania State University
> Penn State IT - Infrastructure/SYSARC
> Rm 25 Shields Bldg., University Park, Pa. 16802
> 814-863-4739
> b...@psu.edu
>
> There's no such thing as The Cloud - it's just someone else's computer...
>
> "To make an apple pie from scratch, you must first invent the universe."
>
> Carl Sagan
>
> --
> 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: does anyone recall any details about MVS/XA?

2020-12-08 Thread Joe Monk
i  thought MVS/XA was CBIPO?

Joe

On Tue, Dec 8, 2020 at 2:04 PM Mark S Waterbury <
01c3f560aac1-dmarc-requ...@listserv.ua.edu> wrote:

> Hi, all,
>
> Does anyone recall how MVS/XA was first distributed and installed?  e.g.
> was there some kind of  a "starter system"?  If so, what was it? MVS 3.8J,
> or MVS/SE or MVS/SP or what?
>
> I seem to recall that someone told me that there was no longer any
> "SYSGEN" process used to install MVS/XA?  So, how was this task
> accomplished?
>
> Also, does anyone recall whether IBM made available any "optional source
> materials" for MVS/XA, either machine readable, on magnetic tape, or was
> that only available on microfiche, if it was available at all?
>
> Thanks in advance for any details anyone can provide.
>
> All the best,
>
> Mark S. Waterbury
>
> --
> 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: AOPSTART error

2020-12-02 Thread Joe Monk
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.aopm000/av00120.htm

If a message indicates a RACF® or SAF error (such as, message EDC5164I):

   - Make sure the user ID that starts Infoprint Server is a valid z/OS®
   UNIX user ID. The user ID must have an OMVS segment, the default group for
   the user ID must have an OMVS segment with a group identifier (GID), and
   the user ID must have a home directory. The user identifier (UID) for the
   user must be different from other UIDs in the installation.
   Note: If you use a JCL procedure to start Infoprint Server, check the
   user ID that is associated with this procedure.
   - Make sure that the password for the user ID that starts Infoprint
   Server is not expired.
   - Run the aopsetup shell script to set up the correct z/OS UNIX
   permissions for Infoprint Server directories and executable files.


Joe

On Wed, Dec 2, 2020 at 4:45 PM McIntosh,Richard <
035812381fe9-dmarc-requ...@listserv.ua.edu> wrote:

> I'm working on upgrading a client from 1.13 to 2.20 to start with. They
> use INFOPRINT SERVER.
> When trying to start AOPSTART I'm getting the following. Tried with IBM
> support and they said you are out of support.
> Does someone know where I can find the meaning of the errno2 for the RACF
> error? I'm not having any luck finding it.
>
> AOP004E A system error occurred during processing. (program:aopd)
>
> AOP047E spawnp(aopxfd) failed in ThatDaemon::start() at src/thatdaemon
> 207
> .cpp 65: EDC5164I SAF/RACF error. errno2=0xb1b0804 (program:aopd)
> AOP044I Shutdown complete. (program:aopd)
>
>
> Thanks
> Richard McIntosh
> Cerner
>
>
>
> CONFIDENTIALITY NOTICE This message and any included attachments are from
> Cerner Corporation and are intended only for the addressee. The information
> contained in this message is confidential and may constitute inside or
> non-public information under international, federal, or state securities
> laws. Unauthorized forwarding, printing, copying, distribution, or use of
> such information is strictly prohibited and may be unlawful. If you are not
> the addressee, please promptly delete this message and notify the sender of
> the delivery error by e-mail or you may call Cerner's corporate offices in
> Kansas City, Missouri, U.S.A at (+1) (816)221-1024.
>
> --
> 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: Invoking IFASMFDP utility via CALL, LINK, ATTACH ?

2020-12-02 Thread Joe Monk
The IBM recommended way to run IFASMFDP is via the IEFU29 exit

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae400/ieae40040.htm

Joe

On Wed, Dec 2, 2020 at 1:25 AM Mike Hochee  wrote:

> Wondering if anyone has attempted to invoke the SMF IFASMFDP utility
> (handles dumping and clearing of SMF data set logs, digital signature
> validation, etc.) via program invocation using CALL, LINK, or ATTACH?  Some
> of the dfp utilities allow dynamic invocation from a program, and for those
> some doc is provided, however I found no equivalent doc for IFASMFDP.
> (probably not a good sign)
>
> Thanks,
> Mike
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: markup a screen print

2020-12-01 Thread Joe Monk
MS Paint

joe

On Tue, Dec 1, 2020 at 11:03 AM Elaine Beal  wrote:

> I want to mark up a screen print and am wanting a way to mark squares,
> arrows, etc.
> i use snippet but see only a free form line to use
> I use Word borders but they don't work with an object
>
> Thanks,
> Elaine
>
> --
> 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: Preparing for a short z/OS contract

2020-11-29 Thread Joe Monk
you will not have any problems. MVS is MVS.

Joe

On Sun, Nov 29, 2020 at 11:31 AM Rupert Reynolds 
wrote:

> A client from my contracting days has contacted me out of the blue. Perhaps
> only a week, but work is work, right? :-)
>
> Does anyone have advice they can offer on what to expect these days?
>
> When I last worked for them, it was ESA/390, ISPF :-)
>
> Does a lot of PL/1, Assembler and Rexx programming work still get done in
> ISPF, or is it mostly at a *nix terminal?
>
> I'm comfortable in Linux, for example, but I've not even seen z/OS running,
> so I'm unsure about what to expect.
>
> Thanks for any advice.
>
> Roops
>
> On Sun., Nov. 29, 2020, 15:18 Martin Packer, 
> wrote:
>
> > I would also point out quite a few customers restart CICS on a daily
> > (sometimes weekly) basis. They IPL much less frequently (likewise
> > structure recovery etc).
> >
> > I should imagine therefore there would have to be a lot of thinking
> around
> > terms and conditions for something such as restarting CICS. At any rate,
> > that's not what SRB supports.
> >
> > Cheers, Martin
> >
> > Martin Packer
> >
> > Systems Investigator & Performance Troubleshooter, IBM
> >
> > +44-7802-245-584
> >
> > email: martin_pac...@uk.ibm.com
> >
> > Twitter / Facebook IDs: MartinPacker
> >
> > Blog: https://mainframeperformancetopics.com
> >
> > Mainframe, Performance, Topics Podcast Series (With Marna Walle):
> > https://anchor.fm/marna-walle
> >
> > Youtube channel:
> https://www.youtube.com/channel/UCu_65HaYgksbF6Q8SQ4oOvA
> >
> >
> >
> > From:   Peter Relson 
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date:   29/11/2020 13:11
> > Subject:[EXTERNAL] Re: System Boost Question
> > Sent by:IBM Mainframe Discussion List 
> >
> >
> >
> > 
> > Could we use SYSTEM boost to make the process of shutting down the CICS
> > region and restarting them?
> > 
> >
> > That would not be an appropriate use of the shutdown boost. Shutdown
> boost
> >
> > is for shutting down the entire system.
> >
> > 
> > Note that IBM also has a separate feature called "System Recovery Boost
> > Upgrade" which is unrelated to "System Recovery Boost" ... it is more
> like
> > CUoD.  That is a paid feature and gives a 6 hour boost in processing
> > speed.
> > 
> >
> > "Gives a 6 hour boost in processing speed" is not a good characterization
> > of System Recovery Boost Upgrade.  It does not do so. Each activation
> (and
> >
> > the upgrade covers multiple) gives you a 6 hour window during which
> > additional processors can be applied to each LPAR when that LPAR is
> > starting up or shutting down. It is during the startup and the shutdown
> > that the additional processors can participate.
> >
> > Peter Relson
> > z/OS Core Technology Design
> >
> >
> > --
> > 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
> >
>
> --
> 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: Need some help with SSL error

2020-11-16 Thread Joe Monk
Sorry ... my email client cut off the ATTLS parms and I didnt see them.

Joe

On Mon, Nov 16, 2020 at 7:06 AM Joe Monk  wrote:

> Error 100B:
>
> 100B Unexpected SSL handshake encountered.An SSL handshake header was
> encountered on a basic port or the client immediately entered an SSL
> handshake for a CONNTYPE option value other than SECURE or ANY. Verify that
> the client and port settings are compatible.
> A quick google found this:
>
>
> https://www.ibm.com/support/pages/zos-communications-server-tls-needed-implement-tls-v12
>
> Joe
>
>
>
>
> On Mon, Nov 16, 2020 at 6:27 AM Edgington, Jerry <
> jerry.edging...@westernsouthernlife.com> wrote:
>
>> I need some help, please.  We have an automated system, using TN3270
>> screen scraping.  Over the weekend, we IPL'ed, first time in April, 2020
>> and now, when this "automated" system/client tries to connect over TN3270,
>> we are getting this error message:
>>
>> M 410  20320 14:22:03.02 STC09624 0090  EZZ6034I TN3270
>> CONN 025C LU **N/A**  CONN DROP  ERR 100B 864
>> E 864 0090IP..PORT:
>> :::xx.xx.xx.xx..53084 EZBTTRCV
>>
>> The AT/TLS policy has changed since August, 2020.  And we only have TLS
>> v1.2 turned on for only specific inbound IP addresses.  We are running z/OS
>> v2.1, at this point
>>
>> Any suggestions, help or ideas, would be great.
>>
>> Thanks,
>> Jerry Edgington
>>
>> Here is the AT/TLS policy. I have masked the names for security reasons.
>> ##---
>> ## Rules for yyy servers using xx IP over port 923
>> ##---
>> TTLSRule  yyy-xx-SSL
>> {
>>   LocalAddrGroupRef x-Ip-Addr
>>   RemoteAddrGroupRef   yyy-Server-IpAddr
>>   LocalPortRange 923
>>   RemotePortRangeRef Port-Remote
>>   Direction Inbound
>>   Priority500
>>   TTLSGroupActionRef   gAct1
>>   TTLSEnvironmentActionRefeAct1
>>   TTLSConnectionActionRef cAct-x
>> }
>>
>> TTLSConnectionAction  cAct-x
>> {
>>   HandshakeRole Server
>>   TTLSCipherParmsRef   cipher1~Default_Ciphers
>>   TTLSConnectionAdvancedParmsRef  cAdv-xx
>>   CtraceClearText Off
>>   Trace7
>> }
>>
>> TTLSConnectionAdvancedParms   cAdv-
>> {
>>   HandshakeTimeout 30
>>   CertificateLabel ATTLS
>>   SecondaryMap  Off
>>   TLSv1.2On
>>   ApplicationControlled  On
>> }
>>
>> TTLSEnvironmentAction eAct1
>> {
>>   HandshakeRole Server
>>   EnvironmentUserInstance 0
>>   TTLSKeyringParmsRef keyR~ZOS112
>> }
>>
>>
>> ##---
>> ## IP Address for yyy Servers
>> ##---
>> IpAddrGroup   yyy-Server-IpAddr  {
>>   IpAddr
>>   {
>>  Addr xx.xx.xx.xx
>>   }
>> }
>>
>> ##---
>> ## Ports Remote
>> ##---
>> PortRange Port-Remote
>> {
>>   Port1024-65535
>> }
>>
>> --
>> 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: Need some help with SSL error

2020-11-16 Thread Joe Monk
Error 100B:

100B Unexpected SSL handshake encountered.An SSL handshake header was
encountered on a basic port or the client immediately entered an SSL
handshake for a CONNTYPE option value other than SECURE or ANY. Verify that
the client and port settings are compatible.
A quick google found this:

https://www.ibm.com/support/pages/zos-communications-server-tls-needed-implement-tls-v12

Joe




On Mon, Nov 16, 2020 at 6:27 AM Edgington, Jerry <
jerry.edging...@westernsouthernlife.com> wrote:

> I need some help, please.  We have an automated system, using TN3270
> screen scraping.  Over the weekend, we IPL'ed, first time in April, 2020
> and now, when this "automated" system/client tries to connect over TN3270,
> we are getting this error message:
>
> M 410  20320 14:22:03.02 STC09624 0090  EZZ6034I TN3270
> CONN 025C LU **N/A**  CONN DROP  ERR 100B 864
> E 864 0090IP..PORT:
> :::xx.xx.xx.xx..53084 EZBTTRCV
>
> The AT/TLS policy has changed since August, 2020.  And we only have TLS
> v1.2 turned on for only specific inbound IP addresses.  We are running z/OS
> v2.1, at this point
>
> Any suggestions, help or ideas, would be great.
>
> Thanks,
> Jerry Edgington
>
> Here is the AT/TLS policy. I have masked the names for security reasons.
> ##---
> ## Rules for yyy servers using xx IP over port 923
> ##---
> TTLSRule  yyy-xx-SSL
> {
>   LocalAddrGroupRef x-Ip-Addr
>   RemoteAddrGroupRef   yyy-Server-IpAddr
>   LocalPortRange 923
>   RemotePortRangeRef Port-Remote
>   Direction Inbound
>   Priority500
>   TTLSGroupActionRef   gAct1
>   TTLSEnvironmentActionRefeAct1
>   TTLSConnectionActionRef cAct-x
> }
>
> TTLSConnectionAction  cAct-x
> {
>   HandshakeRole Server
>   TTLSCipherParmsRef   cipher1~Default_Ciphers
>   TTLSConnectionAdvancedParmsRef  cAdv-xx
>   CtraceClearText Off
>   Trace7
> }
>
> TTLSConnectionAdvancedParms   cAdv-
> {
>   HandshakeTimeout 30
>   CertificateLabel ATTLS
>   SecondaryMap  Off
>   TLSv1.2On
>   ApplicationControlled  On
> }
>
> TTLSEnvironmentAction eAct1
> {
>   HandshakeRole Server
>   EnvironmentUserInstance 0
>   TTLSKeyringParmsRef keyR~ZOS112
> }
>
>
> ##---
> ## IP Address for yyy Servers
> ##---
> IpAddrGroup   yyy-Server-IpAddr  {
>   IpAddr
>   {
>  Addr xx.xx.xx.xx
>   }
> }
>
> ##---
> ## Ports Remote
> ##---
> PortRange Port-Remote
> {
>   Port1024-65535
> }
>
> --
> 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: JES2 Policies

2020-11-11 Thread Joe Monk
"BTW: Your case seem ridiculous (tenths of hour? Every job accounted?),
but - this is more important - it has nothing to do with the problem."

Yes. Chargebacks for mainframe time, and accounting when LPARs are leased
to 3rd party customers.

When I was a customer of a mainframe service provider, we paid $8,000 per
CPU hour which  was a very competitive rate for a 2 processor LPAR. So, you
bet. A tenth of an hour was $800.

BTW, lawyers bill their clients in tenths of an hour. At $1000/hr for a
partner, 6 minutes is $100. And, the systems that  lawyers use, have client
matter codes for billing.  They are required to for the court.

Joe



On Wed, Nov 11, 2020 at 4:39 PM R.S.  wrote:

> W dniu 05.11.2020 o 20:01, retired mainframer pisze:
> >> -Original Message-
> >> From: IBM Mainframe Discussion List  On
> >> Behalf Of R.S.
> >> Sent: Thursday, November 05, 2020 4:20 AM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: Re: JES2 Policies
> >>
> >> Joe,
> >>
> >> And I'm pretty sure no business department is interested in ACCNT field
> >> and its content. Believe me or not: IT is a tool to achieve business
> >> goal, but the details, guts, fields, commas are NOT in the scope of
> >> business focus. They want working application, it is up to IT how to do
> >> it. Changing ACCNT or classes are not strategic.
> >> BTW: Gadi's further explanation sched more light on that.
> >> That's why I proposed solution for real need.  Not just abstract
> >> excercise to solve.
> >>
> >> --
> >> Radoslaw Skorupka
> >> Lodz, Poland
> > Why would you think that?  When I was working, our office had several
> different contracts active simultaneously.  Many were "cost plus" rather
> than "fixed fee."  It was not unusual to spend a portion of each day on
> different ones.  We were required to daily document our time on each to the
> nearest tenth of an hour.  Similarly, when we logged on to TSO or submitted
> a batch job, we were required to specify the account field that
> corresponded to that contract.  We had an exit (IEFACTRT?) that captured
> this along with job statistics, such as CPU time, I/O counts, etc and cut
> appropriate SMF records.  These formed the basis for billing the
> customers.  It was also used by management to determine how accurate
> initial estimates were and then refine our process for estimating future
> bids.
>
> Why do I think that? This is my experience. I saw and *solved* many
> scenarios where weird (OK, unusual) requirements were NOT business need,
> but were derivative of those. Yes, I sustain - business dept has no
> interest in ACCNT field, TRK vs CYL vs AVG and many other technical
> things. BTW: I also saw other scenarios but I have *never* saw
> reasonable explanation for them. Of course this is only my limited 25+
> yo experience. I would be happy to learn such cases.
>
> BTW: Your case seem ridiculous (tenths of hour? Every job accounted?),
> but - this is more important - it has nothing to do with the problem.
> Please, read Gadi's further explanations. In this case the only purpose
> (*) of ACCNT field is to manage job class and service class assignment.
> (*)
> (Fine print: this is the only purpose we know. However why to suspect
> there are other hidden purposes? How to satisfy them? And what's wrong
> with CLASS= keyword in jobcard?)
>
> --
> 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 

Re: Metal C questions

2020-11-08 Thread Joe Monk
"The LNKX (is if you are running AR mode my assembler program is not)"

Your original email said:

"My compile options has ARMODE"

"Specifies that all functions in the C source file will operate in
access-register (AR) mode. ARMODE must be used with the METAL compiler
option.

When ARMODE is in effect, all functions in the compilation unit will be
compiled in AR mode. AR mode functions can access data stored in additional
data spaces supported by IBM® System z® hardware."

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.cbcux01/armode.htm#armode

Joe



On Sun, Nov 8, 2020 at 6:19 PM Joseph Reichman 
wrote:

> I think I need to clarify my question(s)
>
> The LNKX (is if you are running AR mode my assembler program is not)
>
> To answer  Binyamin's question without __asm( " SAC 512"); the program does
> blow up
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of
> Binyamin Dissen
> Sent: Sunday, November 8, 2020 7:00 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Metal C questions
>
> "Register Contents
>
> 0
>
> Used as a work register by the system if SF is specified."
>
> On Sun, 8 Nov 2020 18:52:58 -0500 Joseph Reichman 
> wrote:
>
> :>Here it is  GETMACIN is the METAL C prog :> :>
> :>  283  MVC   DBGROFF,=F'0'
> :> 284  LINKX EP=GETMACIN,
> :>PARAM=(MACINST,DBGROFF),
> :>MF=(E,(R8)),SF=(E,(R6))
> :> 290+ LR1,R8
> :> 291+ LA14,MACINST PICKUP
> :> 292+ LA15,DBGROFF PICKUP
> :>
> :>
> :>IKJ57310I BREAKPOINT AT OPENFILE HAS BEEN DEACTIVATED
> :> IKJ57024I AT GETMACIN PROLOUGE
> :> TESTAUTH
> :>LISTPSW
> :> IKJ57652I PSW LOCATED AT 8B7C68
> :>   XRXXXTIE   KEY  XMWP  AS CC  PROGMASK  EA BA  INSTR ADDR
> :>   01118   1101  00 01 0  1   1FA4B3E0
> :> TESTAUTH
> :>
> :>thanks
> :>
> :>As you can see AS Address space control is 0 :>-Original Message-
> :>From: IBM Mainframe Discussion List  On Behalf
> Of :>Binyamin Dissen
> :>Sent: Sunday, November 8, 2020 6:42 PM
> :>To: IBM-MAIN@LISTSERV.UA.EDU
> :>Subject: Re: Metal C questions
> :>
> :>On Sun, 8 Nov 2020 18:21:00 -0500 Joseph Reichman  :> >
> :>wrote:
> :>
> :>:>1.  I am using a far pointer to address a data space. I can see where
> :>:>the access registerers are being initialized but I do not see a SAC
> 512.
> :>My :>compile options has ARMODE
> :>
> :>:>I inserted __asm{ " SAC 512" }; to get it working :> :>Did you get an
> abend without it?
> :>
> :>:>2.  I am LINK'ing to the metal C program from an assemble program .
> :>:>Register 0 (which is a pointer to the writable static area) is not
> :>:>initialized. I have a RENT option. Is there anyway knowing the size of
> the :>:>WSA Should be (I have read the documentation bot XL/C complier
> guide
> and :>:>metal C programming guide not quite sure what the WSA area is in
> regards :>to
> :>:>reentrancy)
> :>
> :>What is the syntax of your LINK(x), i.e., show your code.
>
> --
> Binyamin Dissen  http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
>
> Should you use the mailblocks package and expect a response from me, you
> should preauthorize the dissensoftware.com domain.
>
> I very rarely bother responding to challenge/response systems, especially
> those from irresponsible companies.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email
> to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Metal C questions

2020-11-08 Thread Joe Monk
If youre in ARMODE you have to LINKX, not LINK. LINKX is the macro for
ARMODE.

To get the WSA, you should use the prolog/epilog code before the LINKX  ...
a sample is documented here:

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.ccrug00/asmprlogepilog.htm

Joe



On Sun, Nov 8, 2020 at 5:21 PM Joseph Reichman 
wrote:

> 1.  I am using a far pointer to address a data space. I can see where
> the access registerers are being initialized but I do not see a SAC 512. My
> compile options has ARMODE
>
> I inserted __asm{ " SAC 512" }; to get it working
>
> 2.  I am LINK'ing to the metal C program from an assemble program .
> Register 0 (which is a pointer to the writable static area) is not
> initialized. I have a RENT option. Is there anyway knowing the size of the
> WSA Should be (I have read the documentation bot XL/C complier guide and
> metal C programming guide not quite sure what the WSA area is in regards to
> reentrancy)
>
>
>
> Thanks
>
>
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: DS8870 Non Encrypted Disk Drives

2020-11-05 Thread Joe Monk
According to here:

https://www.ibm.com/support/knowledgecenter/HW213_7.2.0/com.ibm.storage.ssic.help.doc/f2c_drivesets.html

You might need feature code 1754 to deactivate encryption...

Joe

On Thu, Nov 5, 2020 at 10:39 AM Sonny Gupta  wrote:

> Hello All, I have run into a unique problem with a DS8870 that I recently
> acquired.
>
> The DS8870 is not using encryption and when we try to replace the drives,
> we are receiving following error: The DS8700 is not under IBM Maintenance.
>
> 2107-104 Error from Action applicationLevelActivateRepair.
> Error Num is 0x102
> Error Msg is 2107-346 IBM.essSADevicesRMD:: Cryptographic erase failed on
> FDE Drive Due to internal microcode errors. nRC=258
>
> Recovery Action:
> 1.  Review the error message above, and take notes on the recommended
> action if provided
> 2.  Do one of the following:
> a. Perform the recommended action if provided
> b. Retry the service action unless the error message stated
> otherwise
> c. Contact the next level support for assistance
>
> I am unable to find any information on non-encrypted disks. All the
> replacement drives that I have purchased are SED (Self Encrypted Drives)
> and unable to find non-SED drives.
>
> Any help would be appreciated.
>
> Regards,
> Sonny Gupta
>
> --
> 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: JES2 Policies

2020-11-05 Thread Joe Monk
"However I think it not valid
requirement, there is no business need behind it."

Thats not your call to make. They are entitled to run their business how
they see fit.

Joe

On Thu, Nov 5, 2020 at 5:53 AM R.S.  wrote:

> W dniu 04.11.2020 o 19:50, Lizette Koehler pisze:
> > Can RACF see the account code and make a decision?
> Obviously not. RACF is also unable to see submitters trousers, check how
> many days left to nearest holiday, etc.
>
> > That is what (as I understand it) the initial requirement is.
> Yes, that requirement was presented to us. However I think it not valid
> requirement, there is no business need behind it.
> It is more complex: some reasonable business need led to use accnt. And
> this is worth to discuss IMHO. Or just go back to business need and
> discuss how to satisfy it. To avoid Rube Goldberg machinery.
>
>
> --
> 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
>

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


Re: JES2 Policies

2020-11-04 Thread Joe Monk
Radoslaw,

I think what the OP is really saying is that certain accounts should be
restricted from certain jobclasses i.e. DEV cant use PROD jobclasses. So,
if they code a CLASS=X, but the  account info says  that they dont have
access to CLASS=X, then dump the job.

OP: This has been around a long time, and is very mature...

Joe

On Wed, Nov 4, 2020 at 8:20 AM R.S.  wrote:

> W dniu 04.11.2020 o 13:10, Gadi Ben-Avi pisze:
> > Hi,
> > I've started looking into JES2 Policies.
> >
> > The current goal is to change a job's class or service class depending
> on certain values in the accounting information.
> > >From reading the manual, it seems that this is possible.
> >
> > Has anyone done something like this?
> > Is there a way to debug these policies?
> >
> > Is this feature mature enough to use?
>
> I dare to disagree ...with your goal. More precisely I disagree with
> your presentation of the goal.
> Does it really have to depend on account information? Why?
>
> That means user has to code something in the jobcard, in the first
> positional. So he may code CLASS= keyword as well, can't he?
> Maybe your accnt infor is already somehowe controlled (my guess, lack of
> information). However jobclass can be RACF-controlled.
> And this is quite mature way to control job classes and (indirectly)
> service classes.
>
> --
> 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
>

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


Re: VSAM-RLS and DFSMStvs basic questions

2020-11-01 Thread Joe Monk
"BTW: Few questions
Where can I read about VSAM SHR (4 x)?
Was SHR (4 x) available on MVS or its predecessor?
Is there any "introduction" of VSE disks usage, datasets, and so called
file system? How is it similar to z/OS?"

You can read about VSAM on VSE in the VSE guides.

SHR(4 x) was available on MVS/ESA and up, but for  file integrity no one
ever used it.

VSE file system is the same as MVS, without PDS. Instead VSE uses a library
system. But sequential files, VSAM files, ISAM files all work the same way.
Just the JCL is different.

In MVS, you have a DD statement to describe a file, In VSE, you use a
DLBL , EXTENT and ASSGN to define a file...

IN VSE, you assign units, and POWER virtualizes them. Example, a JOB
running in FA, FB and BG might all have the same ASSGN:

//ASSGN SYSRDR,00C
//ASSGN SYSPCH,00D
//ASSGN SYSPRT,00E

A  disk file:

//DLBL SYS009,'my.sequen.tial.file',0,SD
//EXTENT SYS009,VOL001,,,100,100 < Starting at track 100 for 100 tracks
//ASSGN SYS009,DISK,VOL=VOL001,SHR

//EXEC DITTO,REGION=1024K < Run the DITTO program

Also VSE is backwards with regards to some things.

In VSE,  you define the files first then EXEC  the phase. In MVS, you EXEC
the PGM/PROC first, then define the files.

In VSE EXEC specifies a PGM (aka phase) unless the PROC keyword is used. In
MVS, EXEC specifies a PROC, unless the PGM keyword is used.

Joe



On Sun, Nov 1, 2020 at 6:53 AM R.S.  wrote:

> W dniu 31.10.2020 o 00:40, Joe Monk pisze:
> > Radoslaw,
> >
> > He is asking about shareoption (4 x)  not (x 4) aka cross-region sharing,
> > not cross-system sharing.
> >
> > In VSE, Shareoption(4) allows vsam file sharing among partitions (similar
> > to a z/os address space). VSE manages  that automatically, for the user.
>
> Well, I just learnt something new about VSAM. Thank you.
> Actually it is strictly related to z/VSE - this system is unknown for me
> (my research told me there were only two installations in Poland).
> For example I don't know what is partition in VSE and how it is differ
> from regular address spaces or just several jobs (in VSE) working with
> same shared VSAM file.
>
> BTW: Few questions
> Where can I read about VSAM SHR (4 x)?
> Was SHR (4 x) available on MVS or its predecessor?
> Is there any "introduction" of VSE disks usage, datasets, and so called
> file system? How is it similar to z/OS?
>
>
>
> However, regarding the subject I sustain that migration to Db2 is worth
> to analyze.
> Of course everything depends on many factors like appliation complexity,
> staff availability, MIPS in use, budget, plans for the future, etc.
>
> --
> 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
>

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


Re: VSAM-RLS and DFSMStvs basic questions

2020-11-01 Thread Joe Monk
"For example I don't know what is partition in VSE and how it is differ
from regular address spaces or just several jobs (in VSE) working with
same shared VSAM file."

Think of the flat 16MB address space, on IBM 370. Now think about a machine
that has say 512K of RAM in that  address space.

So, you might partition that 512K as 64K sub "address spaces". The
difference is that the partitions are fixed amount of memory. You have x
number of foreground partitions (F1-Fx) and 1 background partition (BG). In
DOS/VSE, you have 11 foreground partitions (F1-FB) and 1 background
partition (BG), for a total of 12 partitions. In z/VSE, you can have up to
200 dynamic partitions in addition to the 12 fixed.

VSE uses a system for  Job Scheduling called POWER similar to JES2. That
always runs in F1, and everything else runs under the control of POWER.
Usually VTAM runs in F2, and CICS/ICCF in F3.  That leaves F4-FB for work,
as well as background (BG). Most batch work is done in BG, and it is
usually the largest partition.

So, all that to say, when using VSAM on z/VSE, it is possible for multiple
partitions to have a VSAM file open for update. That is what
shareoption (4) does for you, VSE coordinates the VSAM file access among
the multiple partitions...

Joe



On Sun, Nov 1, 2020 at 6:53 AM R.S.  wrote:

> W dniu 31.10.2020 o 00:40, Joe Monk pisze:
> > Radoslaw,
> >
> > He is asking about shareoption (4 x)  not (x 4) aka cross-region sharing,
> > not cross-system sharing.
> >
> > In VSE, Shareoption(4) allows vsam file sharing among partitions (similar
> > to a z/os address space). VSE manages  that automatically, for the user.
>
> Well, I just learnt something new about VSAM. Thank you.
> Actually it is strictly related to z/VSE - this system is unknown for me
> (my research told me there were only two installations in Poland).
> For example I don't know what is partition in VSE and how it is differ
> from regular address spaces or just several jobs (in VSE) working with
> same shared VSAM file.
>
> BTW: Few questions
> Where can I read about VSAM SHR (4 x)?
> Was SHR (4 x) available on MVS or its predecessor?
> Is there any "introduction" of VSE disks usage, datasets, and so called
> file system? How is it similar to z/OS?
>
>
>
> However, regarding the subject I sustain that migration to Db2 is worth
> to analyze.
> Of course everything depends on many factors like appliation complexity,
> staff availability, MIPS in use, budget, plans for the future, etc.
>
> --
> 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
>

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


Re: OpenVPN certificate with x3270 emulator

2020-11-01 Thread Joe Monk
Whats the issue?

Joe

On Sat, Oct 31, 2020 at 10:50 PM Peter  wrote:

> Hello
>
> Is there anyone in the group who has used OpenVPN certificate with x3270
> emulator. I am trying to find a documentation which helps me to achieve
> this.
>
> Could someone please point me in the right direction ?
>
> Peter
>
> --
> 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: VSAM-RLS and DFSMStvs basic questions

2020-10-30 Thread Joe Monk
Radoslaw,

He is asking about shareoption (4 x)  not (x 4) aka cross-region sharing,
not cross-system sharing.

In VSE, Shareoption(4) allows vsam file sharing among partitions (similar
to a z/os address space). VSE manages  that automatically, for the user.

Joe

On Fri, Oct 30, 2020 at 6:22 PM R.S.  wrote:

> W dniu 30.10.2020 o 23:51, Tony Thigpen pisze:
> > All,
> >
> > I have a z/VSE client that believes it is time to move to z/OS. But,
> > they have one big concern. They have a lot of ShareOption=4 VSAM files.
> >
> > For those that don't know it, ShareOption=4 files on z/VSE "work out
> > of the box" without any need for the application program to perform
> > any enqueue or dequeue. z/VSE automatically performs those functions,
> > unlike z/OS where the application has to handle the enqueue process.
> >
> > In their case, they use shareoption=4 so that they can update VSAM
> > files from batch Cobol programs while at the same time CICS Cobol
> > programs are also updating the files. They don't want to have to
> > change their programs.
> >
> > From my initial research, it appears that this same function can be
> > reproduced on z/OS using DFHSMStvs. (And, it looks like VSAM-RLS is
> > also required to support DFHSMStvs.)
> >
> > Are we going down the right path?
>
> IMHO no.
>
> Some remarks:
> 1. Any migration will require some work to do. Sometimes little less
> effort give you much worse results.
> 2. SHR (x 4) means cross-system sharing. Why it is cross-system? Why
> don't you consolidate it into one system? What are the reasons?
> 3. VSAM RLS is almost free - that means it is not licensed, but it
> require Coupling Facility - even in single system configuration. Such
> kind of Parallel Sysplex. Even when you want to have single CPC, you
> still need CPU engine for CF, that is ICF processor. It is approx. 250k$
> (for big machine). And some memory. However tvs is not necessary. Note:
> tvs is paid, because there are ISV options. And there are some IBM
> add-ons like CICSVR, etc.
> 4. Let's go back to point 1 - maybe it is good time to move from VSAM to
> Db2? Note, there is special software product which allow VSAM
> application to work with Db2 with minimal changes. And of course you
> would have a lot of Db2 advantages over VSAM, and any new development
> could directly interface with Db2, not Db2 under cover of VSAM. Of
> course neither the product, nor Db2 is free, but...
>
>
> --
> 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
>

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


Re: VSAM-RLS and DFSMStvs basic questions

2020-10-30 Thread Joe Monk
"In their case, they use shareoption=4 so that they can update VSAM files
from batch Cobol programs while at the same time CICS Cobol programs are
also updating the files. They don't want to have to change their programs."

How do you plan to make that happen since in usually z/os CICS journals the
changes to VSAM files and can back out updates? What happens if a record
gets updated by CICS and then gets updated by a batch program to a
different value, and then CICS backs out its original change?

Joe

On Fri, Oct 30, 2020 at 5:51 PM Tony Thigpen  wrote:

> All,
>
> I have a z/VSE client that believes it is time to move to z/OS. But,
> they have one big concern. They have a lot of ShareOption=4 VSAM files.
>
> For those that don't know it, ShareOption=4 files on z/VSE "work out of
> the box" without any need for the application program to perform any
> enqueue or dequeue. z/VSE automatically performs those functions, unlike
> z/OS where the application has to handle the enqueue process.
>
> In their case, they use shareoption=4 so that they can update VSAM files
> from batch Cobol programs while at the same time CICS Cobol programs are
> also updating the files. They don't want to have to change their programs.
>
>  From my initial research, it appears that this same function can be
> reproduced on z/OS using DFHSMStvs. (And, it looks like VSAM-RLS is also
> required to support DFHSMStvs.)
>
> Are we going down the right path?
>
>
> Tony Thigpen
>
> --
> 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: How can you change TCAS defaults using the TSOKEYxx PARMLIB member?

2020-10-25 Thread Joe Monk
Yeah ... just start at /asm then scroll down in the list to TSO VTAM (IKT)
and then to IKTCAS54.

Joe

On Sun, Oct 25, 2020 at 8:31 AM David Spiegel 
wrote:

> Hi Joe,
> I got 404 when I tried to click on the last 2 Links.
>
> Regards,
> David
>
> On 2020-10-25 09:04, Joe Monk wrote:
> > Hi Sam,
> >
> > Just a bit of background...
> >
> > If you go here :
> https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.stben.net%2Ffiles%2FMVS_3.8%2Fasm%2Fdata=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=v4lwbphN9UTToLQ7wK1xLpUcnmcl1LoWg2xzBCj%2F55s%3Dreserved=0
> you can find a
> > mostly complete set of routines for MVS 3.8J.
> >
> > In there you will find:
> >
> https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.stben.net%2Ffiles%2FMVS_3.8%2Fasm%2FTSO%2520VTAM%2520data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=m7M0E033aXQvzIIC2HpbsFdSSA%2BW8Cf9R5wJC8pmjjE%3Dreserved=0(IKT)/
> which is the
> > source code for TCAS...
> >
> > And in there you will find
> >
> https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.stben.net%2Ffiles%2FMVS_3.8%2Fasm%2FTSO%2520VTAM%2520data=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=m7M0E033aXQvzIIC2HpbsFdSSA%2BW8Cf9R5wJC8pmjjE%3Dreserved=0(IKT)/IKTCAS54
> which is
> > the TCAS parm processor.
> >
> > If you check the logic you will see that it checks for a ',' to know how
> to
> > continue or to stop processing keywords. This is why all the keywords
> have
> > to come first in the member :)
> >
> > Anyway, a little bit of trivia for you :)
> >
> > Joe
> >
> > On Sun, Oct 25, 2020 at 1:10 AM Sam Golob  wrote:
> >
> >> Dear Folks,
> >>
> >>   Thanks to Joe Monk for getting me the correct information.  First
> >> of all, the parameters, which have to be in "=" format, and not TSO
> >> format with parentheses, must PRECEDE the comments, and all of them,
> >> except the last one, have to be followed by a comma.  For example:
> >>
> >> USERMAX=39,
> >>
> >> RECONLIM=1
> >>
> >> which is written BEFORE the comments.
> >>
> >>   ALSO, I bounced the TSO address space.
> >>
> >> The resulting SHOWTCAS display is:  (CBT File 731 -
> https://nam12.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.cbttape.org%2Fdata=04%7C01%7C%7Cd3dac48eaa1d4215267b08d878e699c2%7C84df9e7fe9f640afb435%7C1%7C0%7C637392279102656730%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000sdata=Wu5oJl7x%2BwzrijrM9%2BNzMDNJugmLYPnQIc93qHKcuw4%3Dreserved=0
> -
> >> Updates page)
> >>
> >> SHOWTCAS - TERMINAL CONTROL ADDRESS SPACE - FIELDS
> >>     --- --- - --
> >> Display of Settings and Addresses having
> >>  to do with the TSOKEYxx PARMLIB member
> >>  at the beginning of the IKTTCAST macro
> >>8-CHARACTER USERID SUPPORT IS: ON
> >>  TCAS ADDRESS: 00C2EDC8
> >>
> >> addr  fieldvalue explanation
> >>   -- ---
> >> +0  TCASID   TCAS Control block identifier
> >> +4  TCASUSEC 0001 Number of active users - HEX
> >>  1Number of active users - DEC
> >> +6  TCASUMAX 0027 TSO Maxusers number - HEX
> >> 39TSO Maxusers number - DEC
> >> +8  TCASACBP  ACB Password
> >>+10  TCASRCON 0001 Reconnect time in minutes - HEX
> >>  1Reconnect time in minutes - DEC
> >>+12  TCASCLSZ 0084 Buffer Size - HEX
> >>132Buffer Size - DEC
> >>+14  TCASHBUF BB80 High Buffer Threshold - HEX
> >>  48000High Buffer Threshold - DEC
> >>+18  TCASLBUF 5DC0 Low Buffer Threshold - HEX
>

Re: SMF to capture user login history

2020-10-25 Thread Joe Monk
Nah. This is standard stuff required by auditors to provide artifacts for
an audit.

Not suspicious at all.

Joe

On Sun, Oct 25, 2020 at 1:11 AM kekronbekron <
02dee3fcae33-dmarc-requ...@listserv.ua.edu> wrote:

> I hope no one encourages this kind of snooping on the list.
> Stinks of an attempt to police working hours.
>
> - KB
>
> ‐‐‐ Original Message ‐‐‐
> On Sunday, October 25, 2020 11:37 AM, Jake Anderson <
> justmainfra...@gmail.com> wrote:
>
> > Hello
> >
> > Cross posted.
> >
> > We have a SMF data for some years and I would like to fetch a user's
> logon
> > history like when he was logged with all time intervals.
> >
> > Is there a sample JCL or process you are following without having to use
> > any third party product to process.
> >
> > Could someone please share any sample if you have and willing to share ?
> >
> > Jake
> >
> >
> 
> >
> > 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: How can you change TCAS defaults using the TSOKEYxx PARMLIB member?

2020-10-25 Thread Joe Monk
Hi Sam,

Just a bit of background...

If you go here : http://www.stben.net/files/MVS_3.8/asm/ you can find a
mostly complete set of routines for MVS 3.8J.

In there you will find:
http://www.stben.net/files/MVS_3.8/asm/TSO%20VTAM%20(IKT)/ which is the
source code for TCAS...

And in there you will find
http://www.stben.net/files/MVS_3.8/asm/TSO%20VTAM%20(IKT)/IKTCAS54 which is
the TCAS parm processor.

If you check the logic you will see that it checks for a ',' to know how to
continue or to stop processing keywords. This is why all the keywords have
to come first in the member :)

Anyway, a little bit of trivia for you :)

Joe

On Sun, Oct 25, 2020 at 1:10 AM Sam Golob  wrote:

> Dear Folks,
>
>  Thanks to Joe Monk for getting me the correct information.  First
> of all, the parameters, which have to be in "=" format, and not TSO
> format with parentheses, must PRECEDE the comments, and all of them,
> except the last one, have to be followed by a comma.  For example:
>
> USERMAX=39,
>
> RECONLIM=1
>
> which is written BEFORE the comments.
>
>  ALSO, I bounced the TSO address space.
>
> The resulting SHOWTCAS display is:  (CBT File 731 - www.cbttape.org -
> Updates page)
>
>SHOWTCAS - TERMINAL CONTROL ADDRESS SPACE - FIELDS
>    --- --- - --
>Display of Settings and Addresses having
> to do with the TSOKEYxx PARMLIB member
> at the beginning of the IKTTCAST macro
>   8-CHARACTER USERID SUPPORT IS: ON
> TCAS ADDRESS: 00C2EDC8
>
> addr  fieldvalue explanation
>   -- ---
>+0  TCASID   TCAS Control block identifier
>+4  TCASUSEC 0001 Number of active users - HEX
> 1Number of active users - DEC
>+6  TCASUMAX 0027 TSO Maxusers number - HEX
>39TSO Maxusers number - DEC
>+8  TCASACBP  ACB Password
>   +10  TCASRCON 0001 Reconnect time in minutes - HEX
> 1Reconnect time in minutes - DEC
>   +12  TCASCLSZ 0084 Buffer Size - HEX
>   132Buffer Size - DEC
>   +14  TCASHBUF BB80 High Buffer Threshold - HEX
> 48000High Buffer Threshold - DEC
>   +18  TCASLBUF 5DC0 Low Buffer Threshold - HEX
> 24000Low Buffer Threshold - DEC
>   +1C  TCASCRSZ 01E0 Screen Size - HEX
>   480Screen Size - DEC
>   +1E  TCASCHNL 04   Maximum Chain Length - HEX
> 4Maximum Chain Length - DEC
>   +1F  TCASENGT 00   ENGTRANS Value 0-Base,1-Ext,2-None
>
>   Thanks very much to all of you for your interest, and thanks, Joe
> Monk, for the correct reply.
>
>   All the best of everything to all of you.
>
> Sincerely, Sam
>
> P.S.  The SHOWTCAS command has an ALL parameter, which will display the
> entire real contents (mostly addresses) in the IKTTCAST macro, with all
> the correct values for your LPAR, below the settings which are displayed
> here.  I figured that most people don't want to see the whole thing.
> They are just interested in the current settings.  So ALL is not the
> default.
>
>
>
> --
> 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: How can you change TCAS defaults using the TSOKEYxx PARMLIB member?

2020-10-24 Thread Joe Monk
Sam ...

Page 761?

https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3SA231380/$file/ieae200_v2r3.pdf

Joe

On Sat, Oct 24, 2020 at 8:07 PM Sam Golob  wrote:

> Dear Folks,
>
>  Clark understood my question correctly.  (Hi Clark--haven't heard
> from you in a while.)
>
>  The PARMLIB command deals with the IKJTSOxx member of PARMLIB.  I'm
> interested in the TSOKEYxx member of PARMLIB which deals with TCAS.
>
>  There doesn't seem to be any member in SYS1.SAMPLIB that deals with
> the correct syntax to code a non-default TSOKEYxx member.
>
>  I did bounce TSO.  I even IPL-ed several times.  I would like some
> help. Thanks
>
>  All the best of everything to all of you.
>
> Sincerely,Sam
>
>
> --
> 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: CSNBHMG - ICSF

2020-10-23 Thread Joe Monk
ICSF 2738 means that you are trying to use a DES key when only AES is
supported, or that you are trying an AES key when only DES is supported.

Check how you are making the call..

Joe

On Fri, Oct 23, 2020 at 9:59 AM Isabel  wrote:

> Hello!
>
> I'm new to ICSF, and in my Installation they want to use the following
> callable service: CSNBHMG, and we have different problems. We are running
> z/OS 2.2, Crypto Express 5 and FMID=HCR77B0
>
> 1) after executing the cobol program that invokes that service, it ended
> with return code = 12 (C). After that I changed the CKDS to a variable
> length one, and I had to add an AES-MK. Therefore I had to maintain a
> second MK (besides DES-MK). After that I downloaded a REXX program that
> invokes that callable service, and it runs OK, but...
>
> 2)  The COBOL program  (made by a developper of our installation) uses a
> Key to calculate the hash with sha-256. This Key (after an ICH408I message
> in the spool), I had to add it in the CSFKEYS class of RACF as a label, and
> I also added the Key to the CKDS with the CSFKGUP Utility. I'm almost sure
> that I didn't write well the operands. After that he run again the program
> ended with a return code=08 and a the reason code:  ICSF 2738 (10040). It
> means that
>
> Key identifiers contain a version number. The version number in a supplied
> key identifier (internal or external) is inconsistent with one or more
> fields in the key identifier, making the key identifier unusable.
>
> *User action*: Use a token containing the required version number.
>
> My questions are:
>
> 1) Why do I have to define that key in RACF and the CKDS that he use to
> calculate the hash?  And I use it without problem in a REXX
> 2) If I have to define the key, with what parameters I have to do it?
>
> Thanks in advance, Andrea
>
> --
> 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: getting XCFAS down

2020-10-18 Thread Joe Monk
What OS are trying to use on Hercules?

Joe

On Sun, Oct 18, 2020 at 1:23 PM raheel nomani 
wrote:

> Hello there,
>
> i am a CS graduate. in the year 1995. and i have never worked on any
> computer other than IBM. Recently (a few weeks ago) I downloaded an
> emulator, called as hercules. for s/390 and s/370 and z/architecture type
> of IBM mainframe machines. till here with me. Now, the problem begins. what
> the documents i downloaded along with the hercules emulator and the TN3270
> client. I can not make head and tail out of it. There are certain commands
> that I understand and can replicate on the hercules. but others. like i
> think i need to allocate storage to make any other headway. But, what to
> do, zilch. HLAS kind of thing is not running but a certain kind of scripts
> specialty that  r 204 kind of command works. but, they are like core dumps.
> what to do with them. hahahaha. I am not on a deadline. so, you can relax.
> but, do help. I kind of think that I can understand any device. I can send
> some info. But what kind of info are you looking for? i can not understand
> that
>
> On Sun, Oct 18, 2020 at 9:05 PM Peter Relson  wrote:
>
> > Fortunately, as the responses showed, the subject request was NOT what
> was
> > appropriate to do.
> > If XCFAS is down, then that z/OS is down, a wait state.
> >
> > Renaming a data set that is in the LNKLST is inappropriate in all cases.
> > LNKLST UNALLOCATE...LNKLST ALLOCATE
> > is intended for a case where you need to deal with an uncataloged data
> set
> > with the same name as a data set in the LNKLST.
> >
> > If you instead use that approach to mess with LNKLST data sets, you are
> in
> > unsupported territory and anything that goes wrong is your fault.
> >
> > It is expected that LNKLST data sets are cataloged.
> >
> > Peter Relson
> > z/OS Core Technology Design
> >
> >
> > --
> > 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: Cbttape - dataset being used

2020-10-16 Thread Joe Monk
David,

There is a ZAP for TASID in File 980 on the CBTTAPE that fixes an issue
under z/os 2.2 and 2.3.

Joe

On Fri, Oct 16, 2020 at 4:55 AM David Crayford  wrote:

> On 2020-10-16 1:43 PM, Tom Conley wrote:
> > On 10/15/2020 10:19 PM, David Crayford wrote:
> >> There's no need to install TASID. The ISPF ISRDDN utility has an ENQ
> >> dialog and is shipped as part of ISPF. From any command line enter
> >> DDLIST;ENQ.
> >>
> >
> > The major advantage to TASID is that it has a switch which will give
> > you the GRS Star information so you can see the ENQ's for all the
> > systems in the SYSPLEX.  That feature, unfortunately, was not included
> > in ISRDDN. ISRDDN will only show you local ENQ's.
> >
> Nice! If you have a requirement for TASID you should download it from
> IBM and not the CBT tape https://www.ibm.com/support/pages/tasid-v521-tool
> .
>
>
> > Regards,
> > Tom Conley
> >
> > --
> > 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: Cbttape - dataset being used

2020-10-14 Thread Joe Monk
You can acquire TASID here:

https://www.ibm.com/support/pages/node/572789

There is a ZAP for it in CBT 981 to fix the initiator display on z/os 2.2
and 2.3

Joe

On Wed, Oct 14, 2020 at 6:22 AM Roberto Halais 
wrote:

> There is a utility called TASID which can give you what you want.
> I don't know if it's in CBT.
> We use it.
>  Select one of the following options:   Version 5.21
>  1 - Address space list5 - Miscellaneous displays
>  2 - System ENQ contention 6 - Current dataset allocations
>  3 - Total system ENQ status   7 - Storage View Facility
>  4 - Initiator Status List 8 - Snapshot
>
> On Wed, Oct 14, 2020 at 2:29 AM Jake Anderson 
> wrote:
>
> > Hello
> >
> > Are there any freeware utility in CBTTAPE to check if a specific dataset
> is
> > being used in parmlibs or proclib or by any batch ?
> >
> > Jake
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
>
> --
> Politics: Poli (many) - tics (blood sucking parasites)
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: IBM splitting into two companies

2020-10-12 Thread Joe Monk
"For example, show me a customer that is running Node.js in
production on z/OS?"

How long has it been since youve been to SHARE?

Joe

On Mon, Oct 12, 2020 at 7:36 AM David Crayford  wrote:

> On 2020-10-12 8:21 PM, Joe Monk wrote:
>
> > IBM has also aggressively added support for newer technologies on System
> z.
> > "All modern stuff runs well on the big box, from Linux to Kubernetes,"
> > Mueller said. "So cloud makes sense when you need infinite compute for
> > AI/ML or storage for Big Data. Then the size nature of the mainframe is
> the
> > problem. But that's the problem with all on-premises IT."
> >
> https://searchcloudcomputing.techtarget.com/news/252478861/Google-Cloud-adds-mainframe-migration-expertise-via-acquisition
> >
> > If you have a low tolerance for BS then why are you spouting it?
>
> All you've done is re-post IBM marketing material. Have you got anything
> original? For example, show me a customer that is running Node.js in
> production on z/OS?
>
>
> > Joe
> >
> >
> >
> >
> >
> > On Mon, Oct 12, 2020 at 5:57 AM David Crayford 
> wrote:
> >
> >> On 2020-10-12 6:41 PM, Bill Johnson wrote:
> >>> Coming from the guy who said he does PayPal, Amazon, & Apple
> >> transactions and doesn’t know those transactions are mainframe
> >> processed through a bank.
> >>
> >> So what? The payments system is not running on a mainframe. Nor is the
> >> mobile payments back-end and all the other infrastructure. Paypal are
> >> moving to GCP
> >> https://cloud.google.com/customers/featured/paypal#the-solution.
> >>
> >> You seem to think I am bashing the mainframe, which I am not. I love the
> >> mainframe. I work on it everyday and have done for 30+ years. But I have
> >> a low tolerance for BS!
> >>
> >>
> >>>
> >>> Sent from Yahoo Mail for iPhone
> >>>
> >>>
> >>> On Monday, October 12, 2020, 5:53 AM, David Crayford <
> >> dcrayf...@gmail.com> wrote:
> >>> On 2020-10-12 12:19 AM, Bill Johnson wrote:
> >>>> Amazon, PayPal, & Apple either have a mainframe (PayPal did when I
> >> interviewed there)
> >>> In what parallel universe did Amazon, Paypal run a mainframe?
> lala-land?
> >>>
> >>> If I google "paypal technology stack" and I don't see a mainframe!
> >>> Mainframes are for running legacy applications written in COBOL, PL/I
> >> etc.
> >>> Paypal is written in Java, Scala, Python and recently replatformed to
> >>> Node.js - JavaScript!
> >>>
> >>> --
> >>> For IBM-MAIN subscribe / signoff / archive access instructions,
> >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>>
> >>>
> >>>
> >>>
> >>> --
> >>> For IBM-MAIN subscribe / signoff / archive access instructions,
> >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: IBM splitting into two companies

2020-10-12 Thread Joe Monk
Mainframes have been running node.js for years. In fact you can run
Linux/390 and z/OS side by side on the same box with LPARs...

"A Forrester survey released in 2019 found that 56% of respondents planned
to increase their mainframe usage over the next two years, while 36%
planned on the same amount of use.

IBM has also aggressively added support for newer technologies on System z.
"All modern stuff runs well on the big box, from Linux to Kubernetes,"
Mueller said. "So cloud makes sense when you need infinite compute for
AI/ML or storage for Big Data. Then the size nature of the mainframe is the
problem. But that's the problem with all on-premises IT."
https://searchcloudcomputing.techtarget.com/news/252478861/Google-Cloud-adds-mainframe-migration-expertise-via-acquisition

If you have a low tolerance for BS then why are you spouting it?

Joe





On Mon, Oct 12, 2020 at 5:57 AM David Crayford  wrote:

> On 2020-10-12 6:41 PM, Bill Johnson wrote:
> > Coming from the guy who said he does PayPal, Amazon, & Apple
> transactions and doesn’t know those transactions are mainframe
> processed through a bank.
>
> So what? The payments system is not running on a mainframe. Nor is the
> mobile payments back-end and all the other infrastructure. Paypal are
> moving to GCP
> https://cloud.google.com/customers/featured/paypal#the-solution.
>
> You seem to think I am bashing the mainframe, which I am not. I love the
> mainframe. I work on it everyday and have done for 30+ years. But I have
> a low tolerance for BS!
>
>
> >
> >
> > Sent from Yahoo Mail for iPhone
> >
> >
> > On Monday, October 12, 2020, 5:53 AM, David Crayford <
> dcrayf...@gmail.com> wrote:
> >
> > On 2020-10-12 12:19 AM, Bill Johnson wrote:
> >> Amazon, PayPal, & Apple either have a mainframe (PayPal did when I
> interviewed there)
> > In what parallel universe did Amazon, Paypal run a mainframe? lala-land?
> >
> > If I google "paypal technology stack" and I don't see a mainframe!
> > Mainframes are for running legacy applications written in COBOL, PL/I
> etc.
> > Paypal is written in Java, Scala, Python and recently replatformed to
> > Node.js - JavaScript!
> >
> > --
> > 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: searching for CP-67 source or microfiche listings

2020-10-05 Thread Joe Monk
Dave,

NSS were on the scene in VM/370 Rel. 6.

Page 132

http://www.bitsavers.org/pdf/ibm/370/VM_370/Release_6/GC20-1807-7_VM370_System_Programmers_Guide_Rel_6_4-81.pdf

Joe

On Mon, Oct 5, 2020 at 2:47 PM David Spiegel 
wrote:

> Hi Mark,
> IIRC, NSSs didn't come on the scene until much later than Vm/370 Rel. 6.
> Did you mean DCSS perhaps?
>
> Regards,
> David
>
> On 2020-10-05 11:00, Mark S Waterbury wrote:
> > Hello, IBM mainframe enthusiasts:
> >
> > Recently we have obtained images of some old tapes containing source
> code for the original Cambridge Monitor System (CMS) from CP-67.
> >
> > We can restore that source under VM/370 Rel. 6 CMS, running on older
> hardware or under the Hercules-390 emulator or the new SIMH IBM360
> simulator (that also simulates non-XA models of S/370).  Several people are
> now working to recreate CMS67 by re-assembling the source code, to geneate
> a nucleus and save it as a "named saved system" under VM/370 Rel. 6, so
> that people can experience what "early CMS" was like, compared to the more
> "modern" VM/370 CMS, (but under VM/370 vs. CP-67), e.g. by logging on to
> VM/370 and typing "IPL CMS67" ...
> >
> > For historical accuracy, the SIMH IBM360 simulator also supports the 360
> model 67, and so we would really like to find a copy of the source code for
> CP.
> >
> > IBM apparently made microfiche listings available for the CP component
> of CP-67, as well as the CMS component. The complete microfiche set for
> CP-67/CMS was IBM form # GYB0-0789-0, or for just the CP-67 listings on
> microfiche, form # GYB0-0592-1, and for CMS microfiche listings only, form
> # GYB0-0593-1.  If anyone can find a copy of microfiche listings for CP-67
> CP, we can re-create the source code from that, using IBM microfiche; some
> shops had "COM" (Computer Output to Microfiche), so perhaps someone may
> still have a copy of those listings in that format.
> >
> > Also, If anyone recalls any IBM customer sites that ran CP-67/CMS back
> in the day, where we might find possibly some old tapes containing those
> source materials, please let me know here on this list, or you can reply
> privately.  (Even better would be to find a copy of the original CP-67/CMS
> distribution tape for 360D-05.2.005, but due to age, etc., this now seems
> less likely.)
> >
> > Thanks in advance for any help with these "computer software
> archaeology" and historical restoration efforts.
> >
> > All the best,
> >
> > Mark S. Waterbury
> >
> > --
> > 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: Working link for current 3270 Data Stream

2020-09-27 Thread Joe Monk
https://www-05.ibm.com/e-business/linkweb/publications/servlet/pbi.wss?CTY=US=SRX=GA23-0059

Joe

On Sat, Sep 26, 2020 at 11:09 PM Seymour J Metz  wrote:

> The URL
> https://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/cn7p4000/CCONTENTS?SHELF=EZ2HW125==19920626112004=AOvVaw284FCQEZQVhAEhwgFFIMTT
> for GA23-0059-07 3270 Data Stream Programmer's Reference
> gives me Internal Server Error. The most recent copy t bitsavers is -4.
> Does anybody have a working URL for the current version?
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: dataset list ISPF =3.4 batch job

2020-09-24 Thread Joe Monk
Sure ...

Run this using ISPF in batch. To execute it for a different
HLQ than your userid: TSO %clstname L(HLQ)


PROC 0 L() G(SAVE)
/* */
/* Quick ISPF save of data set names. This is much quicker */
/* than using OPT 3.4, because it does not do an obtain */
/* for each data set in the list because of STATS(NO). */
/* The dsn created will be USERID.SAVE.DATASETS */
/* */
ISPEXEC CONTROL ERRORS RETURN
ISPEXEC LMDINIT LISTID(LISTID) LEVEL()
ISPEXEC LMDLIST LISTID() OPTION(SAVE) STATS(NO) GROUP()
WRITE COMPLETE!! RETURN CODE WAS 
ISPEXEC LMDFREE LISTID()

Joe

On Thu, Sep 24, 2020 at 11:32 AM Bill Giannelli 
wrote:

> is there a batch job equivalent of ISPF =3.4 dataset list? I want to get a
> total (or at least a list of) tracks for a dataset list.
> thanks
> Bill
>
> --
> 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: Determining program name/number of paramaters from called COBOL program

2020-09-22 Thread Joe Monk
Well, here is the answer to at least part of the puzzle, if not all...

"You can find the name of the calling programs from a COBOL V5 or V6 program
at run time by using the LE service CEETBCK. For more information, see
the z/OS®
Language Environment® Vendor Interfaces."

https://www-01.ibm.com/servers/resourcelink/svc00100.nsf/pages/zOSV2R3SA380688/$file/ceev100_v2r3.pdf

Joe


On Tue, Sep 22, 2020 at 5:42 PM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 22 Sep 2020 21:51:34 +, Farley, Peter x23353 wrote:
>
> >Current Enterprise COBOL compilers (and back as far as I know, even COBOL
> F-level from MVT) always mark the last parameter address in the address
> list with the bit 0 turned on, though I have not researched what current
> ones do if the last parameter is "BY VALUE".
> >
> >Again for current Enterprise COBOL versions, the LE Vendor Interfaces
> manual available in KC has the PPA1 format and in general how to locate it.
> >
> The answer depends on agreement between the designers of the calling
> and called programs.  Lacking such agreement there's no general
> solution.
>
> C programs called by a POSIX shell can rely on argc, but only because
> that's
> specified in the Standard.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Determining program name/number of paramaters from called COBOL program

2020-09-22 Thread Joe Monk
Well, he can always look to the JSCB to determine the caller, right?

Joe

On Tue, Sep 22, 2020 at 4:19 PM Seymour J Metz  wrote:

> The parm list won't tell him who's calling him. I wouldn't be surprised if
> the special cases cover his requirements, but until he spells them out, ...
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Joe Monk 
> Sent: Tuesday, September 22, 2020 4:40 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Determining program name/number of paramaters from called
> COBOL program
>
> yeah ... but R1 should point to the parm list ... and he would calling this
> assembler stub 1st thing so ...
>
> Joe
>
> On Tue, Sep 22, 2020 at 3:23 PM Seymour J Metz  wrote:
>
> > If the data are not in the called programs then chasing the save areas
> > won't find the data. The basic form of a SAVE is just an STM (24 bit) or
> > similar instructions.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> >
> > 
> > From: IBM Mainframe Discussion List  on behalf
> > of Joe Monk 
> > Sent: Tuesday, September 22, 2020 4:16 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Determining program name/number of paramaters from called
> > COBOL program
> >
> > he could work his way back thru the saveareas, no?
> >
> > Joe
> >
> > On Tue, Sep 22, 2020 at 3:05 PM Seymour J Metz  wrote:
> >
> > > Standard linkage conventions don't require branching around an
> eyecatcher
> > > or that they eyecatcher be in a standardized format or even include the
> > > module name. So the question is what special cases does the OP need to
> > > handle.
> > >
> > >
> > > --
> > > Shmuel (Seymour J.) Metz
> > > http://mason.gmu.edu/~smetz3
> > >
> > >
> > > 
> > > From: IBM Mainframe Discussion List  on
> behalf
> > > of Joe Monk 
> > > Sent: Tuesday, September 22, 2020 4:00 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Re: Determining program name/number of paramaters from called
> > > COBOL program
> > >
> > > If it's using standard OS linkage, he could use an assembler routine to
> > do
> > > a traceback and get some of the items.
> > >
> > > The problem will come in if passed by value instead of by reference...
> > >
> > > Joe
> > >
> > > On Tue, Sep 22, 2020 at 2:58 PM Seymour J Metz  wrote:
> > >
> > > > I doubt that it's possible in general, certain special cases are
> > > possible.
> > > >
> > > >
> > > > --
> > > > Shmuel (Seymour J.) Metz
> > > > http://mason.gmu.edu/~smetz3
> > > >
> > > >
> > > > 
> > > > From: IBM Mainframe Discussion List  on
> > behalf
> > > > of Chris Cantrell 
> > > > Sent: Tuesday, September 22, 2020 3:24 PM
> > > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > > Subject: Determining program name/number of paramaters from called
> > COBOL
> > > > program
> > > >
> > > > Hello,
> > > >
> > > > I am hoping someone out there can help me with this 'opportunity'.
> > > >
> > > > In a Z/OS enterprise COBOL environment, I want to be able to retrieve
> > the
> > > > calling program name and the number of parms passed to the called
> > program
> > > > from the called program. In other words, program A is executed in my
> > > batch
> > > > job and it calls program B passing 5 parms in the using statement. I
> > want
> > > > program B to be able to retrieve the program name for program A as
> well
> > > as
> > > > the number of parms that were passed to it.
> > > >
> > > > I think if I could get to the program stack I could probably figure
> it
> > > out
> > > > from there.
> > > >
> > > > Any assistance that any of you could provide would be greatly
> > > appreciated.
> > > >
> > > > Thanks!
> > > >
> > > >
> --
> > > > For IBM-MAIN subscribe / signoff / archive access instructions,
> > >

Re: Determining program name/number of paramaters from called COBOL program

2020-09-22 Thread Joe Monk
yeah ... but R1 should point to the parm list ... and he would calling this
assembler stub 1st thing so ...

Joe

On Tue, Sep 22, 2020 at 3:23 PM Seymour J Metz  wrote:

> If the data are not in the called programs then chasing the save areas
> won't find the data. The basic form of a SAVE is just an STM (24 bit) or
> similar instructions.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Joe Monk 
> Sent: Tuesday, September 22, 2020 4:16 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Determining program name/number of paramaters from called
> COBOL program
>
> he could work his way back thru the saveareas, no?
>
> Joe
>
> On Tue, Sep 22, 2020 at 3:05 PM Seymour J Metz  wrote:
>
> > Standard linkage conventions don't require branching around an eyecatcher
> > or that they eyecatcher be in a standardized format or even include the
> > module name. So the question is what special cases does the OP need to
> > handle.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> >
> > 
> > From: IBM Mainframe Discussion List  on behalf
> > of Joe Monk 
> > Sent: Tuesday, September 22, 2020 4:00 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Determining program name/number of paramaters from called
> > COBOL program
> >
> > If it's using standard OS linkage, he could use an assembler routine to
> do
> > a traceback and get some of the items.
> >
> > The problem will come in if passed by value instead of by reference...
> >
> > Joe
> >
> > On Tue, Sep 22, 2020 at 2:58 PM Seymour J Metz  wrote:
> >
> > > I doubt that it's possible in general, certain special cases are
> > possible.
> > >
> > >
> > > --
> > > Shmuel (Seymour J.) Metz
> > > http://mason.gmu.edu/~smetz3
> > >
> > >
> > > 
> > > From: IBM Mainframe Discussion List  on
> behalf
> > > of Chris Cantrell 
> > > Sent: Tuesday, September 22, 2020 3:24 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Determining program name/number of paramaters from called
> COBOL
> > > program
> > >
> > > Hello,
> > >
> > > I am hoping someone out there can help me with this 'opportunity'.
> > >
> > > In a Z/OS enterprise COBOL environment, I want to be able to retrieve
> the
> > > calling program name and the number of parms passed to the called
> program
> > > from the called program. In other words, program A is executed in my
> > batch
> > > job and it calls program B passing 5 parms in the using statement. I
> want
> > > program B to be able to retrieve the program name for program A as well
> > as
> > > the number of parms that were passed to it.
> > >
> > > I think if I could get to the program stack I could probably figure it
> > out
> > > from there.
> > >
> > > Any assistance that any of you could provide would be greatly
> > appreciated.
> > >
> > > 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
> >
>
> --
> 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: Determining program name/number of paramaters from called COBOL program

2020-09-22 Thread Joe Monk
he could work his way back thru the saveareas, no?

Joe

On Tue, Sep 22, 2020 at 3:05 PM Seymour J Metz  wrote:

> Standard linkage conventions don't require branching around an eyecatcher
> or that they eyecatcher be in a standardized format or even include the
> module name. So the question is what special cases does the OP need to
> handle.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Joe Monk 
> Sent: Tuesday, September 22, 2020 4:00 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Determining program name/number of paramaters from called
> COBOL program
>
> If it's using standard OS linkage, he could use an assembler routine to do
> a traceback and get some of the items.
>
> The problem will come in if passed by value instead of by reference...
>
> Joe
>
> On Tue, Sep 22, 2020 at 2:58 PM Seymour J Metz  wrote:
>
> > I doubt that it's possible in general, certain special cases are
> possible.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> >
> > 
> > From: IBM Mainframe Discussion List  on behalf
> > of Chris Cantrell 
> > Sent: Tuesday, September 22, 2020 3:24 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Determining program name/number of paramaters from called COBOL
> > program
> >
> > Hello,
> >
> > I am hoping someone out there can help me with this 'opportunity'.
> >
> > In a Z/OS enterprise COBOL environment, I want to be able to retrieve the
> > calling program name and the number of parms passed to the called program
> > from the called program. In other words, program A is executed in my
> batch
> > job and it calls program B passing 5 parms in the using statement. I want
> > program B to be able to retrieve the program name for program A as well
> as
> > the number of parms that were passed to it.
> >
> > I think if I could get to the program stack I could probably figure it
> out
> > from there.
> >
> > Any assistance that any of you could provide would be greatly
> appreciated.
> >
> > 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
>

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


Re: Determining program name/number of paramaters from called COBOL program

2020-09-22 Thread Joe Monk
If it's using standard OS linkage, he could use an assembler routine to do
a traceback and get some of the items.

The problem will come in if passed by value instead of by reference...

Joe

On Tue, Sep 22, 2020 at 2:58 PM Seymour J Metz  wrote:

> I doubt that it's possible in general, certain special cases are possible.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Chris Cantrell 
> Sent: Tuesday, September 22, 2020 3:24 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Determining program name/number of paramaters from called COBOL
> program
>
> Hello,
>
> I am hoping someone out there can help me with this 'opportunity'.
>
> In a Z/OS enterprise COBOL environment, I want to be able to retrieve the
> calling program name and the number of parms passed to the called program
> from the called program. In other words, program A is executed in my batch
> job and it calls program B passing 5 parms in the using statement. I want
> program B to be able to retrieve the program name for program A as well as
> the number of parms that were passed to it.
>
> I think if I could get to the program stack I could probably figure it out
> from there.
>
> Any assistance that any of you could provide would be greatly appreciated.
>
> 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


Re: Determining program name/number of paramaters from called COBOL program

2020-09-22 Thread Joe Monk
Language Environment or non-LE?

Joe

On Tue, Sep 22, 2020 at 2:24 PM Chris Cantrell <
chris.cantr...@palmettogba.com> wrote:

> Hello,
>
> I am hoping someone out there can help me with this 'opportunity'.
>
> In a Z/OS enterprise COBOL environment, I want to be able to retrieve the
> calling program name and the number of parms passed to the called program
> from the called program. In other words, program A is executed in my batch
> job and it calls program B passing 5 parms in the using statement. I want
> program B to be able to retrieve the program name for program A as well as
> the number of parms that were passed to it.
>
> I think if I could get to the program stack I could probably figure it out
> from there.
>
> Any assistance that any of you could provide would be greatly appreciated.
>
> Thanks!
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Searching MLPA module

2020-09-21 Thread Joe Monk
"All modules in the PLPA are treated as refreshable, and are not paged-out.
This action reduces the overall paging rate compared with modules in other
libraries."

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae100/plpae.htm

Joe

On Mon, Sep 21, 2020 at 7:57 AM Pommier, Rex 
wrote:

>Unlike PLPA, it is subject to page out.  
>
> Are you saying that PLPA pages are fixed and can't be paged out?  Isn't
> that what the first P in PLPA means - pageable?  The FLPA modules are page
> fixed and not subject to page-outs.
>
> Rex
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Seymour J Metz
> Sent: Friday, September 18, 2020 1:42 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: [External] Re: Searching MLPA module
>
> The MLPA is key zero and it's bad form to put nonrefreshable code there,
> but it is not always read only. Unlike PLPA, it is subject to page out.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> ________
> From: IBM Mainframe Discussion List  on behalf
> of Joe Monk 
> Sent: Friday, September 18, 2020 12:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Searching MLPA module
>
> Thats incorrect.  MLPA is read only.
>
> Joe
>
> On Fri, Sep 18, 2020 at 9:42 AM Itschak Mugzach <
> 0305158ad67d-dmarc-requ...@listserv.ua.edu> wrote:
>
> > MLPA is in CSA and is modifiable while lpa is read only.
> >
> > בתאריך יום ו׳, 18 בספט׳ 2020, 17:17, מאת Peter ‏:
> >
> > > Apology for being ingorant .. if LPA and MLPA are same then why are
> > > they being placed in a different parmlibs ? Aren't any difference
> > > between MLPA and LPA ?
> > >
> > > On Fri, 18 Sep, 2020, 5:56 pm Peter,  wrote:
> > >
> > > > We have a MLPA module from adabas which got loaded But we aren't
> > > > able
> > to
> > > > trace from which dataset it was loaded.
> > > >
> > > > Is there a way to know the dataset name from which or where it is
> > saved ?
> > > >
> > > > On Fri, 18 Sep, 2020, 4:16 pm Itschak Mugzach, <
> > > > 0305158ad67d-dmarc-requ...@listserv.ua.edu> wrote:
> > > >
> > > >> Peter,
> > > >>
> > > >> There are some 3rd party products that load modules to modified
> > > >> LPA
> > (CSA
> > > >> or
> > > >> ECSA) as they start. They do it dynamically so if they don't
> > > >> start,
> > you
> > > >> save the storage.
> > > >>
> > > >> ITschak
> > > >>
> > > >> *| **Itschak Mugzach | Director | SecuriTeam Software **|**
> > > >> IronSphere
> > > >> Platform* *|* *Information Security Continuous Monitoring for
> > > >> Z/OS,
> > > zLinux
> > > >> and IBM I **|  *
> > > >>
> > > >> *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522
> > > >> 986404
> > > >> **|*
> > > >> *Skype**: ItschakMugzach **|* *Web**:
> > > >> http://secure-web.cisco.com/1uYnAuN5Ol9abEOzh6GC-P1tZbk86urrVNMwV
> > > >> jYQIOlgTTKT4QSFQUFWraW13edzSO87wcJpA_vlV83vjhQ6pNhwF_TPNNPinlw5-2
> > > >> OILY5iiPF6DCNEZf4V-snl77CC0ryDjJKX1IXqCSzVhmJyKDOHkeEPJVg5n3quERi
> > > >> 5iKXNa8lPNRGG-nmnINU7l5ZqjQng3vMroYdM7NK9E6v8PUHuVZI_x-Os9BGacDvz
> > > >> UahCMk5zMagXS8ROJaZQrz6y5-pGJViFEhcRs27I7fmMZLvNqMg6NpG-7hBpElMxK
> > > >> W6HcMnUxUawEKd8vBATe_5Yk6i8ofPMrlUQJgXqbkyA_tdm5NN2iHk0LTeqaqQLvN
> > > >> DvmGIHfZWuID3FID6Syv2zm4lihXQEkcf_AZEnOmVCu2hkzgEziOHKxVOokp5hlF5
> > > >> Gs2Y3jvSeTxRhvRxd67TM9/http%3A%2F%2Fwww.Securiteam.co.il  **|*
> > > >>
> > > >>
> > > >>
> > > >>
> > > >>
> > > >> On Fri, Sep 18, 2020 at 3:06 PM Peter Relson 
> > wrote:
> > > >>
> > > >> > 
> > > >> > Is there any utility which can help to search the loaded MLPA
> > module ?
> > > >> > 
> > > >> > What do you mean by "search the loaded MLPA module"?
> > > >> >
> > > >> > A program can use CSVQUERY to locate the address of a module in
> > > >> > LPA (whether PLPA, MLPA, FLPA, or dynamic LPA), just as it can
> > > >> > use LOAD
> > > and
> > > >> > then DELETE 

Re: Searching MLPA module

2020-09-18 Thread Joe Monk
"The MLPA is read-only, unless NOPROT is specified on the MLPA system
parameter."

So, the default is read-only.

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae100/mlpae.htm

Joe

On Fri, Sep 18, 2020 at 1:43 PM Seymour J Metz  wrote:

> The MLPA is key zero and it's bad form to put nonrefreshable code there,
> but it is not always read only. Unlike PLPA, it is subject to page out.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Joe Monk 
> Sent: Friday, September 18, 2020 12:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Searching MLPA module
>
> Thats incorrect.  MLPA is read only.
>
> Joe
>
> On Fri, Sep 18, 2020 at 9:42 AM Itschak Mugzach <
> 0305158ad67d-dmarc-requ...@listserv.ua.edu> wrote:
>
> > MLPA is in CSA and is modifiable while lpa is read only.
> >
> > בתאריך יום ו׳, 18 בספט׳ 2020, 17:17, מאת Peter ‏:
> >
> > > Apology for being ingorant .. if LPA and MLPA are same then why are
> they
> > > being placed in a different parmlibs ? Aren't any difference between
> MLPA
> > > and LPA ?
> > >
> > > On Fri, 18 Sep, 2020, 5:56 pm Peter,  wrote:
> > >
> > > > We have a MLPA module from adabas which got loaded But we aren't able
> > to
> > > > trace from which dataset it was loaded.
> > > >
> > > > Is there a way to know the dataset name from which or where it is
> > saved ?
> > > >
> > > > On Fri, 18 Sep, 2020, 4:16 pm Itschak Mugzach, <
> > > > 0305158ad67d-dmarc-requ...@listserv.ua.edu> wrote:
> > > >
> > > >> Peter,
> > > >>
> > > >> There are some 3rd party products that load modules to modified LPA
> > (CSA
> > > >> or
> > > >> ECSA) as they start. They do it dynamically so if they don't start,
> > you
> > > >> save the storage.
> > > >>
> > > >> ITschak
> > > >>
> > > >> *| **Itschak Mugzach | Director | SecuriTeam Software **|**
> IronSphere
> > > >> Platform* *|* *Information Security Continuous Monitoring for Z/OS,
> > > zLinux
> > > >> and IBM I **|  *
> > > >>
> > > >> *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522
> 986404
> > > >> **|*
> > > >> *Skype**: ItschakMugzach **|* *Web**:
> http://secure-web.cisco.com/1uYnAuN5Ol9abEOzh6GC-P1tZbk86urrVNMwVjYQIOlgTTKT4QSFQUFWraW13edzSO87wcJpA_vlV83vjhQ6pNhwF_TPNNPinlw5-2OILY5iiPF6DCNEZf4V-snl77CC0ryDjJKX1IXqCSzVhmJyKDOHkeEPJVg5n3quERi5iKXNa8lPNRGG-nmnINU7l5ZqjQng3vMroYdM7NK9E6v8PUHuVZI_x-Os9BGacDvzUahCMk5zMagXS8ROJaZQrz6y5-pGJViFEhcRs27I7fmMZLvNqMg6NpG-7hBpElMxKW6HcMnUxUawEKd8vBATe_5Yk6i8ofPMrlUQJgXqbkyA_tdm5NN2iHk0LTeqaqQLvNDvmGIHfZWuID3FID6Syv2zm4lihXQEkcf_AZEnOmVCu2hkzgEziOHKxVOokp5hlF5Gs2Y3jvSeTxRhvRxd67TM9/http%3A%2F%2Fwww.Securiteam.co.il
> **|*
> > > >>
> > > >>
> > > >>
> > > >>
> > > >>
> > > >> On Fri, Sep 18, 2020 at 3:06 PM Peter Relson 
> > wrote:
> > > >>
> > > >> > 
> > > >> > Is there any utility which can help to search the loaded MLPA
> > module ?
> > > >> > 
> > > >> > What do you mean by "search the loaded MLPA module"?
> > > >> >
> > > >> > A program can use CSVQUERY to locate the address of a module in
> LPA
> > > >> > (whether PLPA, MLPA, FLPA, or dynamic LPA), just as it can use
> LOAD
> > > and
> > > >> > then DELETE (CSVQUERY typically has less overhead than that pair
> of
> > > >> > operations).
> > > >> >
> > > >> > 
> > > >> > We have a product which loads via MLPA and we just trying to
> > > understand
> > > >> if
> > > >> > it's possible to load it dynamically without the need of IPL
> > > >> > 
> > > >> > I do not understand this sentence either. Nothing loads "via
> MLPA".
> > > Some
> > > >> > things might require that their parts be in LPA. Is that what you
> > > meant?
> > > >> > If a program wants to put module(s) into LPA it can use the
> CSVDYLPA
> > > >> > macro. If a customer wants to put module(s) in LPA it can use the
> > LPA
> > > >> >

Re: Searching MLPA module

2020-09-18 Thread Joe Monk
Thats incorrect.  MLPA is read only.

Joe

On Fri, Sep 18, 2020 at 9:42 AM Itschak Mugzach <
0305158ad67d-dmarc-requ...@listserv.ua.edu> wrote:

> MLPA is in CSA and is modifiable while lpa is read only.
>
> בתאריך יום ו׳, 18 בספט׳ 2020, 17:17, מאת Peter ‏:
>
> > Apology for being ingorant .. if LPA and MLPA are same then why are they
> > being placed in a different parmlibs ? Aren't any difference between MLPA
> > and LPA ?
> >
> > On Fri, 18 Sep, 2020, 5:56 pm Peter,  wrote:
> >
> > > We have a MLPA module from adabas which got loaded But we aren't able
> to
> > > trace from which dataset it was loaded.
> > >
> > > Is there a way to know the dataset name from which or where it is
> saved ?
> > >
> > > On Fri, 18 Sep, 2020, 4:16 pm Itschak Mugzach, <
> > > 0305158ad67d-dmarc-requ...@listserv.ua.edu> wrote:
> > >
> > >> Peter,
> > >>
> > >> There are some 3rd party products that load modules to modified LPA
> (CSA
> > >> or
> > >> ECSA) as they start. They do it dynamically so if they don't start,
> you
> > >> save the storage.
> > >>
> > >> ITschak
> > >>
> > >> *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
> > >> Platform* *|* *Information Security Continuous Monitoring for Z/OS,
> > zLinux
> > >> and IBM I **|  *
> > >>
> > >> *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404
> > >> **|*
> > >> *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il  **|*
> > >>
> > >>
> > >>
> > >>
> > >>
> > >> On Fri, Sep 18, 2020 at 3:06 PM Peter Relson 
> wrote:
> > >>
> > >> > 
> > >> > Is there any utility which can help to search the loaded MLPA
> module ?
> > >> > 
> > >> > What do you mean by "search the loaded MLPA module"?
> > >> >
> > >> > A program can use CSVQUERY to locate the address of a module in LPA
> > >> > (whether PLPA, MLPA, FLPA, or dynamic LPA), just as it can use LOAD
> > and
> > >> > then DELETE (CSVQUERY typically has less overhead than that pair of
> > >> > operations).
> > >> >
> > >> > 
> > >> > We have a product which loads via MLPA and we just trying to
> > understand
> > >> if
> > >> > it's possible to load it dynamically without the need of IPL
> > >> > 
> > >> > I do not understand this sentence either. Nothing loads "via MLPA".
> > Some
> > >> > things might require that their parts be in LPA. Is that what you
> > meant?
> > >> > If a program wants to put module(s) into LPA it can use the CSVDYLPA
> > >> > macro. If a customer wants to put module(s) in LPA it can use the
> LPA
> > >> > statement of the PROGxx parmlib member or the SETPROG LPA command.
> > >> >
> > >> >
> > >> > Peter Relson
> > >> > z/OS Core Technology Design
> > >> >
> > >> >
> > >> >
> --
> > >> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > >> > send email to lists...@listserv.ua.edu with the message: INFO
> > IBM-MAIN
> > >> >
> > >>
> > >> --
> > >> For IBM-MAIN subscribe / signoff / archive access instructions,
> > >> send email to lists...@listserv.ua.edu with the message: INFO
> IBM-MAIN
> > >>
> > >
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: SMPe ptfs download to USS

2020-09-17 Thread Joe Monk
No,  its because the process uses java...

Joe

On Thu, Sep 17, 2020 at 7:57 AM kekronbekron <
02dee3fcae33-dmarc-requ...@listserv.ua.edu> wrote:

> I could be *completely* wrong .. so ... will wait for the list to correct
> me.
> Think this could be because TCP/IP is built 'in' USS, and therefore the
> ShopZ job, which probably does HTTPS to IBM, needs to get its stuff into
> USS.
>
> - KB
>
> ‐‐‐ Original Message ‐‐‐
> On Thursday, September 17, 2020 6:11 PM, Ron Wells <
> 02ebc63ff5ef-dmarc-requ...@listserv.ua.edu> wrote:
>
> > Because of the trend to regress...
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On Behalf
> Of Bill Giannelli
> >
> > Sent: Thursday, September 17, 2020 5:43 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: SMPe ptfs download to USS
> >
> > ** EXTERNAL EMAIL - USE CAUTION **
> >
> > When I order software maintenance and download it, why does it need to
> go to USS first?
> > thanks
> > Bill
> >
> >
> 
> >
> > For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > Email Disclaimer
> >
> > This E-mail contains confidential information belonging to the sender,
> which may be legally privileged information. This information is intended
> only for the use of the individual or entity addressed above. If you are
> not the intended recipient, or an employee or agent responsible for
> delivering it to the intended recipient, you are hereby notified that any
> disclosure, copying, distribution, or the taking of any action in reliance
> on the contents of the E-mail or attached files is strictly prohibited.
> >
> >
> -
> >
> > 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: z14 ZR1 CE LR LSYSTEM not found

2020-09-14 Thread Joe Monk
Jennifer,

Have you seen these?

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieaf100/ieaf10071.htm

Joe

On Mon, Sep 14, 2020 at 7:05 AM Jennifer McCumber <
0331f2b9a863-dmarc-requ...@listserv.ua.edu> wrote:

> Joe
>
> We are at 2.3
>
> --
> 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: z14 ZR1 CE LR LSYSTEM not found

2020-09-13 Thread Joe Monk
What version of z/os?

Joe

On Sat, Sep 12, 2020 at 11:05 PM Jennifer McCumber <
0331f2b9a863-dmarc-requ...@listserv.ua.edu> wrote:

> Hi
>
> The CSYSTEM and LSYSTEM is an actual status via the service element while
> looking at the channel problem determination of the VCHPD.
>
> The weird part is, the new system can see both the local (itself) and
> connecting system (production) but the current system running production
> can only see the connecting system but not itself.
>
> I've verified the IOCDS and also sent it to IBM to make sure I'm not
> missing something. They have found nothing wrong after checking the SE log
> and the IOCDS from both machines.
>
> When I display the channel on any running lpar (D M=CHP(xx)), I receive
> physical - not operational logical - online.
> I"ve taken the channels offline via MVS commands on all active lpars as
> well as the CFs and then brought them back online but it still won't give
> me a physical online.
>
> I'm at a total loss as to where to go or what to do to fix this issue.
>
> Thanks,
> Jennifer
>
> --
> 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: z14 ZR1 CE LR LSYSTEM not found

2020-09-11 Thread Joe Monk
You might check the fiber path between the buildings. I think the link
budget on a CE LR is only 7db, so if you have some lossy fiber pairs and/or
patches you might be losing too much light.

Reference:
https://www.ibm.com/support/pages/sites/default/files/inline-files/536468_GA23-0367-13.pdf.
- Pages 76 and 82

Joe

On Fri, Sep 11, 2020 at 6:55 AM Jennifer McCumber <
0331f2b9a863-dmarc-requ...@listserv.ua.edu> wrote:

> I am trying to add a second CPC to my environment and I am having an issue
> getting my 2 z14s to connect via CE LR. On the 'new' system I see CSYSTEM
> and LSYSTEM as expected but on the other side (current production) I can
> only see CSYSTEM.
>
> I have cleaned cables, toggled pchids(vchids), wrap tested the ports and
> everything else I can think to do. I am going between buildings using patch
> panels/dark fiber. The SEs are at the same MCL bundle levels. I have sent a
> PMR to IBM, they have reviewed the logs and the IOCDS's on both CPCs but
> have found nothing wrong.
> Does anyone have any suggestions?
> Thank you,
> Jennifer
>
> --
> 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: Architectural Level Sets

2020-09-09 Thread Joe Monk
OS/360 always runs in BC mode.

MVS 3.8J and earlier IPL in BC mode and then change the PSW to EC mode.

Joe

On Wed, Sep 9, 2020 at 4:47 PM Seymour J Metz  wrote:

> In XA mode the problem is the SIO instruction. DOS.360, OS/360, OS/VS,
> etc. don't support SSCH. Does OS/360 need BC when you sysgen for S/370? I'm
> certain;ly not aware of such a dependency in OS/VS or VM.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Lennie Bradshaw <032fff1be9b4-dmarc-requ...@listserv.ua.edu>
> Sent: Wednesday, September 9, 2020 4:56 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Architectural Level Sets
>
> I think this happened with the move to MVS/XA as XA does not recognise a
> BC mode PSW.
> So I guess it was the first machine which did not support architectures
> earlier than MVS/XA.
> I suspect that was the 3081.
>
> All my conjecture of course. Let's see what the IBM oracles tell us.
>
> Lennie Dymoke-Bradshaw
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Mark S Waterbury
> Sent: 09 September 2020 18:35
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Architectural Level Sets
>
> To add to this thread ...
>
> I would like to know at what point during the evolution from S/370 to
> S/370-XA to S/390 to zSeries, did the architecture stop supporting IPL of
> any OS that runs in "BC mode" or that starts out in BC mode, before setting
> up page and segment tables and control registers and then enabling DAT?
>
> In other words, what processor family(s) and specific models in that
> family, if need be, can no longer IPL and run any of the "public domain"
> operating systems from the 1970s to early 1980s?  (DOS/360, OS/360, DOS/VS,
> OS/VS1, OS/VS2, VM/370, TSS/370, etc.)
>
> Thanks in advance.
>
> Mark S. Waterbury
>
> --
> 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: Architectural Level Sets

2020-09-09 Thread Joe Monk
According to this guide, the 3090 could still start in BC mode when in 370
mode. See page 7-6.

http://vtda.org/docs/computing/IBM/Mainframe/Hardware/System/SA22-7121-6_3090ProcComplexFunctionalCharacteristics.pdf

Joe

On Wed, Sep 9, 2020, 16:07 Lennie Bradshaw <
032fff1be9b4-dmarc-requ...@listserv.ua.edu> wrote:

> I think this happened with the move to MVS/XA as XA does not recognise a
> BC mode PSW.
> So I guess it was the first machine which did not support architectures
> earlier than MVS/XA.
> I suspect that was the 3081.
>
> All my conjecture of course. Let's see what the IBM oracles tell us.
>
> Lennie Dymoke-Bradshaw
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Mark S Waterbury
> Sent: 09 September 2020 18:35
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Architectural Level Sets
>
> To add to this thread ...
>
> I would like to know at what point during the evolution from S/370 to
> S/370-XA to S/390 to zSeries, did the architecture stop supporting IPL of
> any OS that runs in "BC mode" or that starts out in BC mode, before setting
> up page and segment tables and control registers and then enabling DAT?
>
> In other words, what processor family(s) and specific models in that
> family, if need be, can no longer IPL and run any of the "public domain"
> operating systems from the 1970s to early 1980s?  (DOS/360, OS/360, DOS/VS,
> OS/VS1, OS/VS2, VM/370, TSS/370, etc.)
>
> Thanks in advance.
>
> Mark S. Waterbury
>
> --
> 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: [OT] Rabies [Was: Ransoming a mainframe disk farm]

2020-09-08 Thread Joe Monk
It is an interesting note that the rabies protocol is post-exposure.

You will get post-exposure treatments on Days 0, 3, 7, and 14.

The treatment on day 0 consists of a globulin shot as well as the vaccine.
The other three are vaccine only.

Joe

On Tue, Sep 8, 2020 at 5:46 AM Robert Prins 
wrote:

> On 2020-09-08 10:15, R.S. wrote:
> > W dniu 08.09.2020 o 14:09, Robert Prins pisze:
> >> On 2020-09-08 07:21, R.S. wrote:
> >>> Well, I sustain my words: the only EFFECTIVE way is to prevent.
> >>> All other ways are recipes what to do after failure happens, to
> minimize the
> >>> impact.
> >>>
> >>> This resembles data loss scenario. What to do when you lost your data?
> The
> >>> answer is AVOID it. Use RAID arrays, remote copies, backups, archive
> copies,
> >>> transaction logs... every mentioned thing will not help you when you
> lost
> >>> your data, it is to help you avoiding data loss.
> >>>
> >>> BTW: The only method for rabies is to immunization (by vaccination).
> There is
> >>> no cure.
> >>
> >> Actually, and obviously this has nothing to do with z/OS, there is a
> tiny
> >> number of people who recovered from rabies, without vaccine.
> >
> > Yes, it is off-topic, but "tiny number" is actually ONE.
> > Jeanne Giese from US, it was in 2003. Another person was Marciano
> Menezes Silva
> > from Brasil, but this case is doubtfully documented and considered as
> not
> > confirmed. All other persons cured using "Milwaukee Protocol" (method
> which
> > helped Jeanne) died.
> > Note, this is not yearly report, this is whole human knowledge since
> dark ages.
> > Only one person is known to survive rabies.
> > Nowadays approx. 15 million people per year are vaccinated. And approx
> 20.000 do
> > not get vaccination early enough (or at all) and die. No cure. In 1990
> the
> > number of victims was approx. 50.000. The main reason of decrease was
> action of
> > preventive vaccination animals, including wild ones.
>
> Way more than one:
>
>
> https://abcnews.go.com/Health/california-girl-us-survive-rabies/story?id=13830407
>
> Probably should be the final message in this thread!
>
> Robert
> --
> 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
>

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


Re: Ransoming a mainframe disk farm

2020-09-07 Thread Joe Monk
I will tell you that when it happened to my client, the "ransom" was
$1million.

It was less expensive to lose a days work. in restoring from backups.

Joe

On Mon, Sep 7, 2020 at 6:53 PM Charles Mills  wrote:

> > It should be a moral decision to *never* pay any ransom, no matter what
> the cost to the business.  Of course that will never fly in reality.
>
> All the InfoSec consultants talk a great game with "never pay" but the
> dirty little secret is that many or most do. In many cases it is not just
> the organization's data, it is the customers' lives. If you were a bank it
> would be great to say "we will never pay" but meanwhile how do your
> customers get their grocery money out of your ATMs?
>
> Charles
>
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Tom Brennan
> Sent: Monday, September 7, 2020 4:32 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Ransoming a mainframe disk farm
>
> While I really like your new term, "ransomwared", I have to disagree
> with the conclusion.  Of course we need to try to prevent the attack,
> but we also need to have some kind of backup to get things at least
> somewhat back to normal.  And that doesn't mean a single backup method
> for all kinds of data.  For example, operating system changes don't
> happen every day, so as long as you get a system back up, it probably
> doesn't matter too much if all the PTF's are applied. DB2 is another
> story if you want something reasonably up-to-date.
>
> Hmm... maybe make a deal with the hacker at half price and only get the
> DB2 datasets back.  Just kidding of course.  It should be a moral
> decision to *never* pay any ransom, no matter what the cost to the
> business.  Of course that will never fly in reality.
>
> --
> 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: Ransoming a mainframe disk farm

2020-09-07 Thread Joe Monk
Let me tell you why it is not such a hypothetical problem...

As we all know, Microsoft now allows under Windows for Linux, Windows
access to Linux datastores. So, imagine I have a mainframe data store
mounted as a Linux FS on a Windows box running Windows for Linux. Now, the
windows box gets ransom'd ... what happens to the Linux FS mounted on the
Windows box?

In case you dont know about it:
https://docs.microsoft.com/en-us/windows/wsl/install-win10

Joe

On Mon, Sep 7, 2020 at 8:47 AM kekronbekron <
02dee3fcae33-dmarc-requ...@listserv.ua.edu> wrote:

> "I see no relationship to the ransomware problem,..."
>
> The whole topic is a hypothetical discussion.. don't know what to say for
> the relation not being understandable.
> Just a thought for damage control..
>
> Obviously, obvious security measures have still let this hypothetical
> problem through (either bypassed or less-than-optimal security measures)..
> so fiddling with user accesses at this point is irrelevant.
>
> Whole world knows how to prevent.. but actually doing it is a whole
> another matter of tools, processes, capabilities, and such.
>
> - KB
>
> ‐‐‐ Original Message ‐‐‐
> On Monday, September 7, 2020 7:08 PM, R.S. 
> wrote:
>
> > W dniu 07.09.2020 o 14:57, kekronbekron pisze:
> >
> > > Makes me wonder.. some network products have a 'total lockdown' mode
> that stops anything network. Like pulling the plug.
> > > IBM can have a similar thing for z/OS TCPIP/SNA networks but I reckon
> it's more effective if a similar lockdown (ugh) feature exists for RACF
> instead.
> > > Of course, this will mean a whole lot of things will now start failing
> (perhaps this feature can also write such lockdown-initiated violations
> into a special report), but it may be worth shuttering things down before
> things can get worse.
> > > Alternatively, storage boxes need to get intelligent with their
> metadata.
> > >
> > > -   KB
> >
> > I see no relationship to the ransomware problem, however in z/OS you can
> > "totally lockdown" any network interface you want. Including offline the
> > device and chpid. And this is IMHO good for Hollywood movies, not as
> > real protection - this "plug out feature" would work ...when? After the
> > hacker started encryption, or just two minutes before? Who/what
> > recognize suspected activity? What if the activity was phony, just to
> > run "plug out feaure"?
> >
> > My advice:
> >
> > 1.  Only authorized users should have connectivity to the mainframe
> > ...and any other resource. No more "any to any" company networks.
> Note:
> > "authorized" in this point has nothing to do with a mainframe. Just
> > Johny the Sysprog can connect to the host, but Jim the secretary
> cannot.
> >
> > 2.  Only authorized users can logon. User, password, maybe MFA. Obvious.
> > 3.  Users are authorized to the resources they need, nothing more. Of
> > course we do not talk about READ to SYS1.HELP, but it is good idea to
> > not allow APF update to any TSO user. This is typical RACF
> > responsibility. Lng story.
> >
> > --
> > 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 

Re: PL/I integer arithmetic

2020-09-07 Thread Joe Monk
"The maximum number of decimal digits allowed is 15. Default precision,
assumed when no specification is made, is (5,0). The internal coded
arithmetic form of decimal fixed-point data is packed decimal. Packed
decimal is stored two digits to the byte, with a sign indication in the
rightmost four bits of the rightmost byte. Consequently, a decimal fixed-point
data item is always stored as an odd number of digits, even though the
declaration of the variable may specify the number of digits (p) as an even
number."

Page 17

http://www.bitsavers.org/pdf/ibm/370/pli/GC33-0009-3_OS_PLI_Language_Reference_Jul74.pdf

Joe

On Mon, Sep 7, 2020 at 8:43 AM Robin Vowels  wrote:

> You think that I am not looking at IBM's PL/I LRM?
>
> On 2020-09-07 23:25, Joe Monk wrote:
> > The answer is here:
> >
> >
> https://www.ibm.com/support/knowledgecenter/SSY2V3_5.2.0/com.ibm.ent.pl1.zos.doc/lr/resarithoprt.html
> >
> > Joe
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: PL/I integers (was: Constant Identifiers)

2020-09-07 Thread Joe Monk
"DECLARE (I, J) FIXED DECIMAL (15);
I = 4; J = 3;
PUT ((I/J*J));"

Well, just doing the math, that should give an answer of 4.

4/3 * 3/1 = 4/1 = 4 ...

Joe

On Mon, Sep 7, 2020 at 9:15 AM Seymour J Metz  wrote:

> Did you read what I wrote? The code you wrote has nothing to do with the
> expression I gave.  How about
>
> DECLARE (I, J) FIXED DECIMAL (15);
> I = 4; J = 3;
> PUT ((I/J*J));
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Robin Vowels 
> Sent: Monday, September 7, 2020 5:49 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: PL/I integers (was: Constant Identifiers)
>
> On 2020-09-07 16:13, Seymour J Metz wrote:
> > PL/I has never had integers.
>
> You are still wrong.
>
> Recently you have made numerous erroneous claims about PL/I.
>
> 4 is an integer in PL/I.
> 3 is an integer in PL/I.
>
> > The arithmetic rules for scaled fixed
> > point are different from those for integers.
>
> Scaled, with a scale factor other than zero and with
> a fractional part, yes, because they are not then integers.
> However, with scale factor of zero, they are integers.
>
> > In integer arithmetic,
> > (4/3)*6 is 6 That's not the result you get in PL/I.
>
> With the following declarations, you'll get the same
> result in PL/I, namely, 6:
> DECLARE (I, J) FIXED DECIMAL (15);
> I = 4; J = 3;
> PUT (I/J);
> will print 6
>
> > 
> > From: IBM Mainframe Discussion List  on
> > behalf of Robin Vowels 
> > Sent: Sunday, September 6, 2020 7:06 PM
> > Subject: Re: Constant Identifiers
> >
> > - Original Message -
> > From: "Seymour J Metz" 
> > To: 
> > Sent: Monday, September 07, 2020 5:33 AM
> >
> >
> >> PL/I doesn't have integers.
> >
> > PL/I has always had integers.
> >
> >> The ratiio 4/3 is FIXED BIN,
> >
> > No it not.  It is FIXED DECIMAL -- as I said a few days ago.
> > And it hasn't changed since.
> >
> >> with some number of bits after the binary point.
> >
> > DECIMAL digits after the decimal point, because the result
> > is FIXED DECIMAL, not binary.
>
> --
> 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: PL/I integer arithmetic

2020-09-07 Thread Joe Monk
The answer is here:

https://www.ibm.com/support/knowledgecenter/SSY2V3_5.2.0/com.ibm.ent.pl1.zos.doc/lr/resarithoprt.html

Joe

On Mon, Sep 7, 2020 at 8:12 AM Robin Vowels  wrote:

> You are looking at the wrong part of the table.
> This discussion is about DECIMAL operands.
> what I wrote is correct for such.
> See Table 15 top entry, for ANS rules for division;
> Table 16 top entry, for IBM rules.
>
> On 2020-09-07 22:19, Joe Monk wrote:
> > Actually it does...
> >
> > Under the IBM suboption:
> >
> >
> >- Nonzero scale factors are permitted in FIXED BIN declarations.
> >
> >
> >- If the result of any precision-handling built-in function (ADD,
> >BINARY, and so on) has FIXED BIN attributes, the specified or
> > implied scale
> >factor can be nonzero.
> >
> > Under the ANS suboption:
> >
> >
> >- Nonzero scale factors are not permitted in FIXED BIN declares.
> >
> >
> >- If the result of any precision-handling built-in function (ADD,
> >BINARY, and so on) has FIXED BIN attributes, the specified or
> > implied scale
> >factor must be zero.
> >
> >
> >
> https://www.ibm.com/support/knowledgecenter/SSZHNR_2.0.0/com.ibm.ent.pl1.zos.doc/pg/rules.html
> >
> > Joe
> >
> > On Mon, Sep 7, 2020 at 12:23 AM Robin Vowels 
> > wrote:
> >
> >> On 2020-09-07 13:05, Joe Monk wrote:
> >> > "No it isn't.  4/3 yields 1.33... to 15 digits,
> >> > and is of precision (15,14)"
> >> >
> >> > Depends on RULES(IBM) or RULES(ANS). If its RULES(IBM) it will never
> be
> >> > integer division.
> >>
> >> It doesn't depend on whether IBM rules or ANS rules are in force.
> >>
> >> What I said it correct for IBM rules also.
> >> The result is always an integer.
> >> See Table 16.
> >> When the operands have maximum precision, the result is integer.
> >>
> >> The formulas for precision and scale factor are exactly the same.
> >>
> >> > If its RULES(ANS) and the operands are unscaled, then it
> >> > will be integer division.
> >> >
> >> > On Sun, Sep 6, 2020 at 7:34 PM Robin Vowels 
> >> > wrote:
> >> >
> >> >> On 2020-09-07 09:35, Joe Monk wrote:
> >> >> > "PL/I doesn't have integers."
> >> >> >
> >> >> > Sorry Shmuel, youre incorrect.
> >> >> >
> >> >> > FIXED BINARY (15,0) is a 2 byte integer and FIXED BINARY (31,0) is
> a 4
> >> >> > byte
> >> >> > integer.
> >> >> >
> >> >> > "The ratiio 4/3 is FIXED BIN,"
> >> >> >
> >> >> > No, its FIXED DECIMAL (1,0)...
> >> >>
> >> >> No it isn't.  4/3 yields 1.33... to 15 digits,
> >> >> and is of precision (15,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: Constant Identifiers

2020-09-07 Thread Joe Monk
Actually it does...

Under the IBM suboption:


   - Nonzero scale factors are permitted in FIXED BIN declarations.


   - If the result of any precision-handling built-in function (ADD,
   BINARY, and so on) has FIXED BIN attributes, the specified or implied scale
   factor can be nonzero.

Under the ANS suboption:


   - Nonzero scale factors are not permitted in FIXED BIN declares.


   - If the result of any precision-handling built-in function (ADD,
   BINARY, and so on) has FIXED BIN attributes, the specified or implied scale
   factor must be zero.


https://www.ibm.com/support/knowledgecenter/SSZHNR_2.0.0/com.ibm.ent.pl1.zos.doc/pg/rules.html

Joe

On Mon, Sep 7, 2020 at 12:23 AM Robin Vowels  wrote:

> On 2020-09-07 13:05, Joe Monk wrote:
> > "No it isn't.  4/3 yields 1.33... to 15 digits,
> > and is of precision (15,14)"
> >
> > Depends on RULES(IBM) or RULES(ANS). If its RULES(IBM) it will never be
> > integer division.
>
> It doesn't depend on whether IBM rules or ANS rules are in force.
>
> What I said it correct for IBM rules also.
> The result is always an integer.
> See Table 16.
> When the operands have maximum precision, the result is integer.
>
> The formulas for precision and scale factor are exactly the same.
>
> > If its RULES(ANS) and the operands are unscaled, then it
> > will be integer division.
> >
> > On Sun, Sep 6, 2020 at 7:34 PM Robin Vowels 
> > wrote:
> >
> >> On 2020-09-07 09:35, Joe Monk wrote:
> >> > "PL/I doesn't have integers."
> >> >
> >> > Sorry Shmuel, youre incorrect.
> >> >
> >> > FIXED BINARY (15,0) is a 2 byte integer and FIXED BINARY (31,0) is a 4
> >> > byte
> >> > integer.
> >> >
> >> > "The ratiio 4/3 is FIXED BIN,"
> >> >
> >> > No, its FIXED DECIMAL (1,0)...
> >>
> >> No it isn't.  4/3 yields 1.33... to 15 digits,
> >> and is of precision (15,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: Constant Identifiers

2020-09-07 Thread Joe Monk
"No, FIXED BIN(15,0) is not an integer, and the precision rules can be very
annoying to those with a Fortran mindset."

Yes it is...

Table 1. Data type definitions for PL/I
Data typeDescriptionPL/I
INT2 A 2-byte signed integer REAL FIXED BINARY (15,0)
INT4 A 4-byte signed integer REAL FIXED BINARY (31,0)

https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ceea300/ceea30016.htm

Joe

On Mon, Sep 7, 2020 at 12:15 AM Seymour J Metz  wrote:

> No, FIXED BIN(15,0) is not an integer, and the precision rules can be very
> annoying to those with a Fortran mindset.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Joe Monk 
> Sent: Sunday, September 6, 2020 7:35 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Constant Identifiers
>
> "PL/I doesn't have integers."
>
> Sorry Shmuel, youre incorrect.
>
> FIXED BINARY (15,0) is a 2 byte integer and FIXED BINARY (31,0) is a 4 byte
> integer.
>
> "The ratiio 4/3 is FIXED BIN,"
>
> No, its FIXED DECIMAL (1,0)...
>
> Joe
>
> On Sun, Sep 6, 2020 at 2:33 PM Seymour J Metz  wrote:
>
> > PL/I doesn't have integers. The ratiio 4/3 is FIXED BIN, with some number
> > of bits after the binary point.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> >
> > 
> > From: IBM Mainframe Discussion List  on behalf
> > of Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
> > Sent: Saturday, September 5, 2020 11:33 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Constant Identifiers
> >
> > On Sat, 5 Sep 2020 08:13:42 +1000, Robin Vowels wrote:
> > >
> > >As for writing formulas, I prefer to follow a well-known formula, thus:
> > >
> > >volume = 4/3 * 3.14159 * radius**3
> > >
> > Beware!  Than might left-associate as:
> > volume = ( 4/3 ) * 3.14159 * radius**3
> > ... and the quotient of integers, 4/3, is 1.
> >
> > >However, if I'm interested in efficiency, I'd prefer
> > >
> > >volume = 4 * 3.14159E0 / 3 * radius**3
> > >
> > ... (and correct.)
> >
> > -- gil
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> --
> 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: Constant Identifiers

2020-09-06 Thread Joe Monk
"No it isn't.  4/3 yields 1.33... to 15 digits,
and is of precision (15,14)"

Depends on RULES(IBM) or RULES(ANS). If its RULES(IBM) it will never be
integer division. If its RULES(ANS) and the operands are unscaled, then it
will be integer division.

Joe

On Sun, Sep 6, 2020 at 7:34 PM Robin Vowels  wrote:

> On 2020-09-07 09:35, Joe Monk wrote:
> > "PL/I doesn't have integers."
> >
> > Sorry Shmuel, youre incorrect.
> >
> > FIXED BINARY (15,0) is a 2 byte integer and FIXED BINARY (31,0) is a 4
> > byte
> > integer.
> >
> > "The ratiio 4/3 is FIXED BIN,"
> >
> > No, its FIXED DECIMAL (1,0)...
>
> No it isn't.  4/3 yields 1.33... to 15 digits,
> and is of precision (15,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: Constant Identifiers

2020-09-06 Thread Joe Monk
"PL/I doesn't have integers."

Sorry Shmuel, youre incorrect.

FIXED BINARY (15,0) is a 2 byte integer and FIXED BINARY (31,0) is a 4 byte
integer.

"The ratiio 4/3 is FIXED BIN,"

No, its FIXED DECIMAL (1,0)...

Joe

On Sun, Sep 6, 2020 at 2:33 PM Seymour J Metz  wrote:

> PL/I doesn't have integers. The ratiio 4/3 is FIXED BIN, with some number
> of bits after the binary point.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
> Sent: Saturday, September 5, 2020 11:33 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Constant Identifiers
>
> On Sat, 5 Sep 2020 08:13:42 +1000, Robin Vowels wrote:
> >
> >As for writing formulas, I prefer to follow a well-known formula, thus:
> >
> >volume = 4/3 * 3.14159 * radius**3
> >
> Beware!  Than might left-associate as:
> volume = ( 4/3 ) * 3.14159 * radius**3
> ... and the quotient of integers, 4/3, is 1.
>
> >However, if I'm interested in efficiency, I'd prefer
> >
> >volume = 4 * 3.14159E0 / 3 * radius**3
> >
> ... (and correct.)
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Ransoming a mainframe disk farm

2020-09-04 Thread Joe Monk
Maze Ransomware ... 'nuff said.

Thank goodness for site-to-site replication.

Joe

On Fri, Sep 4, 2020 at 3:40 PM Jesse 1 Robinson 
wrote:

> Joe, am I reading that this situation actually happened to your VTL
> customer???
>
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office ⇐=== NEW
> robin...@sce.com
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Joe Monk
> Sent: Friday, September 4, 2020 12:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: (External):Re: Ransoming a mainframe disk farm
>
> CAUTION EXTERNAL EMAIL
>
> Skip,
>
> I will tell you what saved one of my customers. When they use a VTL, they
> replicated that VTL to another site. So, when some files got encrypted via
> ransomware, they were able to quickly replicate the files back and re-boot.
>
> Joe
>
> On Fri, Sep 4, 2020 at 1:51 PM Jesse 1 Robinson 
> wrote:
>
> > It’s Friday, so don’t rag on me for venturing into IT fiction. No one
> > has hit us with this challenge (yet), but it could happen.
> >
> > Ransomware is much in the news these days. As unlikely as it might be,
> > some nefarious genius manages to lock you out of your entire disk farm
> > and demands rubies and bitcoin to remove the lock. Meanwhile your shop
> > is out of the water. You have everything meticulously mirrored to
> > another site, but as with any good mirror, the lock has been reflected
> > in your recovery site.
> >
> > The classic mainframe response--short of forking over the
> > ransom--would be to IPL a standalone DSS restore tape, then locate and
> > mount standard offload backup tapes. Restore enough key volumes to IPL
> > a minimal system, then proceed to restore (all) other volumes. It will
> > take a while, but it will work. Eventually.
> >
> > Now consider a smartly modern shop that has taken the advice of a
> > generation of hired gurus and eliminated 'real tape' altogether. No
> > more physical tapes. No more physical tape drives.
> >
> > What would be your sage advice?
> >
> > .
> > .
> > J.O.Skip Robinson
> > Southern California Edison Company
> > Electric Dragon Team Paddler
> > SHARE MVS Program Co-Manager
> > 323-715-0595 Mobile
> > 626-543-6132 Office ⇐=== NEW
> > robin...@sce.com
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Ransoming a mainframe disk farm

2020-09-04 Thread Joe Monk
Skip,

I will tell you what saved one of my customers. When they use a VTL, they
replicated that VTL to another site. So, when some files got encrypted via
ransomware, they were able to quickly replicate the files back and re-boot.

Joe

On Fri, Sep 4, 2020 at 1:51 PM Jesse 1 Robinson 
wrote:

> It’s Friday, so don’t rag on me for venturing into IT fiction. No one has
> hit us with this challenge (yet), but it could happen.
>
> Ransomware is much in the news these days. As unlikely as it might be,
> some nefarious genius manages to lock you out of your entire disk farm and
> demands rubies and bitcoin to remove the lock. Meanwhile your shop is out
> of the water. You have everything meticulously mirrored to another site,
> but as with any good mirror, the lock has been reflected in your recovery
> site.
>
> The classic mainframe response--short of forking over the ransom--would be
> to IPL a standalone DSS restore tape, then locate and mount standard
> offload backup tapes. Restore enough key volumes to IPL a minimal system,
> then proceed to restore (all) other volumes. It will take a while, but it
> will work. Eventually.
>
> Now consider a smartly modern shop that has taken the advice of a
> generation of hired gurus and eliminated 'real tape' altogether. No more
> physical tapes. No more physical tape drives.
>
> What would be your sage advice?
>
> .
> .
> J.O.Skip Robinson
> Southern California Edison Company
> Electric Dragon Team Paddler
> SHARE MVS Program Co-Manager
> 323-715-0595 Mobile
> 626-543-6132 Office ⇐=== NEW
> robin...@sce.com
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Multiple FTP Servers

2020-09-04 Thread Joe Monk
Generally,  for passive FTP/s, the connection is negotiated on port 21 and
then redirected to a higher port.

Joe

On Fri, Sep 4, 2020 at 10:50 AM Roberto Halais 
wrote:

> Listers:
>
> We are converting all our file transfer jobs from FTP to FTPS.
> Our security people insist we do not use port 21 for our FTPS.
> I see no way of adding another port to our current ftp server it listens on
> port 21.
> Question:
> Do I have to create another FTPD server listening on port 9921 (for
> example)?
> Can I have more than one ftp server per tcp/ip stack one listening on port
> 21 and the other on port 9921?
>
> I haven't encountered this before and Google hasn't helped.
>
> Any ideas are welcome.
>
> Roberto
>
> --
> 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: Architectural Level Sets

2020-09-02 Thread Joe Monk
Page 7-31 says the only condition for XA  is the "move-inverse facility"
has to be installed...

http://www.bitsavers.org/pdf/ibm/370/princOps/SA22-7085-1_370-XA_Principles_of_Operation_Jan87.pdf

Joe

On Wed, Sep 2, 2020 at 5:10 AM Seymour J Metz  wrote:

> Strange! The XA PoOps  shows MVCIN as only available in S/370 mode. The
> ESA PoOps shows it as Move-inverse facility, regardless of mode, and
> ESA/390 PoOps shows it as standard.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Tony Thigpen 
> Sent: Tuesday, September 1, 2020 10:28 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Architectural Level Sets
>
> And, to make matters worse, IBM reinstated the MVCIN on later processors
> after having dropped it for at least one machine built after the 43xx
> machines. It works now and has since at least the MP3k.
>
> Tony Thigpen
>
> Jesse 1 Robinson wrote on 9/1/20 9:36 PM:
> > Instructions come and--believe it or not--instructions go. I once read
> some doc on a newly introduced instruction. Don't remember the timeframe
> or the exact instruction, but it came with this interesting comment. This
> instruction, being new, will not cause a problem for existing code unless
> that code expects the instruction *not* to exist. In that case the new
> instruction will do something that the program does not expect. Right. One
> sort-of case occurred in JES2, whose error handling for 3900 printers had
> become increasingly convoluted to the point that the simplest short term
> 'fix' was to force a S0C1 abend and let JES2 internal error routines
> perform recovery using built-in code. This was accomplished by deliberately
> branching to an invalid 'instruction'. JES2 would clean up the printer and
> move on. Unfortunately, the APAR delivering this change branched to
> character data that looked like a packed decimal instruction. So instead of
> S0C1, the resulting S0C7 caused a JES2 abend. Not at all what was intended.
> >
> > As for a vanishing instruction, I once wrote some code using the Move
> Inverse (MVCIN) instruction, which greatly simplified scanning data for a
> terminating character. Apparently MVCIN was introduced on the 4341 (?) but
> not carried forward to subsequent models. So S0C1. A rude shock for a
> clever programmer looking for ingenious solutions.
> >
> >
> >
> >
> >
> > .
> > .
> > J.O.Skip Robinson
> > Southern California Edison Company
> > Electric Dragon Team Paddler
> > SHARE MVS Program Co-Manager
> > 323-715-0595 Mobile
> > 626-543-6132 Office ⇐=== NEW
> > robin...@sce.com
> >
> > -Original Message-
> > From: IBM Mainframe Discussion List  On
> Behalf Of Seymour J Metz
> > Sent: Tuesday, September 1, 2020 5:27 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: (External):Re: Architectural Level Sets
> >
> > CAUTION EXTERNAL EMAIL
> >
> > Well, a S/360 program that depends on getting PIC 06 for an unaligned
> load won't work correctly on a 360/85 or S/370. S/370 supported 2 KiB
> pages, and those are history. MVS/370 uses SIO, whch only exists in S/370
> mode: also history. So carrying an old OS forward has always has issues.
> Sure, IBM could ensure absolute compatibiity for old releaes, but
> TANSTAAFL. Only IBM knows what the extra cost would be, but I guaranty that
> there would be an extra cost.
> >
> > I'm sure that this has been discussed at Share.
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> >
> > 
> > From: IBM Mainframe Discussion List  on
> behalf of Tony Thigpen 
> > Sent: Tuesday, September 1, 2020 5:20 PM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Re: Architectural Level Sets
> >
> > I was thinking more along the lines of things that prevented earlier
> operating systems from even IPLing on newer boxes. Such as z13 is the last
> processor to have ESA/390 mode. I also have it in my head that at some
> point there were changes to the page size and virtual storage tables that
> caused havoc.
> >
> > Tony Thigpen
> >
> > Seymour J Metz wrote on 9/1/20 3:30 PM:
> >> Typically the new features reqiured by a level set were added over
> several generations, and each generation added more than one feature.
> >>
> >>
> >> --
> >> Shmuel (Seymour J.) Metz
> >> http://mason.gmu.edu/~smetz3
> >>
> >>
> >> 
> >> From: IBM Mainframe Discussion List  on
> >> behalf of Tony Thigpen 
> >> Sent: Tuesday, September 1, 2020 3:25 PM
> >> To: IBM-MAIN@LISTSERV.UA.EDU
> >> Subject: Architectural Level Sets
> >>
> >> IBM has had several Architectural Level Set points where there were
> >> significant changes to the CPU that prevented earlier operating
> >> systems from running on them.
> >>
> >> What CPU's were involved with each level, and what was the real
> >> underlying item changed on the CPU that forced a new level? (Let's
> >> keep it limited to z990 

Re: Architectural Level Sets

2020-09-01 Thread Joe Monk
"MVS didn't use 2KiB pages,"

Yes,  MVS 3.8J does use 2KB pages.

Joe

On Tue, Sep 1, 2020 at 7:20 PM Seymour J Metz  wrote:

> MVS didn't use 2KiB pages, so I never paid any attention to whether the
> 4341 or 3081 had them, but MVS/XA required DAS. Access registers came
> later, on the 3090, and were part of ESA.
>
> The 4341 most definitely was not limited to a single address space; It ran
> MVS/SP 1.3 just fine.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Mike Schwab 
> Sent: Tuesday, September 1, 2020 5:25 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Architectural Level Sets
>
> Well, XA+ machines only supported 4K pages / 1M segments and not 2K
> pages / 64K segments.  Then DAS and Access register additions.  The
> 43xx series only supported a single virtual address space, like
> DOS/VSE.  3090s were the only processors to support Vector
> instructions, and op codes were re-used in z series.
>
> On Tue, Sep 1, 2020 at 4:20 PM Tony Thigpen  wrote:
> >
> > I was thinking more along the lines of things that prevented earlier
> > operating systems from even IPLing on newer boxes. Such as z13 is the
> > last processor to have ESA/390 mode. I also have it in my head that at
> > some point there were changes to the page size and virtual storage
> > tables that caused havoc.
> >
> > Tony Thigpen
> >
> > Seymour J Metz wrote on 9/1/20 3:30 PM:
> > > Typically the new features reqiured by a level set were added over
> several generations, and each generation added more than one feature.
> > >
> > >
> > > --
> > > Shmuel (Seymour J.) Metz
> > > http://mason.gmu.edu/~smetz3
> > >
> > >
> > > 
> > > From: IBM Mainframe Discussion List  on
> behalf of Tony Thigpen 
> > > Sent: Tuesday, September 1, 2020 3:25 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Architectural Level Sets
> > >
> > > IBM has had several Architectural Level Set points where there were
> > > significant changes to the CPU that prevented earlier operating systems
> > > from running on them.
> > >
> > > What CPU's were involved with each level, and what was the real
> > > underlying item changed on the CPU that forced a new level? (Let's keep
> > > it limited to z990 and newer.)
> > >
> > >
> > > Tony Thigpen
> > >
> > > --
> > > 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
>
>
>
> --
> 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
>

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


Re: Architectural Level Sets

2020-09-01 Thread Joe Monk
"WTF? DAS requires MVS/SP."

Nope.  :)

It is available via USERMOD in MVS 3.8J.

Joe

On Tue, Sep 1, 2020 at 7:01 PM Seymour J Metz  wrote:

> WTF? DAS requires MVS/SP.
>
> That said, MVS/SP ran just fine on a 4341.
>
>
> --
> Shmuel (Seymour J.) Metz
> http://mason.gmu.edu/~smetz3
>
>
> 
> From: IBM Mainframe Discussion List  on behalf
> of Joe Monk 
> Sent: Tuesday, September 1, 2020 5:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Architectural Level Sets
>
> 370 supported DAS (the code is in MVS3.8J).
>
> 43XX running MVS supported DAS also. 4381 could have up to 64M of main
> storage...
>
> Joe
>
> On Tue, Sep 1, 2020 at 4:26 PM Mike Schwab 
> wrote:
>
> > Well, XA+ machines only supported 4K pages / 1M segments and not 2K
> > pages / 64K segments.  Then DAS and Access register additions.  The
> > 43xx series only supported a single virtual address space, like
> > DOS/VSE.  3090s were the only processors to support Vector
> > instructions, and op codes were re-used in z series.
> >
> > On Tue, Sep 1, 2020 at 4:20 PM Tony Thigpen  wrote:
> > >
> > > I was thinking more along the lines of things that prevented earlier
> > > operating systems from even IPLing on newer boxes. Such as z13 is the
> > > last processor to have ESA/390 mode. I also have it in my head that at
> > > some point there were changes to the page size and virtual storage
> > > tables that caused havoc.
> > >
> > > Tony Thigpen
> > >
> > > Seymour J Metz wrote on 9/1/20 3:30 PM:
> > > > Typically the new features reqiured by a level set were added over
> > several generations, and each generation added more than one feature.
> > > >
> > > >
> > > > --
> > > > Shmuel (Seymour J.) Metz
> > > > http://mason.gmu.edu/~smetz3
> > > >
> > > >
> > > > 
> > > > From: IBM Mainframe Discussion List  on
> > behalf of Tony Thigpen 
> > > > Sent: Tuesday, September 1, 2020 3:25 PM
> > > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > > Subject: Architectural Level Sets
> > > >
> > > > IBM has had several Architectural Level Set points where there were
> > > > significant changes to the CPU that prevented earlier operating
> systems
> > > > from running on them.
> > > >
> > > > What CPU's were involved with each level, and what was the real
> > > > underlying item changed on the CPU that forced a new level? (Let's
> keep
> > > > it limited to z990 and newer.)
> > > >
> > > >
> > > > Tony Thigpen
> > > >
> > > >
> --
> > > > 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
> >
> >
> >
> > --
> > 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
>
> --
> 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: Architectural Level Sets

2020-09-01 Thread Joe Monk
370 supported DAS (the code is in MVS3.8J).

43XX running MVS supported DAS also. 4381 could have up to 64M of main
storage...

Joe

On Tue, Sep 1, 2020 at 4:26 PM Mike Schwab  wrote:

> Well, XA+ machines only supported 4K pages / 1M segments and not 2K
> pages / 64K segments.  Then DAS and Access register additions.  The
> 43xx series only supported a single virtual address space, like
> DOS/VSE.  3090s were the only processors to support Vector
> instructions, and op codes were re-used in z series.
>
> On Tue, Sep 1, 2020 at 4:20 PM Tony Thigpen  wrote:
> >
> > I was thinking more along the lines of things that prevented earlier
> > operating systems from even IPLing on newer boxes. Such as z13 is the
> > last processor to have ESA/390 mode. I also have it in my head that at
> > some point there were changes to the page size and virtual storage
> > tables that caused havoc.
> >
> > Tony Thigpen
> >
> > Seymour J Metz wrote on 9/1/20 3:30 PM:
> > > Typically the new features reqiured by a level set were added over
> several generations, and each generation added more than one feature.
> > >
> > >
> > > --
> > > Shmuel (Seymour J.) Metz
> > > http://mason.gmu.edu/~smetz3
> > >
> > >
> > > 
> > > From: IBM Mainframe Discussion List  on
> behalf of Tony Thigpen 
> > > Sent: Tuesday, September 1, 2020 3:25 PM
> > > To: IBM-MAIN@LISTSERV.UA.EDU
> > > Subject: Architectural Level Sets
> > >
> > > IBM has had several Architectural Level Set points where there were
> > > significant changes to the CPU that prevented earlier operating systems
> > > from running on them.
> > >
> > > What CPU's were involved with each level, and what was the real
> > > underlying item changed on the CPU that forced a new level? (Let's keep
> > > it limited to z990 and newer.)
> > >
> > >
> > > Tony Thigpen
> > >
> > > --
> > > 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
>
>
>
> --
> 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: Dovetail/Kirk Wolf?

2020-09-01 Thread Joe Monk
Dave,

I would encourage you to check whether websockets are enabled on the T:Z
product. If not, nothing to worry about, and you can report the issue to
your security team as mitigated.

Joe

On Tue, Sep 1, 2020 at 6:00 AM Jousma, David <
01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:

> Thanks Kirk,
>
> Totally understand re free z/OS distribution.   Any plans to port a newer
> version?   We've got a lot of time/effort in our Tech support wiki, and all
> the documentation that is in it.   I don’t want to be forced to shut it
> down due to the reported vulnerability.   Is there a RYO path to newer
> version on z/OS with SAF support?
>
>
> _
> Dave Jousma
> AVP | Director, Technology Engineering
>
> Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand
> Rapids, MI 49546
> 616.653.8429  |  fax: 616.653.2717
>
>
> -Original Message-
> From: IBM Mainframe Discussion List  On Behalf
> Of Kirk Wolf
> Sent: Monday, August 31, 2020 5:23 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Dovetail/Kirk Wolf?
>
> **CAUTION EXTERNAL EMAIL**
>
> **DO NOT open attachments or click on links from unknown senders or
> unexpected emails**
>
> I'm fine (and utterly amused that my status might be inferred from my
> cancelled Twitter account :-)
>
> We wanted to look into your Tomcat request from Thursday before responding.
> We do offer a z/OS distribution of Tomcat free without support, so
> sometimes other things take precedence.
> To confirm: Tomcat 8.5.6 is the last z/OS integration build that we
> currently offer.
>
> Kirk Wolf
> Dovetailed Technologies
>
> https://protect2.fireeye.com/url?k=c6be0738-9ae2f337-c6be2da0-0cc47a33347c-7966752b50828413=http://dovetail.com/
>
> On Mon, Aug 31, 2020 at 12:12 PM Dave Jousma <
> 01a0403c5dc1-dmarc-requ...@listserv.ua.edu> wrote:
>
> > Has anyone heard from Kirk Wolf recently?   I don’t see much action on
> his
> > community forum over at dovetail.com either.
> >
> > I ask because we have been running Dovetail’s port of TOMCAT on Z that
> > has the SAF interfaces added to it to house our internal team
> documentation.
> >  We are admittedly behind, but I only see TOMCAT 8.5.6 on Dovetails
> > site, and our security folks have identified a security
> > vulnerability(WebSocket DoS CVE-2020-13935) in all releases older than
> 9.0.37.
> >
> > --
> > 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 **CAUTION
> EXTERNAL EMAIL**
>
> **DO NOT open attachments or click on links from unknown senders or
> unexpected emails**
>
> This e-mail transmission contains information that is confidential and may
> be privileged.   It is intended only for the addressee(s) named above. If
> you receive this e-mail in error, please do not read, copy or disseminate
> it in any manner. If you are not the intended recipient, any disclosure,
> copying, distribution or use of the contents of this information is
> prohibited. Please reply to the message immediately by informing the sender
> that the message was misdirected. After replying, please erase it from your
> computer system. Your assistance in correcting this error is appreciated.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: Mainframe Multi factor authentication possibilities

2020-08-25 Thread Joe Monk
I dont understand how this is supposed to work. 2FA is for ONE user. If you
have many users using one common userid, the system should invalidate any
other user logged on with that. same userid and a different 2FA.

Joe

On Tue, Aug 25, 2020 at 10:42 AM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Tue, 25 Aug 2020 08:50:34 -0500, Mike Schwab wrote:
>
> >Text a six digit number to a list of cell phone numbers?  Add the
> >number to the cell phone number so subtracting the six digit number
> >gives you the last 6 digits of the person's cell phone number?
> >
> Is there an app for that?
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: PF key - one PF key - not responding

2020-08-24 Thread Joe Monk
When youre in EDIT mode, try PFSHOW on the command line. See what it says.

Joe

On Mon, Aug 24, 2020 at 1:22 PM Bob Bridges  wrote:

> While replying to some of the ideas you folks sent me I thought to try
> another one:  I said  works in Outlook, but I forgot to
> distinguish:  It's working in ~my~ Outlook, on my own desktop.  So I just
> went to Outlook on the client's desktop (provided through the VPN), and
> there  works in Outlook but  doesn't.
>
> Clearly the problem a) isn't in my imagination, b) isn't on my own
> hardware somewhere, and c) isn't in any part of the mainframe.  It's gotta
> be in the VPN or on the server side.  I'll still take ideas, but I hereby
> declare this OT for this forum.
>
> ---
> Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
>
> /* Q: What do you call a beautiful woman on a trombonist's arm?  A: A
> tatoo.  -from a collection of musician jokes */
>
> --- On 8/24/2020 9:57 AM, Bob Bridges wrote:
> > This is a really weird one.  My  key is not getting any
> response from ISPF, and before you tell me it must be my keyboard or my PC,
> let me tell you what I've tried so far:
> >
> > In ISPF  is assigned the string "rfind" and  is assigned
> the string "rchange".  I'm in ISPF Edit and attempt the command "c all agt
> own", and start hitting  in order to find and change selected
> instances of "agt" to "own".  Nothing happens.
> >
> > o  I test it by using .  The rfind command works fine.
> >
> > o  I try using the right shift key instead of the left.  No response.
> >
> > o  I hit both shift keys a few times, in case one of them has got
> locked.  Doesn't fix the problem.
> >
> > o  I reboot the PC.  No change.
> >
> > o  Maybe there's something wrong with my ISPF change command; I "HELP"
> to .  Nope,
> > still garners no response
> >
> > o  I type "rchange" manually on the command line; that works, so the
> problem isn't the command, it's
> > that the keystroke isn't being sent.
> >
> > o  I check the keyboard mapping on my emulation; it claims that
>  is mapped to PF21.
> >
> > o  Ok, maybe it's not the keyboard but the PC itself working with  but not .  So in Outlook
> > I mapped both  and  to the '£' character.  Both 
> and  produced '£'.  I
> > conclude the keystroke is being sent.
> >
> > I'm out of ideas.  If the keystroke is being sent by my PC, and the 3270
> emulation is converting it to , why does ISPF not respond to it?  Any
> ideas out there?  I'll take anything, at this point, no matter how unlikely.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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


Re: DFSORT confusion.

2020-08-20 Thread Joe Monk
Another thing you could do is flip the condition...

OUTFIL INCLUDE=(191,1,CH,EQ,C'M')
OMIT COND=(191,1,CH,NE,C'M')

This would include only the M records and then you could easily see (Since
its only about 200 records) what the conditions were doing ... and why they
were selected

Joe

On Thu, Aug 20, 2020 at 7:05 AM John McKown 
wrote:

> On Thu, Aug 20, 2020 at 7:03 AM Joe Monk  wrote:
>
> > What happens if you code the include like this?
> >
> > OUTFIL INCLUDE=(19,1,CH,EQ,C'ABCDEFGHIJKLNOPQRSTUVWXYZ0123456789')
> >
>
> Hum, I don't know why that would be any different, but I might try it if I
> get desperate enough.
>
>
>
> >
> > Joe
> >
> > On Thu, Aug 20, 2020 at 6:27 AM John McKown <
> john.archie.mck...@gmail.com>
> > wrote:
> >
> > > This is on z/OS 1.12 (sorry). A programmer has run two DFSORT jobs with
> > > slightly different control statements which both of us think should
> > result
> > > in the same output. But it does not. One uses the OMIT statement. The
> > other
> > > uses an OUTFIL with a COND. Both use SUM FIELDS=NONE and EQUALS=YES to
> > > remove all duplicate keys, keeping the first record. But the output is
> > > different. The OMIT run has more records. A quick look seems to
> indicate
> > > that OMIT is what he really wants. Here are the DFSOFT messages. I just
> > > can't see why the OMIT has more output. Most likely due to my own lack
> of
> > > understanding.
> > >
> > > === OMIT ===
> > >
> > > 1ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
> > >
> > >  ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE
> > > E5-K70685 E6-K58148 C4-K58148 E7-K70685
> > >  ICE143I 0 BLOCKSET SORT  TECHNIQUE SELECTED
> > >
> > >  ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS,
> > > EXAMPLES AND MORE
> > >  ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 13:41
> > ON
> > > WED AUG 19, 2020 -
> > > 0SORT FIELDS=(13,16,CH,A),EQUALS
> > > 00190001
> > >  SUM FIELDS=NONE
> > > 0021
> > >  OMIT COND=(191,1,CH,EQ,C'M')   DROP M* POLICIES
> > > 00210001
> > >  ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
> > >
> > >  ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE
> > > E5-K70685 E6-K58148 C4-K58148 E7-K70685
> > >  ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT
> > > SELECTED
> > >  ICE088I 0 APH893GI.PS050   ., INPUT LRECL = 12285, BLKSIZE =
> > > 27998, TYPE = VB
> > >  ICE093I 0 MAIN STORAGE = (MAX,38877188,38877188)
> > >
> > >  ICE156I 0 MAIN STORAGE ABOVE 16MB = (38819828,38819828)
> > >
> > >  ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0
> > > ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
> > >  ICE128I 0 OPTIONS:
> > > SIZE=38877188,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=RC16
> > > ,MSGDDN=SYSOUT
> > >  ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO
> > > ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA   ,031),ABCODE=MSG
> > >  ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109
> > > ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
> > >  ICE131I 0 OPTIONS:
> > > TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=64
> > >
> > >  ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE
> > >  ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
> > >  ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX
> > > ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=0
> > >  ICE235I 0 OPTIONS: NULLOUT=RC0
> > >
> > >  ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
> > >
> > >  ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
> > >
> > >  ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
> > >
> > >  ICE750I 0 DC 10419394794 TC 0 CS DSVUU KSZ 20 VSZ 20
> > >
> > >  ICE752I 0 FSZ=10419394794 BC  IGN=0 E  AVG=6143 0  WSP=13535205 C
> > >  DYN=244621 56664
> > >  ICE751I 1 D8-K58148 D4-K59452 EA-K59517 F1-K58148 E8-K70685
> > >
> > >  ICE090I 0 OUTPUT LRECL = 12285, BLKSIZE = 27998, TYPE = VB
> > >
> > >  ICE055I 0 INSERT 0, DELETE 1068329
> > >
> > >  ICE054I 0 RECORDS - IN: 6258994, OUT: 5190665
> > >
> > >  ICE134I 0 NUMBER OF BYTES SORTED: 7993209593
> > >
> > >  ICE253I 0 R

Re: DFSORT confusion.

2020-08-20 Thread Joe Monk
What happens if you code the include like this?

OUTFIL INCLUDE=(19,1,CH,EQ,C'ABCDEFGHIJKLNOPQRSTUVWXYZ0123456789')

Joe

On Thu, Aug 20, 2020 at 6:27 AM John McKown 
wrote:

> This is on z/OS 1.12 (sorry). A programmer has run two DFSORT jobs with
> slightly different control statements which both of us think should result
> in the same output. But it does not. One uses the OMIT statement. The other
> uses an OUTFIL with a COND. Both use SUM FIELDS=NONE and EQUALS=YES to
> remove all duplicate keys, keeping the first record. But the output is
> different. The OMIT run has more records. A quick look seems to indicate
> that OMIT is what he really wants. Here are the DFSOFT messages. I just
> can't see why the OMIT has more output. Most likely due to my own lack of
> understanding.
>
> === OMIT ===
>
> 1ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
>
>  ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE
> E5-K70685 E6-K58148 C4-K58148 E7-K70685
>  ICE143I 0 BLOCKSET SORT  TECHNIQUE SELECTED
>
>  ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS,
> EXAMPLES AND MORE
>  ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 13:41 ON
> WED AUG 19, 2020 -
> 0SORT FIELDS=(13,16,CH,A),EQUALS
> 00190001
>  SUM FIELDS=NONE
> 0021
>  OMIT COND=(191,1,CH,EQ,C'M')   DROP M* POLICIES
> 00210001
>  ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
>
>  ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE
> E5-K70685 E6-K58148 C4-K58148 E7-K70685
>  ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT
> SELECTED
>  ICE088I 0 APH893GI.PS050   ., INPUT LRECL = 12285, BLKSIZE =
> 27998, TYPE = VB
>  ICE093I 0 MAIN STORAGE = (MAX,38877188,38877188)
>
>  ICE156I 0 MAIN STORAGE ABOVE 16MB = (38819828,38819828)
>
>  ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0
> ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
>  ICE128I 0 OPTIONS:
> SIZE=38877188,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=RC16
> ,MSGDDN=SYSOUT
>  ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO
> ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA   ,031),ABCODE=MSG
>  ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109
> ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
>  ICE131I 0 OPTIONS:
> TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=64
>
>  ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE
>  ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
>  ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX
> ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=0
>  ICE235I 0 OPTIONS: NULLOUT=RC0
>
>  ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
>
>  ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
>
>  ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
>
>  ICE750I 0 DC 10419394794 TC 0 CS DSVUU KSZ 20 VSZ 20
>
>  ICE752I 0 FSZ=10419394794 BC  IGN=0 E  AVG=6143 0  WSP=13535205 C
>  DYN=244621 56664
>  ICE751I 1 D8-K58148 D4-K59452 EA-K59517 F1-K58148 E8-K70685
>
>  ICE090I 0 OUTPUT LRECL = 12285, BLKSIZE = 27998, TYPE = VB
>
>  ICE055I 0 INSERT 0, DELETE 1068329
>
>  ICE054I 0 RECORDS - IN: 6258994, OUT: 5190665
>
>  ICE134I 0 NUMBER OF BYTES SORTED: 7993209593
>
>  ICE253I 0 RECORDS SORTED - PROCESSED: 5215434, EXPECTED: 1696417
>
>  ICE098I 0 AVERAGE RECORD LENGTH - PROCESSED: 1532, EXPECTED: 6142
>
>  ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 245055 , TRACKS USED:
> 145365
>  ICE199I 0 MEMORY OBJECT USED AS MAIN STORAGE = 0M BYTES
>
>  ICE299I 0 MEMORY OBJECT USED AS WORK STORAGE = 0M BYTES
>
>  ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
>
>  ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
>
>  ICE052I 0 END OF DFSORT
>
>
> === INCL ===
>
> 1ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
>
>  ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE
> E5-K70685 E6-K58148 C4-K58148 E7-K70685
>  ICE143I 0 BLOCKSET SORT  TECHNIQUE SELECTED
>
>  ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS,
> EXAMPLES AND MORE
>  ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 13:54 ON
> WED AUG 19, 2020 -
> 0SORT FIELDS=(13,16,CH,A),EQUALS
> 00190001
>  SUM FIELDS=NONE
> 0021
>  OUTFIL INCLUDE=(191,1,CH,NE,C'M')   DROP M* POLICIES
>00210001
>  ICE201I H RECORD TYPE IS V - DATA STARTS IN POSITION 5
>
>  ICE751I 0 C5-K62149 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE
> E5-K70685 E6-K58148 C4-K58148 E7-K70685
>  ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT
> SELECTED
>  ICE088I 0 APH893GI.PS050   ., INPUT LRECL = 12285, BLKSIZE =
> 27998, TYPE = VB
>  ICE093I 0 MAIN STORAGE = (MAX,38877188,38877188)
>
>  ICE156I 0 MAIN STORAGE ABOVE 16MB = (38815751,38815751)
>
>  ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0
> ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
>  ICE128I 0 OPTIONS:
> 

Re: Name those boxes

2020-08-18 Thread Joe Monk
The console is an IBM 1415-2, hard to tell, but looks like it is for a 7010
CPU system.

http://ed-thelen.org/comp-hist/IBM-ProdAnn/7010.pdf

Joe

On Mon, Aug 17, 2020 at 11:51 PM Ken Smith  wrote:

> The phone is a Western Electric model 500
> https://en.m.wikipedia.org/wiki/Model_500_telephone
>
> On Tue, Aug 18, 2020 at 12:32 AM Seymour J Metz  wrote:
>
> > There is no 2741 in the picture. The typewriter is part of the 1415.
> >
> >
> >
> >
> >
> > --
> >
> > Shmuel (Seymour J.) Metz
> >
> > http://mason.gmu.edu/~smetz3
> >
> >
> >
> >
> >
> > 
> >
> > From: IBM Mainframe Discussion List  on behalf
> > of Phil Smith III 
> >
> > Sent: Monday, August 17, 2020 10:07 PM
> >
> > To: IBM-MAIN@LISTSERV.UA.EDU
> >
> > Subject: Name those boxes
> >
> >
> >
> >
> >
> https://secure-web.cisco.com/1wkescQogaCLX8ueoKv8kHzmBmghk3VYI8ArOTGMD8PbFT_AcfhqD2o0A9G3F6datv8ROLRHa2cqqkRALje2QbH79Tb0ldDn-Bpko56xBrZAMvTDM77nB1aUT1_X-Ru-H_gCDWXboEvJvGp66tNPt5DDOHVeuo1TfitH8KsbfeKGNtnmtA_ov9bBcb9djDmfmvbTy2ZB7T5mnmCDXwWQ6VMrvHIoXe2X0Ph4ZZJBs1gTIgtxKCAlxfiH6MktaiIATzElHIMReMi-izExYjyGfpqy80hU5EpKSeeAOpYZNhq9Q9gpR_mjikzaNse7d0BW8gS4RxFMoAnR5d-pIAvOE2IoImQGSivF4Poj_lHUTXICPU2riiI5VjMehFThb0X751iX66GpSN3G9EHDSbzmKiPPOdZ8yFiYBMYJdiaN3wEDSfECSo_AnEhSS5nRkYw3OrD2JgYwlVrogAz1nVpBbDw/https%3A%2F%2Fi.redd.it%2Fkd2ebwoovbh51.jpg
> >
> >
> >
> >
> >
> >
> >
> > Best guess so far: 1415, console etc. for 1410. For extra credit,
> identify
> > small box on desk, too (not the phone or the 2741).
> >
> >
> >
> >
> >
> > --
> >
> > 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


  1   2   3   >