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
Rapport Forrester sur les solutions de sécurité des charges de travail cloud (CWS)
Dans cette évaluation, basée sur 21 critères, Forrester Consulting étudie, analyse et note les fournisseurs de solutions de sécurité des charges de travail cloud (CWS). Ce rapport détaille le positionnement de chacun de ces fournisseurs pour aider les professionnels de la sécurité et de la gestion des risques (S&R) à adopter les solutions adaptées à leurs besoins.
