identification division. environment division. data division. working-storage section. 01 name pic x(50). 01 stat pic 9(5). procedure division. * Drucker auswählen call getprinterdialog using name stat. if stat not = 0 stop run. call print using 'a "f+ p=50 r=255 w=45" p 2000 9700 u "Muster"'. call prclose.