identification division. environment division. data division. working-storage section. 01 Dial usage maindialog left -1 top -1 width 315 height 220 title 'Button-Controls' font 'arial' fontsize 10 closebox. 02 push pic 9(5) usage pushbutton left 15 top 30 width 100 height 25 title 'Push' tooltip 'Push-Button' id 10. 02 check pic 9 usage checkbox left 15 top 70 width 100 height 25 title 'Checkbox' tooltip 'Checkbox' id 20. 02 radio pic 9 usage radiobutton left 15 top 110 width 100 height 25 title 'Radiobutton' tooltip 'Radiobutton' id 30 value 1. 02 three pic 9 usage 3-state left 15 top 150 width 100 height 25 title '3-State' tooltip '3-State' id 40. 02 filler usage groupbox left 160 width 140 top 15 height 130 title 'Auswahl'. 02 r1 pic 9 usage radiobutton left 175 top 30 width 100 height 25 title 'Auswahl1' start id 51 tooltip 'Auswahl1'. 02 r2 pic 9 usage radiobutton left 175 top 70 width 100 height 25 title 'Auswahl2' tooltip 'Auswahl2' id 52. 02 r3 pic 9 usage radiobutton left 175 top 110 width 100 height 25 title 'Auswahl3' id 53 end tooltip 'Auswahl3'. 02 cvalue pic x(70) usage static left 15 top 190 width 300. 01 val pic x(40). 01 bnr pic 9(5) value 0. 02 bid pic 99. 02 blnr pic 9(3). procedure division. move 0 to r1 r2 r3. send dial. loop. call waitbox using bnr dial. if bnr < 0 stop run. if bid = 10 move push to val. if bid = 20 move check to val. if bid = 30 move radio to val. if bid = 40 move three to val. if bid > 50 string r1 ' ' r2 ' ' r3 into val. string 'Bid ' bid ' Lnr ' blnr ' Wert ' val into cvalue. display cvalue. go to loop.