*c32 %;slink §;copy prmask.exe c:\acc\bin identification division. data division. working-storage section. 77 stat pic 9(5). 77 name pic x(100). 77 pmask pic x(98). 77 arg1 pic x(20). 77 arg2 pic x(20). 77 arg3 pic x(20). 77 arg4 pic x(20). 77 arg5 pic x(20). 77 arg6 pic x(20). 77 arg7 pic x(20). 77 arg8 pic x(20). 77 arg9 pic x(20). 77 arg10 pic x(20). * * Von der Eingabeaufforderung aufrufen * * prmask druckmaske arg1 arg2 ... * * procedure division. call dom using pmask arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10. call getprinterdialog using name stat. if stat not = 0 display 'Openerror ' name ' Error ' stat stop run. string '<' pmask delimited by space '>' into name. call print using name arg1 arg2 arg3 arg4 arg5 arg6 arg7 arg8 arg9 arg10. CALL prclose.