John's mod works to eliminate the logo. Still not sure why we never had to do it before. Thanks. .
. . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 626-302-7535 Office 323-715-0595 Mobile [email protected] From: John P Kalinich <[email protected]> To: [email protected], Date: 07/10/2014 09:52 AM Subject: Re: ISPF Copyright Notice Sent by: IBM Mainframe Discussion List <[email protected]> My mod to ISR@PRIM. IF (&ZLOGO = 'YES') /* CK@MJC*/ IF (&ZSPLIT = 'NO') /* Not in split screen @L5A*/ IF (&ZCMD = &Z) /* No command pending @L5A*/ IF (&ZLOGOPAN ^= 'DONE') /* No logo displayed yet @L5A*/ /* .MSG = ISRLO999 Set logo information @L5A*/ /* .RESP = ENTER Simulate enter @L5A*/ Skip Robinson from the IBM Mainframe Discussion List <[email protected]> wrote on 07/10/2014 11:46:33 AM: > Interesting. We also modify ISR@PRIM but never messed with logo logic. > Same usermod for 2.1 as for 1.13, different result. (I use ISPF or PDF > command, not a script.) Need more research. Thanks for the tips. > > From: Elardus Engelbrecht <[email protected]> > To: [email protected], > Date: 07/10/2014 09:13 AM > Subject: Re: ISPF Copyright Notice > Sent by: IBM Mainframe Discussion List <[email protected]> > > > > Skip Robinson wrote: > > >Just bringing up z/OS 2.1. When I enter ISPF, the IBM copyright notice > box shows up on the primary menu. I thought that was only for the first > time, but it displays every time I enter from Ready. Is there an option > I'm missing? > > Easy to fix it. Just simulate an ENTER and you're cured from your allergy > to such nasty copyright pop-ups. > > In my (actually our) primary panel, I *edited* that &ZLOGO to NO: > > )INIT > ... some lame init statements ... > IF (&ZLOGO = 'NO') /* WAS YES - Elardus @L5A*/ > IF (&ZSPLIT = 'NO') /* Not in split screen @L5A*/ > IF (&ZCMD = &Z) /* No command pending @L5A*/ > IF (&ZLOGOPAN ¬= 'DONE') /* No logo displayed yet @L5A*/ > .MSG = ISRLO999 /* Set logo information @L5A*/ > .RESP = ENTER /* Simulate enter @L5A*/ > &ZLOGOPAN = 'DONE' /* @L5A*/ > &ZCLEAN = 'NO' /* @L5A*/ > IF (&ZCMD ¬= &Z) &ZLOGOPAN = 'DONE' /* command pending @L5A*/ > VPUT (ZLOGOPAN) SHARED /* @L5A*/ > IF (&ZSPLIT = 'YES') &ZLOGOPAN = 'DONE' > > Or, in my bookwrangler, I get rid of that pop-up by do this: > > )INIT > .RESP = ENTER > > So, you just simply simulate <ENTER> > > Groete / Greetings > Elardus Engelbrecht ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
