Vou colocar aqui o pequeno 'rascunho' que fiz:
SELECT PCLOGALTERACAODADOS.DATA, SUBSTR(PCLOGALTERACAODADOS.OBSERVACOES,1,7),
SUBSTR(PCLOGALTERACAODADOS.VALORALFA,INSTR(PCLOGALTERACAODADOS.VALORALFA,' '),8), PCPRODUT.DESCRICAO,
SUBSTR(PCLOGALTERACAODADOS.OBSERVACOES,INSTR(PCLOGALTERACAODADOS.OBSERVACOES,': ')+2,50), PCPEDC.NUMNOTA,
PCPEDC.CODCLI, PCCLIENT.CLIENTE, PCPEDC.NUMCAR, PCPRODUT.EMBALAGEM, PCPEDC.OBS1, PCPEDC.OBS2, PCPEDC.OBSENTREGA1, PCCARREG.DESTINO,
PCEMPR.NOME, PCPEDC.CONDVENDA, PCPEDC.CODUSUR, PCUSUARI.NOME, PCCARREG.DESTINO,sUBSTR(PCMENS.MENS2,INSTR(PCMENS.MENS2,'VALOR: ')+19,20),
SUBSTR(PCMENS.MENS3,INSTR(PCMENS.MENS3,': ')+2,3), SUBSTR(PCMENS.MENS4,INSTR(PCMENS.MENS4,': ')+2,50)
FROM PCLOGALTERACAODADOS, PCPRODUT, PCPEDC, PCCLIENT, PCCARREG, PCEMPR, PCUSUARI, PCMENS
WHERE PCLOGALTERACAODADOS.OBSERVACOES LIKE '%4009848%'
AND PCPRODUT.CODPROD = SUBSTR(PCLOGALTERACAODADOS.VALORALFA,INSTR(PCLOGALTERACAODADOS.VALORALFA,' '),8)
AND PCPEDC.NUMPED = SUBSTR(PCLOGALTERACAODADOS.OBSERVACOES,INSTR(PCLOGALTERACAODADOS.OBSERVACOES,': ')+2,50)
AND PCPEDC.CODCLI = PCCLIENT.CODCLI
AND PCPEDC.numcar = PCCARREG.NUMCAR
AND PCPEDC.CODUSUR = PCUSUARI.codusur
AND SUBSTR(PCLOGALTERACAODADOS.OBSERVACOES,INSTR(PCLOGALTERACAODADOS.OBSERVACOES,': ')+2,50) = SUBSTR(PCMENS.MENS1,INSTR(PCMENS.MENS1,': ')+2,50)
AND PCMENS.CODFUNCEMITE = PCLOGALTERACAODADOS.codfunc
AND PCPEDC.CODFILIAL IN ('1')
AND PCLOGALTERACAODADOS.codfunc = PCEMPR.MATRICULA
AND PCLOGALTERACAODADOS.VALORALFAANT IS NULL
AND PCLOGALTERACAODADOS.CODROTINA = 336
ORDER BY PCLOGALTERACAODADOS.DATA