Dilemma bij mainframe naar Wintel migratie m.b.t. e-mail

[Godjira]

Momenteel is men in ons bedrijf bezig een migratie uit te voeren van mainframe naar Wintel platform. Hierin loop ik echter tegen een probleem aan. Op het mainframe genereert de applicatie *.DAT bestanden welke MIME inhoud hebben. Een dergelijke bestand ziet er als volgt uit:

HELO ***
MAIL FROM: <[e-mail]>
RCPT TO:<[e-mail]>
DATA
FROM: [e-mail]
TO: [e-mail]
DATE: 11 May 2011 16:04
SUBJECT: <subject>
MIME-Version: 1.0
Content-type: multipart/mixed; boundary="grens"
--grens
Beste heer/mevrouw,
.
: Body text
:
: Bijlage informatie
--grens
Content-type: text/plain; charset=us-ascii; name="*****.csv"
:
:
: /* REXX ***********************************************************************/
: /* */
: /* COPY */
: /* */
: /* Parameters: FileVan, FileNaar */
: /* */
: /* Omschrijving: */
: /* */
: /* Maak copie van bestand */
: /* */
: /* Wijzigingen: */
: /* */
: /* Datum Door Omschrijving */
: /* ---------- ---------- -------------------------------------------------- */
: /* 2011/04/22 **** Overgehaald vanuit *************** */
: /* 2011/05/02 **** ***** */
: /* */
: /******************************************************************************/
: arg file_van file_naar
: /* Bepaal bestandsinformatie **************************************************/
: ST = LISTDSI("'"file_van"'")
: /* Lees bestand ***************************************************************/
: "ALLOC DD(I1) DS('"file_van"') SHR REUSE"
: "EXECIO * DISKR I1 (STEM I1. FINIS)"
: "FREE DD(I1)"
: /* Verwijder mogelijke spaties uit recfm */
: /* Schrijf bestand ************************************************************/
: Parse Var sysrecfm p1 p2 p3 p4
: sysrecfm = p1||p2||p3||p4
: call owcdefds file_naar 'DSORG('SYSDSORG') LRECL('SYSLRECL') RECFM('SYSRECFM')',
: 'PROMPT(N) REPL(Y)'
: "ALLOC DD(O1) DS('"file_naar"') OLD REUSE"
: "EXECIO" i1.0 "DISKW O1 (STEM I1. FINIS)"
: "FREE DD(O1)"
: return 0
:
:
--grens--

Mijn mainframe kennis is heel klein. Van collega's heb ik begrepen dat op het mainframe deze bestanden vrij normaal zijn en er programma's zijn die dit kunnen verzenden.

Nu ben ik op zoek naar een programma die dit soort MIME bestanden kan verzenden, maar niet als bijlage (en dat kom ik eigenlijk alleen tegen op Google). Het bestand moet zeg maar gezien worden als een soort command file waarin de commando's staan die uitgevoerd dienen te worden. Het zijn de commando's die je ook zou invoeren wanneer je via telnet praat met een SMTP server.

Uiteraard ben ik op onderzoek uit geweest. Ik kwam programma's tegen als SendMail, BlatMail, en zo nog wel meer soort gelijke command line gebaseerde e-mail programma's. Geen van deze voldoet echter aan de eisen die er gesteld worden.

Heeft iemand hier ervaring mee of weet iemand een programma die aan deze wensen voldoet? Het komt de draaien op een Windows Server 2008 R2 64-bit systeem.

Hopelijk kunnen jullie me op weg helpen.

Alvast bedankt.

[Remco]

Godjira schreef op vrijdag 13 mei 2011 @ 09:53:
Het zijn de commando's die je ook zou invoeren wanneer je via telnet praat met een SMTP server.

Het zijn geen commando's die je zou invoeren als je tegen telnet praat.
Het zijn gewoon IBM mainframe os commands.

Schijnbaar word er door middel van het script een email samengesteld en verstuurd
Wat als je dit script nu eens een text file laat genereren en deze text file als input neemt voor je body van je smtp email ?

[Godjira]

Remco schreef op vrijdag 13 mei 2011 @ 15:33:
[...]

Het zijn geen commando's die je zou invoeren als je tegen telnet praat.
Het zijn gewoon IBM mainframe os commands.

Niet helemaal waar, hoewel ik IBM mainframes niet ken, weet ik wel hoe je via telnet met een SMTP server praat, en de commando's die bovenin dit "script" staan voer je daar ook in om bepaalde data door te geven aan de SMTP server.

Dat terzijde, ben ik helaas geen Rex kenner. Ik zal mijn collega's met meer kennis van mainframes en Rex eens vragen of zij dergelijke scripts aan kunnen passen om een tekst file te genereren, die kan ik m.b.v. standaard tools inderdaad wel invoeren in de body van een e-mail.

Bedankt voor het meedenken, je idee is goed

[S913]

Vanaf het REXX statement halvewege je post is het inderdaad allemaal REXX code en heeft het m.i. op zichzelf helemaal niks met MIME te maken:

code:

ST = LISTDSI("'"file_van"'") >>> Opvragen "Properties" van een bestand (dataset)
ALLOC DD(I1) DS('"file_van"') SHR REUSE >>> Alloceren van een dataset om te lezen (share)
EXECIO * DISKR I1 (STEM I1. FINIS) >>> Lezen van een dataset
FREE DD(I1) >>> Vrijgeven dataset na lezen.
sysrecfm = p1||p2||p3||p4 >>> Record format variabele zetten
call owcdefds file_naar 'DSORG('SYSDSORG') LRECL('SYSLRECL') RECFM('SYSRECFM')', >>> ???
'PROMPT(N) REPL(Y)' >> Afvangen/beantwoorden van een prompt
ALLOC DD(O1) DS('"file_naar"') OLD REUSE" >>> Alloceren van een dataset om naar de schrijven (OLD = append aan bestaande dataset)
EXECIO" i1.0 "DISKW O1 (STEM I1. FINIS) >>> Schrijven van dataset
FREE DD(O1) >>> Vrijgeven dataset na schrijven

Even kort door de bocht, ik ben ook geen REXX specialist, maar dit stuk van je code heeft dus niks met MIME te maken ... Ik weet niet wat die "owcdefds" call is, maar het enige wat ik uit de code halen is het lezen van een dataset, die call en dan het schrijven van een dataset. Maar voor mijn gevoel is dit ook niet de hele REXX code zelf, die wordt normaal gesproken ook niet geexecute vanuit een .dat file.

[Remco]

Godjira schreef op vrijdag 13 mei 2011 @ 22:16:
[...]


Niet helemaal waar, hoewel ik IBM mainframes niet ken, weet ik wel hoe je via telnet met een SMTP server praat, en de commando's die bovenin dit "script" staan voer je daar ook in om bepaalde data door te geven aan de SMTP server.

Klopt, helemaal overheen gelezen