RE: QMSHNDPM API

On Friday 22 February 2002 5:26 pm, Chris Devous wrote:
> I was actually hoping it would show up in the status line.  If you do
> *EXT, it works like the dsply opcode, rather than the SNDPGMMSG
> command.

Chris

In that case you do need a message subfile.

In the DDS
      *
     A          R MSFL                      SFL
     A                                      SFLMSGRCD(24)
     A            MSGKEY                    SFLMSGKEY
     A            PGM                       SFLPGMQ
      *
     A          R MSFLC                     SFLCTL(MSFL)
     A                                      LOCK
     A                                      OVERLAY
     A                                      SFLSIZ(50) SFLPAG(1)
     A                                      SFLDSP SFLDSPCTL SFLINZ
     A  26
     AON26                                  SFLEND
     A            PGM                       SFLPGMQ

In your RPG

     D                SDS
     D PGM                           10

     C                   WRITE     MSFLC
     C                   EXFMT     SFLCTL

and maybe a call afterwards to clear out the messages from the queue to
avoid them being redisplayed.

Regards, Martin
--
martin@dbg400.net  jamaro@firstlinux.net  http://www.dbg400.net        /"\
DBG/400 - DataBase Generation utilities - AS/400 / iSeries Open        \ /
Source free test environment tools and others (file/spool/misc)         X
[this space for hire]  ASCII Ribbon Campaign against HTML mail & news  / \