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
