Re: Message of the day at 5250 signon

Le 09/11/2022 à 15:12, Rob Berendt a écrit :

Just a thought (after reading the other replies).
How does IBM pop up that message that some other session is getting your messages when you sign on to more than one session? Would adopting that technique work?

Do you mean this message about message queue allocation?

----------------------------------------------------------------------------

                          Display Program Messages

Job 526300/DIMARCO/QPAD143735 started on 11/09/22 at 14:37:35 in subsystem Q
Message queue DIMARCO is allocated to another job.

----------------------------------------------------------------------------


This is an informational message (based on CPF2451 message id) sent by QSYS/QMHCHMSQ program to *EXT special message queue.

----------------------------------------------------------------------------

                           Display Message Details

Message ID . . . . . . :   CPF2451       Severity . . . . . . . :   40
Date sent  . . . . . . :   11/09/22      Time sent  . . . . . . :   14:37:35
Message type . . . . . : Information
From . . . . . . . . . :   DIMARCO       CCSID  . . . . . . . . :   65535

From program . . . . . . . . . : QMHCHMSQ
  From library . . . . . . . . : QSYS
  Instruction  . . . . . . . . : 0AF4

To program . . . . . . . . . . : *EXT

----------------------------------------------------------------------------


Sending such a message could be used to display a MOTD. If it is OK for the OP, he can use my suggestion to replace QSYS/QCMD program in the subsystem routing entry and send this kind of message in place of displaying it through a standard display screen.

Notice that this CPF2451 message is sent by a program while the routing entry program is not yet running. QMHSNDPM is the API to send a message with a similar usage as SNDPGMMSG command.

----------------------------------------------------------------------------

                              Display Call Stack
System:   PUB400
Job:   QPAD143735     User:   DIMARCO        Number: 526300
Thread: 000005EB


Type  Program                  Statement Procedure
      QWTPIIPP   QSYS /02D6
      QMHCHMSQ   QSYS /0AF4
      QMHSNDPM   QSYS /036E
      QMHDSEXT   QSYS /00FB
      QDMACCIN   QSYS /015B

----------------------------------------------------------------------------