Re: SndPgmMsg from qtemp/msgfile fails in batch, OK in interactive -- MIDRANGE-L

On Wednesday, October 22, 2003, at 06:35 AM, G Armour wrote:

  Pgm
      DltMsgF    qTemp/DSPPGRFOBO
        MonMsg     CPF2105  /* object not found */
      CrtMsgF    qTemp/DSPPGRFOBO
      AddMsgD    DPR1234  qTemp/DSPPGRFOBO +
                   Msg( 'DSPPGRFOBO DPR error' ) +
                   Sev( 20 )
      SndPgmMsg  MsgID( DPR1234 ) MsgF( qTemp/DSPPGRFOBO )
  Endpgm

There is nothing special about batch and interactive jobs in this regard. If you run this program in your interactive job and then SIGNOFF *LIST you will see the same behaviour when you look at the spooled joblog.

The job message queue contains reference information about the messages (e.g., message ID, message file, substitution data, etc.) It does not contain the text of the message unless the message is an impromptu message or a request message. This means the message file must exist when the message is displayed. It also means the message ID must be found in that message file when the message is displayed.

The joblog is printed during the job termination phase. QTEMP objects are destroyed before this point. Therefore when the joblog is printed the message cannot be found.

If you interrupt the batch job just before it ends (service it and debug it, or add a DLYJOB command) you can see the DPR1234 message displayed correctly in the joblog.

Do not be confused by the apparent order of the messages in the spooled joblog. When the job is running the messages are added to the job message queue sequentially. Thus: -CALL PGM .... CPF2105 (resulting from DLTMSGF when object does not exist) DPR1234 (resulting from SNDPGMMSG) CPC2191 (resulting from job cleanup deleting the message file in QTEMP) CPF1164 (resulting from normal end of job).

At this point the joblog is spooled and CPF2105 is found in QCPFMSG so it prints. DPR1234 cannot be found because the message file is gone so the system prints different text indicating the problem but still tags it with the original message ID so you know to what it relates. CPC2191 is found in QCPFMSG so it prints. CPF1164 is found in QCPFMSG so it prints too.

Everything is working as expected, God is in her heaven, and all is well with the world (except for certain impoverished corners nobody cares about).

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------