zusammengesetztes Feld

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.