RE: Spool message display

["Martin, Booth" <BoothM@xxxxxxxxxxx>]

Here's the CL I did to make a little pop-up menu.  
&PB1 is the choice on a menu,
&FIELDU is the user name, or *ALL, 
&FIELDP is the printer and also the printer's outq name.  

The one you are asking for is 
DSPMSG MSGQ(thePrinter) 


_____________________________________________________
/* START PRINT WRITER &FIELDP */                   
             IF         COND(&PB1 *EQ 1) THEN(DO)  
             STRPRTWTR  DEV(&FIELDP) OUTQ(&FIELDP) 
             MONMSG     MSGID(CPF3310)             
             ENDDO                                 
                                                   
/* DISPLAY OUTPUT QUEUE &FIELDP   */               
             IF         COND(&PB1 *EQ 2) THEN(DO)  
             WRKOUTQ    OUTQ(&FIELDP)              
             ENDDO                                 
                                                   
/* DISPLAY PRINTER MESSAGES &FIELDP */             
             IF         COND(&PB1 *EQ 3) THEN(DO)  
             DSPMSG     MSGQ(&FIELDP)              
             ENDDO                                 
                                                   
/* DISPLAY spool file       &FIELDP */             
             IF         COND(&PB1 *EQ 4) THEN(DO)  
             WRKSPLF    SELECT(&FIELDU &FIELDP)    
             ENDDO                                 
____________________________________________________
-----Original Message-----
From: Gary Munroe [mailto:GMUNROE@flemingc.on.ca]
Sent: Friday, October 15, 1999 11:07 AM
To: boothm@goddard.edu
Subject: Spool message display


I am wanting to display messages waiting for a spool file as you 
would normally do through an option 7=Message.  Is there a way to 
take the user to that message screen requesting a response?  I have 
the spool information in a program.  We are on V3R2.  I am looking 
for a programming way (sample code?), not a software purchase way.

Thanks in advance!

 ___________________________________________________________________
| Gary Munroe                                                      |
|------------------------------------------------------------------|
| I.T.S., Information Services Group  Work: gmunroe@flemingc.on.ca |
| Sir Sandford Fleming College        Home: izzi@calweb.com        |
| (705) 749-5523 x1409                                             |
|__________________________________________________________________|
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---