Hello,
yes the job owner is in the System Distribution Directory.
Thank you.
Francesco
From:
Finucci Domenico <Domenico.Finucci@xxxxxxxxxxxx>
To:
COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxxxxxxxxx>
Date:
25/10/2011 12.11
Subject:
[COBOL400-L] R: API QtmsCreateSendEmail problem
Hello. I assume you (as job owner) are in the System Distribution
Directory, isnt'it ?
Sorry for silly note.
Sincerely
Domenico
-----Messaggio originale-----
Da: cobol400-l-bounces@xxxxxxxxxxxx [
mailto:cobol400-l-bounces@xxxxxxxxxxxx] Per conto di
francesco.venturini@xxxxxxxxx
Inviato: martedì 25 ottobre 2011 11.41
A: cobol400-l@xxxxxxxxxxxx
Oggetto: [COBOL400-L] API QtmsCreateSendEmail problem
Hi everybody,
i'm trying to use QtmsCreateSendEmail API but IBM documentation is
completely unusefull and can't find help over the internet.
Now my COBOL program doesn't return any error, specificately it returns
the Error Code field as blank value and the job log doesn't record
nothing.
So i'm interpreting my program works fine but email doesn't arrive.
So what's wrong ? Any help for logging or something else ?
I pasted my code following.
Thanks in advance.
WORKING-STORAGE SECTION.
*--- Parametri chiamata 'QtmsCreateSendEmail'.
01 QMTS-RECIPIENT-ARRAY.
03 QMTS-RA-CCSID PIC S9(009) BINARY.
03 QMTS-RA-RECIPIENT-TYPE PIC S9(009) BINARY.
03 QMTS-RA-OFFSET PIC S9(009) BINARY.
03 QMTS-RA-LENGTH PIC S9(009) BINARY.
03 QMTS-RA-RECIPIENT-ADDRESS PIC X(200).
01 QMTS-NUMBER-OF-RECIPIENTS PIC S9(009) BINARY.
01 QMTS-F-NAME-OF-RECIPIENTS PIC X(008).
01 QMTS-NOTE.
03 QMTS-N-INPUT-CCSID PIC S9(009) BINARY.
03 QMTS-N-OFFSET-TO-PASSWORD PIC S9(009) BINARY.
03 QMTS-N-LENGTH-OF-PASSWORD PIC S9(009) BINARY.
03 QMTS-N-OFFSET-TO-SUBJECT PIC S9(009) BINARY.
03 QMTS-N-LENGTH-OF-SUBJECT PIC S9(009) BINARY.
03 QMTS-N-OFFSET-TO-NOTE PIC S9(009) BINARY.
03 QMTS-N-LENGTH-OF-NOTE PIC S9(009) BINARY.
03 QMTS-N-NOTE-SECURITY-LEVEL PIC S9(009) BINARY.
03 QMTS-N-NOTE-CONTENT-TYPE PIC S9(009) BINARY.
03 QMTS-N-PASSWORD-SUBJECT-NOTE PIC X(200).
01 QMTS-F-NAME-OF-NOTE PIC X(008).
01 QMTS-ATTACHMENT-ARRAY.
03 QMTS-AA-INPUT-CCSID PIC S9(009) BINARY.
03 QMTS-AA-OFFSET-TO-FILE-NAME PIC S9(009) BINARY.
03 QMTS-AA-LENGTH-TO-FILE-NAME PIC S9(009) BINARY.
03 QMTS-AA-CONTENT-TYPE PIC S9(009) BINARY.
03 QMTS-AA-FILE-NAME PIC X(200).
01 QMTS-NUMBER-OF-ATTACHMENTS PIC S9(009) BINARY.
01 QMTS-F-NAME-OF-ATTACHMENTS PIC X(008).
01 QMTS-ERROR-CODE PIC X(200).
*----------------------------------------------------------------------*
LINKAGE SECTION.
*======================================================================*
PROCEDURE DIVISION.
A01-MAIN.
*--- Recipient Array.
INITIALIZE QMTS-RECIPIENT-ARRAY.
MOVE 1140 TO QMTS-RA-CCSID.
MOVE 0 TO QMTS-RA-RECIPIENT-TYPE.
MOVE 16 TO QMTS-RA-OFFSET.
MOVE 29 TO QMTS-RA-LENGTH.
MOVE 'francesco.venturini@xxxxxxxxx'
TO QMTS-RA-RECIPIENT-ADDRESS.
MOVE 1 TO QMTS-NUMBER-OF-RECIPIENTS.
MOVE 'RCPT0100' TO QMTS-F-NAME-OF-RECIPIENTS.
*--- Note.
INITIALIZE QMTS-NOTE.
MOVE 1140 TO QMTS-N-INPUT-CCSID.
MOVE 0 TO QMTS-N-OFFSET-TO-PASSWORD.
MOVE 0 TO QMTS-N-LENGTH-OF-PASSWORD.
MOVE 36 TO QMTS-N-OFFSET-TO-SUBJECT.
MOVE 7 TO QMTS-N-LENGTH-OF-SUBJECT.
MOVE 43 TO QMTS-N-OFFSET-TO-NOTE.
MOVE 4 TO QMTS-N-LENGTH-OF-NOTE.
MOVE 0 TO QMTS-N-NOTE-SECURITY-LEVEL.
MOVE 0 TO QMTS-N-NOTE-CONTENT-TYPE.
MOVE 'subjectnote' TO
QMTS-N-PASSWORD-SUBJECT-NOTE.
MOVE 'NOTE0100' TO QMTS-F-NAME-OF-NOTE.
*--- Attachments Array.
INITIALIZE QMTS-ATTACHMENT-ARRAY.
MOVE LOW-VALUE TO QMTS-ATTACHMENT-ARRAY.
MOVE 0 TO QMTS-NUMBER-OF-ATTACHMENTS.
MOVE LOW-VALUE TO QMTS-F-NAME-OF-ATTACHMENTS.
*--- Error.
INITIALIZE QMTS-ERROR-CODE.
CALL PROCEDURE 'QtmsCreateSendEmail'
USING QMTS-RECIPIENT-ARRAY
QMTS-NUMBER-OF-RECIPIENTS
QMTS-F-NAME-OF-RECIPIENTS
QMTS-NOTE
QMTS-F-NAME-OF-NOTE
QMTS-ATTACHMENT-ARRAY
QMTS-NUMBER-OF-ATTACHMENTS
QMTS-F-NAME-OF-ATTACHMENTS
QMTS-ERROR-CODE.
A01-FINE.
GOBACK.
---------------------------------------------------
Francesco Venturini
OCS
Via Sorbanella, 24
25125 - Brescia
Tel. +39 030 210411
Fax. +39 030 2104500
e-mail francesco.venturini@xxxxxxxxx
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/cobol400-l.
Il presente messaggio di posta elettronica e ogni eventuale documento a
quest'ultimo allegato hanno
carattere riservato e sono ad esclusivo utilizzo del destinatario indicato
in indirizzo. Qualora non foste
il destinatario del presente messaggio Vi preghiamo di volerci avvertire
immediatamente tramite posta
elettronica o telefonicamente e di cancellare il presente messaggio e ogni
documento ad esso allegato dal
Vostro sistema. E' vietata la duplicazione o l'utilizzo per qualunque fine
del presente messaggio e di
ogni documento ad esso allegato cosi come la relativa divulgazione,
distribuzione o inoltro a terzi senza
l'espressa autorizzazione del mittente. Il mittente, in ragione del mezzo
di trasmissione utilizzato,
non assume alcuna responsabilità in merito alla segretezza e riservatezza
delle informazioni contenute nel
presente messaggio e nei relativi allegati.
******************************************************************************
This message and any attachments (the "message") are confidential and
intended solely for the addresses.
Any unauthorised use or dissemination is prohibited.
E-mails are susceptible to alteration.
Fiditalia shall not be liable for the message if altered, changed or
falsified.
midrange.com
