/*===========( Edit dataset )===========*/
EditDS: Procedure
Parse Arg dsn

resp = SysDSN( dsn )
Address Ispexec
"CONTROL ERRORS RETURN"

"EDIT DATASET("dsn") MACRO(RES)"
erc = rc
If rc > 0 Then Say "RC=" rc resp dsn

"CONTROL ERRORS CANCEL"
Address
 
Return erc
/*** End EditDS ***/