Code: Alles auswählen.
parameters: vorname(20) type c,
name(20) type c,
ivwahl(4) type n default '0049',
ovwahl(5) type n,
telnr(6) type n,
kunde(15) type c,
region(1) type c,
lfkdnr(5) type n.
data: kdnummer(20) type n,
kdart type c.
if kunde = 'PRIVAT'.
kdart = 1.
elseif kunde = 'GESCHAEFTLICH'.
kdart = 2.
else.
write: /'Falsche Eingabe bei Kunde!'.
write: /'Erlaubte Eingaben: -privat- oder -geschaeftlich- !'.
endif.
if not region = 'w' and not region = 'W' and not region = 's' and not region = 'S' and not region = 'n' and not region = 'N' and not region = 'o' and not region = 'O'.
write: /'FALSCHE EINGABE BEI REGION!'.
write: /'Erlaubte Eingaben: -w- oder -s- oder -n- oder -o-!'.
endif.
write: / 'Vorname:', AT 20 vorname,
/ 'Name:', AT 20 name,
/ 'Ivwahl:', AT 20 ivwahl,
/ 'Ortsvorwahl:', AT 20 ovwahl,
/ 'Telefonnummer:', AT 20 telnr,
/ 'Kunde:', AT 20 kunde,
/ 'Lfd. Kundennr.:', AT 20 lfkdnr,
/ 'LandesRegion:', AT 20 region,
/ '(west=w, süd=s, nord=n, ost=o)'.
uline.
write: 'Kundennummer:', ivwahl no-gap, kdart no-gap, region, lfkdnr.
uline.