Procedure
Please maintain the purchase order currency for this vendor in thepurchasing data of the vendor master record.
IF &DEVICE& = 'SCREEN'
Do you want to maintain the purchasing data for this vendor?
Perform function
ENDIF