Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
Trying to debug email and I ran this command
DSPJRN JRN(QZMF)
OUTPUT(*OUTFILE)
OUTFILE(QTEMP/ZMFSTUFF)
OUTMBR(MAR2)
ENTDTALEN(512)
Now my goal is to find non delivery messages. I've pretty much weeded it
down to:
select substr(joesd,70,30) as MessageText,
substr(joesd,46,6) as MessageDate,
substr(joesd,52,6) as MessageTime,
substr(joesd,58,10) as MessageId
>From Zmfstuff
Where substr(joesd,70,30) like '7G MSGID MAP TO ID%'
Or substr(joesd,70,30) like '7P CRT UNDEL NOTICE OR DSN%'
Actually, you probably don't need the 'Or' since there seems to be a
one-to-one relationship.
Now, I want to use this as a temporary table to join back to the main
table to get more information. Like, here is one row returned by the
above:
MESSAGETEXT MESSAGEDATE MESSAGETIME MESSAGEID
7P CRT UNDEL NOTICE OR DSN 050908 152201 0000005261
I want to see the related messages:
SPECIFIC
DATA
EMLPDF QSPLJOB 870507QZMFSLOGEID 103BDDD0509081522010000005261 *EH
SNDMAIL TO MSF
EMLPDF QSPLJOB 870507QZMFSLOGEID 103BDDD0509081522010000005261 *E1 O
ourgal@xxxxxxxxxxxxxx
EMLPDF QSPLJOB 870507QZMFSLOGEID 103BDDD0509081522010000005261 *E2 R
theirgal@xxxxxxxxxxxxxxxx
EMLPDF QSPLJOB 870507QZMFSLOGEID 103BDDD0509081522010000005261 *EX
/TMP/EMHDR786.TXT
EMLPDF QSPLJOB 870507QZMFSLOGEID 103BDDD0509081522010000005261 *ET
MSG SIZE 45456
EMLPDF QSPLJOB 870507QZMFACRT1ID 103BDDD0509081522010000005261
QMSF QMSF 856912QZMFSLOGPID 103BDDD0509081522010000005261 *P2 R
SMTP MsgFwd theirgal@xxxxxxxxxxxxxxxx
QMSF QMSF 856912QZMFXLOGCID 103BDDD0509081522010000005261 *C6
FWD TO QTMSOUTQ
QMSF QMSF 856912QZMFXLOGCID 103BDDD0509081522010000005261 *C1 O
ourgal@xxxxxxxxxxxxxx
QMSF QMSF 856912QZMFXLOGCID 103BDDD0509081522010000005261 *C2 R
<theirgal@xxxxxxxxxxxxxxxx>
QTSMTPCLTPQTCP 058806QZMFXLOG8ID 103BDDD0509081522010000005261 *8B
QTMSOUTQ TO CLNT
QMSF QMSF 856912QZMFBIGE2ID 103BDDD0509081522010000005261
000010000100000
QTSMTPCLTPQTCP 058806QZMFXLOG8ID 103BDDD0509081522010000005261 *83 U
<theirgal@xxxxxxxxxxxxxxxx>
QTSMTPCLTPQTCP 058806QZMFXLOG8ID 103BDDD0509081522010000005261 *87
CLNT(UNDELV) TO QTMSINQ
QTSMTPBRSRQTCP 857538QZMFXLOG7ID 103BDDD0509081522010000005261 *7A
QTMSINQ TO BRSR
QTSMTPBRSRQTCP 857538QZMFXLOG7ID 103BDDD0509081522010000005261 *7P
CRT UNDEL NOTICE OR DSN
QTSMTPBRSRQTCP 857538QZMFXLOG7ID 103BDDD0509081522010000005261 7H
BRSR TO MSF
QTSMTPBRSRQTCP 857538QZMFXLOG7ID 103BDDD0509081522010000005261 *71 O
@
QTSMTPBRSRQTCP 857538QZMFXLOG7ID 103BDDD0509081522010000005261 *72 R
<ourgal@xxxxxxxxxxxxxx>
QTSMTPBRSRQTCP 857538QZMFXLOG7ID 103BDDD0509081522010000005261 *7G
MSGID MAP TO ID 103BDDD0509081522110000005263
But I can't seem to join using JOIN, or WHERE, on substrings.
with T1 as (
select substr(joesd,70,30) as MessageText,
substr(joesd,46,6) as MessageDate,
substr(joesd,52,6) as MessageTime,
substr(joesd,58,10) as MessageId
From Zmfstuff
Where substr(joesd,70,30) like '7G MSGID MAP TO ID%'
Or substr(joesd,70,30) like '7P CRT UNDEL NOTICE OR DSN%'
)
Select Jodate, jojob, jouser, jonbr, jopgm, joobj, jolib, jombr,
substr(joesd,70,30) as MessageText,
substr(joesd,46,6) as MessageDate,
substr(joesd,52,6) as MessageTime,
substr(joesd,58,10) as MessageId
>From zmfstuff A, T1
Where A.substr(joesd,70,30)=T1.substr(joesd,70,30)
and A.substr(joesd,58,10)=T1.substr(joesd,58,10)
Qualified object name SUBSTR not valid.
with T1 as (
select substr(joesd,70,30) as MessageText,
substr(joesd,46,6) as MessageDate,
substr(joesd,52,6) as MessageTime,
substr(joesd,58,10) as MessageId
From Zmfstuff
Where substr(joesd,70,30) like '7G MSGID MAP TO ID%'
Or substr(joesd,70,30) like '7P CRT UNDEL NOTICE OR DSN%'
)
Select Jodate, jojob, jouser, jonbr, jopgm, joobj, jolib, jombr,
substr(joesd,70,30) as MessageText,
substr(joesd,46,6) as MessageDate,
substr(joesd,52,6) as MessageTime,
substr(joesd,58,10) as MessageId
>From zmfstuff join T1 using (MessageDate, MessageID)
Column MESSAGEDATE not in specified tables.
Rob Berendt
This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.