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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.