Das folgende Beispiel beschreibt die automatisierte Erstellung, Druck bzw. Versendung per EMail des Standardreports „Menüaufbau eines Benutzers“. Dabei wird die gesamte Aktion als Formel im Workflow definiert.
declare
woflproc = varchar(200) not null with default,
ucWOFLPara = cds_para_divers, // Struktur für die Definition der Übergabeparameter
strobj = StringObject,
retcode = integer not null with default,
enddeclare
begin
ucWOFLPara.ikey1 = 12; // SB Nummer
ucWOFLPara.ikey2 = 0;
ucWOFLPara.ikey3 = 0;
ucWOFLPara.ikey4 = 0;
strobj.value = 'Es handelt sich um SB Nummer 12 - Harald Mustermann';
woflproc = 'cd97_allg_exe!cdpr4_wofl_print';
retcode =
callproc :woflproc(key_druck_para = 'cd0102',
programm_name = 'cd0102_druck.img',
programm_bez = 'Drucken Menüaufbau eines Benutzers',
kz_debug = 0, // 0 inaktiv 1 aktiv
ucPara = ucWOFLPara, // Hauptparameter
crmode = 9, // 9 = default -> Ermittlung über Druck Parameter
ext_printer = '', // Übersteuerung ermittelter Drucker
mail_to = 'hans.meier@cimdata-sw.de', // Maildaten
mail_cc = 'luise.schubert@cimdata-sw.de',
mail_bcc = '',
mail_subject = 'WOFL Mail mit Menüaufbau eines Benutzers',
strBody = strobj);
return retCode;
end