FIGURE 1
Exemple d'enregistrement avec des tags HTML
<html><head>
<title>A/R Statement</title>
</head>
<body><center><h2>XYZ Company</h2><h3>Account statement for NAME~
</h3><h4>DATE~
</h4><table><tr><td></td><td>Beginning Balance:</td><td>BEGBAL~
</td></tr>
<tr><td colspan="3"><hr></td></tr><tr><td align="center">
Transaction Date<hr></td><td>Description<hr></td>
<td>Amount<hr></td> </tr>
<tr><td>TRANDATE~
</td><td>TRANDESC~
</td><td>TRANAMOUNT~
</td></tr>
<tr><td colspan="3"><hr></td></tr>
<tr><td></td><td>Ending Balance</td><td>ENDBAL~
</td></tr></table> </center> </body> </html>
FIGURE 2
Fichier maître client (Customer)
A
R PMASTER
A CUSTID 8 COLHDG(‘Customer’ ‘ID’)
A NAME 40 COLHDG(‘Customer’ ‘Name’)
A EMAIL 40 COLHDG(‘E-mail Address’)
A BEGBAL 13 2 COLHDG(‘Account’ ‘Balance’)
A K CUSTID
FIGURE 3
Fichier de transactions client (Customer)
A R PTRANS
A CUSTID 8 COLHDG(‘Customer’ ‘ID’)
A TRANDATE L COLHDG(‘TRANSACTION’ ‘DATE’)
A TRANDESC 40 COLHDG(‘DESCRIPTION’)
A TRANAMOUNT 13 2 COLHDG(‘AMOUNT’)
A K CUSTID
A K TRANDATE
FIGURE 4
Programme ARCSNDEMAL
/* Program ARCSNDEMAL */
/* */
/* Program receives as input a customer ID, beginning date, and */
/* ending date. Then calls ARREMAIL, which will format a file in */
/* HTML code containing the monthly A/R statement for the customer. */
/* If the customer ID is invalid, an error message will be returned. */
/* Otherwise, the document created is sent as an e-mail */
/* attachment to the customer. */
PGM PARM(&CUSTID &DATBEG &DATEND &ERRMSG)
DCL VAR(&DATEND) TYPE(*CHAR) LEN(10)
DCL VAR(&DATBEG) TYPE(*CHAR) LEN(10)
DCL VAR(&CUSTID) TYPE(*CHAR) LEN(8)
DCL VAR(&ERRMSG) TYPE(*CHAR) LEN(20)
DCL VAR(&EMAIL) TYPE(*CHAR) LEN(40)
DCL VAR(&ATC) TYPE(*CHAR) LEN(40)
CLRPFM HTMLDATA
CALL PGM(ARREMAIL) PARM(&CUSTID &DATBEG &DATEND +
&ERRMSG &EMAIL)
IF COND(&ERRMSG = ' ') THEN(DO)
CHGVAR VAR(&ATC) VALUE('/QDLS/AREMAIL/' *CAT &CUSTID)
/* Copy the formatted file to QDLS file system */
CPYTOPCD FROMFILE(HTMLDATA) TOFLR(AREMAIL) +
TODOC(&CUSTID) REPLACE(*YES)
CCCSNDMAIL RECIPADDR(&EMAIL) +
SENDERADDR(ARCLERK@MYCOMPANY.COM) +
SENDERNAME('A/R CLERK') ATTACHMENT(&ATC) +
SUBJECT('A/R MONTHLY STATEMENT') +
MESSAGE('This email contains an attached +
file with your monthly statement.')
ENDDO
ENDPGM
FIGURE 5
Commande CCCSNDMAIL
/****************************************************************/
/* To create this command, issue the following: */
/* CRTCMD lib/CCCSNDMAIL SRCFILE(srclib/srcfile)
PGM(lib/CCRSNDMAIL) */
/* NEWS/400, September 1998 */
/* Copyright (c) 1998 Duke Communications International */
/* ALL RIGHTS RESERVED */
/****************************************************************/
CMD PROMPT('Send an E-mail Message')
PARM KWD(FILENAME) TYPE(*PNAME) LEN(256) +
RTNVAL (*NO) DFT('/tmp/mimehdr.txt') +
MIN(0) EXPR(*YES) PROMPT('MIME header +
file name' 1)
PARM KWD(RECIPADDR) TYPE(*PNAME) LEN(256) MIN(1) +
EXPR(*YES) PROMPT('E-mail address of +
recipient' 2)
PARM KWD(SENDERADDR) TYPE(*PNAME) LEN(256) MIN(1) +
EXPR(*YES) PROMPT('E-mail address of +
sender' 4)
PARM KWD(RECIPNAME) TYPE(*CHAR) LEN(256) +
DFT(*NONE) SPCVAL((*NONE '')) EXPR(*YES) +
PROMPT('Name of e-mail recipient' 3)
PARM KWD(SENDERNAME) TYPE(*CHAR) LEN(256) +
DFT(*NONE) SPCVAL((*NONE '')) EXPR(*YES) +
PROMPT('Name of e-mail sender' 5)
PARM KWD(ATTACHMENT) TYPE(*PNAME) LEN(256) +
DFT(*NONE) SNGVAL((*NONE)) MAX(30) +
EXPR(*YES) PROMPT('File attachment')
PARM KWD(SUBJECT) TYPE(*CHAR) LEN(256) DFT(*NONE) +
SPCVAL((*NONE '')) EXPR(*YES) +
PROMPT('Subject')
PARM KWD(MESSAGE) TYPE(*CHAR) LEN(32767) +
DFT(*NONE) SPCVAL((*NONE '')) EXPR(*YES) +
PROMPT('Message')
PARM KWD(MIMETYPE) TYPE(*CHAR) LEN(5) +
DFT('plain') SPCVAL((*NONE '')) EXPR(*NO) +
PROMPT('Mime-type')
Téléchargez cette ressource
Guide inmac wstore pour l’équipement IT de l’entreprise
Découvrez toutes nos actualités à travers des interviews, avis d'experts et témoignages clients et ainsi, retrouvez les dernières tendances et solutions IT autour de nos 4 univers produits : Poste de travail, Affichage et collaboration, Impression et capture et Infrastructure.