Re: Display a Messsage

[dmosley@xxxxxxxxxx]

Here is a sample of the DSM API QsnWrtDta(), that I was referrring to....
You could even create a *SRVPGM that would simply pass the Text you want
displayed, and everything else would be defaulted...


 * -- Define global variables...
d norm@img        c                   x'20'
d rev@img         c                   x'21'
d hilite@img      c                   x'22'
d red@img         c                   x'28'
d wht@img         c                   x'22'
d blue@img        c                   x'3A'
d bluerev@img     c                   x'3B'
d wrt@txt         s            128    inz
d wrt@txtlen      s              9b 0 inz(78)
d wrt@err         s              8    inz(x'0000000000000000')
d wrt@rtn         s              9b 0 inz

 * ---- Dynamic Screen Aid procedure for writing screen data..
d wrtdta          pr             9b 0 extproc('QsnWrtDta')
d  data                        128
d  datalen                       9b 0
d  fldid                         9b 0 options(*nopass) const
d  row                           9b 0 options(*nopass) const
d  col                           9b 0 options(*nopass) const
d  strmatr                       1    options(*nopass) const
d  endmatr                       1    options(*nopass) const
d  strcatr                       1    options(*nopass) const
d  endcatr                       1    options(*nopass) const
d  cmdbuf                        9b 0 options(*nopass) const
d  env                           9b 0 options(*nopass) const
d  error                         8    options(*nopass)


 * -- Write "In Process" message to screen, before continuing...
c                   eval      wrt@txt = red@img
c                              + 'In Process : '
c                              + wht@img
c                              + 'Compiling List From Search Requests...'
c                              + norm@img
c                   eval      wrt@rtn = wrtdta(wrt@txt: wrt@txtlen: 0:
c                             24: 2: norm@img: norm@img: norm@img: norm@img
c                             : 0 : 0 : wrt@err)



David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---