Here is some sample code from ISP.SISPPENU([EMAIL PROTECTED]). Not sure if
this sample is what you are looking for...
IF (&ZLOGO = 'YES') /* [EMAIL PROTECTED]/
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'
_________________________________________________________________
Dave Jousma
Assistant Vice President
Mainframe Services
[EMAIL PROTECTED]
616.653.8429
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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
