Feld zusammensetzen

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.