X'2004' PURGE PCB DEST INVALID

Explanation
 The message is being purged (enqueued to a temporary
destination), and the temporary destination name has not been set
to valid.

Programmer response
 The destination invalid flag (TPCBSMBN) in flag byte TPCBCODE is set on. This flag should have
been reset during processing. If a queue manager buffer (QMBA) is allocated, the message that is
being processed should be in this buffer. Otherwise, the message might have to be located on the
SCRAPLOG data set where it is discarded by the Load function. The timestamp (date and time) of the
message that is being processed is stored in the PST at PSTPRE1, and the timestamp can be used to
locate the message on the SCRAPLOG data set, or in the original message input to IQCSELCT. This is
an internal IMS or QCF error.