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