RE: Program Status Message

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

>I am trying to get a program to produce a status message on line 24 of its
>display.  In the display, a user hits enter and a job is submitted.  I want
>the submission message to appear on line 24 of the display.

Sounds like a perfect application for a message subfile.  This being a CL
program, you won't need to do a RCV/SND to percolate the status messages up.

A          R RCD                       OVERLAY      
A            DATA          24   B  1  4             
A          R MSGS                      SFL          
A                                      SFLMSGRCD(20)
A            WMSGK                     SFLMSGKEY    
A            WPGMQ                     SFLPGMQ      
A          R MSGC                      SFLCTL(MSGS) 
A                                      LOCK         
A                                      SFLDSP       
A                                      SFLINZ       
A                                      SFLSIZ(0006) 
A                                      SFLPAG(0003) 
A            WPGMQ                     SFLPGMQ      

pgm                                              
                                                 
dclf tstsflmsg                                   
chgvar &WPGMQ 'TSTSFLMSG' /* This CL pgm name */ 
                                                 
sbmjob cmd(dsplib qgpl output(*print)) +         
       job(test) hold(*yes)                      
                                                 
/* informational messages work great, too */     
sndpgmmsg 'My message' topgmq(*same)             
                                                 
sndf    rcdfmt(msgc)                             
sndrcvf rcdfmt(rcd)                              
                                                 
endpgm                                           

Buck Calabro
Commsoft; Albany, NY
"Love truth but pardon error"
  -- Voltaire
Visit the Midrange archives at http://www.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
+---